; get ssn and produce remapmmgf based on sdate
pro mkremapmmg,sdate,remapmmgf,FIRST=first

    if n_params( ) lt 1 then begin
       print,'pro mkremapmdimg,sdate,remapmgf,/first'
       print,"INPUT sdate='1996.08.27', OUTPUT remapmgf"
       return
    endif
    spawn,'time_index time='+sdate+' -d',ssn    ; ssn is an array[1]**
    if keyword_set(first) then $
       spawn,'magsynop_redo.pl '+ssn               ; on linux machines only
        ; put remapped files into /scr20/xuepu/scr218/SYNOP/...
    fnm0='fd_M_remap_96m_01d.00'+ssn(0)+'/00'
    mgfdir=REPLICATE('/scr20/xuepu/scr218/SYNOP/fd_M_remap_96m_01d/'+fnm0,15)
    sidn=strtrim(indgen(15),2)
    for i=0,9 do sidn(i)='0'+sidn(i)
    remapmmgf=mgfdir+sidn+REPLICATE('.fits',15)

end