;+ ; Contains the getfiles function ; ; :Author: ; Philippe Zarka ; ; :History: ; 2009/02/28: Created ; ; 2010/11/02: Last Edit ;- ; ;+ ; Creates the table which gives which files exist in a directory.* ; ; :Uses: ; filestab ; ; :Returns: ; the table. ; ; :Params: ; directory: in, required, type=string ; directory where to look ;- FUNCTION getfiles, directory ; Creates the tab of the created files in DIRECTORY ;___________________________________________________ ; Daynb|pdf and lis files|hour=0|hour=1|hour=2| .... ; 1 | | | | | .... No file has been created for this day ; 2 | pdflis | K | K | K | .... Only K, pdf,lis files have been created ; for this day ; 3 | pdflis |KN1N2 | KN1 | | ;--------------------------------------------- datapath=getenv('NAS_RPWS') ; ! Ajouter les lettres necessaires n3letters=['a', 'b', 'c', 'd', 'e', 'f', 'g'] letter_low=['a', 'b', 'c', 'd', 'e', 'f', 'g'] letter_up=[ 'A', 'B', 'C', 'D', 'E', 'F', 'G'] lettermax=n_elements(n3letters)-1 hh=['.00', '.01', '.02', '.03', '.04', '.05', '.06', '.07', '.08', '.09', '.10', '.11', '.12', $ '.13', '.14', '.15', '.16', '.17', '.18', '.19', '.20', '.21', '.22', '.23'] dates=dblarr(25) dates[0]=systime(/seconds) kdate=0d ; loading src_list.txt data ; ------------------------- read_data_src_list,src_list sources=src_list.df_name sourcesq=src_list.qeph sourcesv=src_list.veph srcnb=n_elements(sourcesq) case directory of ;------------------------------------------ ; TURN_ON ;------------------------------------------ 'Turn_on': begin datapath=datapath+'rpws_data/' answer=strarr(25, 2) n2=1 n2date1=[0] day=[1997298, 1997299] for i=0, 1 do begin for h=1, 24 do begin kname='K'+strtrim(string(day[i]), 2)+hh[h-1] if (not file_test(datapath+directory+'/k/'+kname)) then begin answer[h,i]=' ' kdate=systime(/seconds) endif else begin kdate=(file_info(datapath+directory+'/k/'+kname)).mtime n1name='R'+strtrim(string(day[i]), 2)+hh[h-1] if (not file_test(datapath+directory+'/n1/'+n1name)) then begin answer[h, i]='K ' endif else begin n1date=(file_info(datapath+directory+'/n1/'+n1name)).mtime if (kdate le n1date) then begin answer[h, i]='KN1' endif else begin answer[h, i]='Kn1' endelse endelse n2name='P'+strtrim(string(day[i]), 2)+hh[h-1] if (file_test(datapath+directory+'/n2/'+n2name)) then begin n2date=(file_info(datapath+directory+'/n2/'+n2name)).mtime if (n2date gt kdate) then begin answer[h, i]=answer[h, i]+'N2' n2date1=[n2date1, n2date] endif else begin answer[h, i]=answer[h, i]+'n2' n2=0 endelse endif else begin answer[h, i]=answer[h, i]+' ' endelse n3text='' for iletter=0, lettermax do begin n3name='*'+strtrim(string(day[i]), 2)+hh[h-1] if file_test(datapath+directory+'/n3'+letter_low[iletter]+'/'+n3name) then begin dateok=1 n3date=(file_info(datapath+directory+'/n3'+letter_low[iletter]+'/' $ +n3name)).mtime if (n3date lt n2date) then begin dateok=0 endif if (dateok eq 1) then begin n3text=n3text+letter_up[iletter] endif else n3text=n3text+letter_low[iletter] endif endfor if n3text ne '' then answer[h, i-offset]=answer[h, i-offset]+'N3:'+n3text endelse dates[h]=kdate endfor kdate=max(dates) lisname=strtrim(string(day[i]), 2)+'.lis' if (file_test(datapath+directory+'/lis/'+lisname)) then begin lisdate=(file_info(datapath+directory+'/lis/'+lisname)).mtime if (lisdate gt kdate) then begin answer[0, i]='LIS ' endif else begin answer[0, i]='lis ' endelse endif else begin answer[0, i]=' ' endelse pdfname=strtrim(string(day[i]), 2)+'.pdf' if (file_test(datapath+directory+'/pdf/'+pdfname)) then begin pdfdate=(file_info(datapath+directory+'/pdf/'+pdfname)).mtime if (pdfdate gt kdate) then begin answer[0, i]=answer[0, i]+'PDF ' endif else begin answer[0, i]=answer[0, i]+'pdf ' endelse endif for isrc=0,srcnb-1 do begin if (file_test(datapath+directory+'/ephem/'+strtrim(string(day[i]), 2)+'.'+sourcesq[isrc]) $ and file_test(datapath+directory+'/ephem/'+strtrim(string(day[i]), 2)+'.'+sourcesv[isrc])) then begin answer[0, i]=answer[0, i]+sources[isrc]+' ' endif endfor endfor bgname='bg_'+directory if (file_test(datapath+directory+'/bg/'+bgname)) then begin if (n2 eq 0) then begin bg_ephem='bg ' endif else begin bgdate=(file_info(datapath+directory+'/bg/'+bgname)).mtime n2date1=max(n2date1) if (bgdate gt n2date1) then begin bg_ephem='BG ' endif else begin bg_ephem='bg ' endelse endelse endif else begin bg_ephem='' endelse end ;--------------------------------------- ; VENUS1 ;--------------------------------------- 'Venus1': begin datapath=datapath+'rpws_data/' answer=strarr(25, 1) n2=1 n2date1=[0] for h=1, 24 do begin kname='k1998116'+hh[h-1] if (not file_test(datapath+directory+'/k/'+kname)) then begin answer[h,0]=' ' kdate=systime(/seconds) endif else begin kdate=(file_info(datapath+directory+'/k/'+kname)).mtime n1name='R1998116'+hh[h-1] if (not file_test(datapath+directory+'/n1/'+n1name)) then begin answer[h, 0]='K ' endif else begin n1date=(file_info(datapath+directory+'/n1/'+n1name)).mtime if (kdate lt n1date) then begin answer[h, 0]='KN1' endif else begin answer[h, 0]='Kn1' endelse endelse n2name='P1998116'+hh[h-1] if (file_test(datapath+directory+'/n2/'+n2name)) then begin n2date=(file_info(datapath+directory+'/n2/'+n2name)).mtime if (n2date gt kdate) then begin answer[h, 0]=answer[h, 0]+'N2' n2date1=[n2date1, n2date] endif else begin answer[h, 0]=answer[h, 0]+'n2' n2=0 endelse endif else begin answer[h, 0]=answer[h, 0]+' ' endelse n3text='' for iletter=0, lettermax do begin n3name='*1998116'+hh[h-1] if file_test(datapath+directory+'/n3'+letter_low[iletter]+'/'+n3name) then begin dateok=1 n3date=(file_info(datapath+directory+'/n3'+letter_low[iletter]+'/' $ +n3name)).mtime if (n3date lt n2date) then begin dateok=0 endif if (dateok eq 1) then begin n3text=n3text+letter_up[iletter] endif else n3text=n3text+letter_low[iletter] endif endfor if n3text ne '' then answer[h, i-offset]=answer[h, i-offset]+'N3:'+n3text endelse dates[h]=kdate endfor kdate=max(dates) lisname='1998116.lis' if (file_test(datapath+directory+'/lis/'+lisname)) then begin lisdate=(file_info(datapath+directory+'/lis/'+lisname)).mtime if (lisdate lt kdate) then begin answer[0, 0]='lis ' endif else begin answer[0, 0]='LIS ' endelse endif else begin answer[0, 0]=' ' endelse pdfname='1998116.pdf' if (file_test(datapath+directory+'/pdf/'+pdfname)) then begin pdfdate=(file_info(datapath+directory+'/pdf/'+pdfname)).mtime if (kdate gt pdfdate) then begin answer[0, 0]=answer[0, 0]+'pdf ' endif else begin answer[0, 0]=answer[0, 0]+'PDF ' endelse endif for isrc=0,srcnb-1 do begin if (file_test(datapath+directory+'/ephem/'+'1998116.'+sourcesq[isrc]) $ and file_test(datapath+directory+'/ephem/'+'1998116.'+sourcesv[isrc])) then begin answer[0, 0]=answer[0, 0]+sources[isrc]+' ' endif endfor bgname='bg_'+directory if (file_test(datapath+directory+'/bg/'+bgname)) then begin if (n2 eq 0) then begin bg_ephem='bg ' endif else begin bgdate=(file_info(datapath+directory+'/bg/'+bgname)).mtime n2date1=max(n2date1) if (bgdate gt n2date1) then begin bg_ephem='BG ' endif else begin bg_ephem='bg ' endelse endelse endif else begin bg_ephem='' endelse end ;--------------------------------------- ; ICO_M14 ;--------------------------------------- 'Ico_m14': begin datapath=datapath+'rpws_data/' answer=strarr(25, 7) n2=1 n2date1=[0] for i=0, 1 do begin for h=1, 24 do begin kname='K199836'+strtrim(string(4+i), 2)+hh[h-1] if (not file_test(datapath+directory+'/k/'+kname)) then begin answer[h,i]=' ' kdate=systime(/seconds) endif else begin kdate=(file_info(datapath+directory+'/k/'+kname)).mtime n1name='R199836'+strtrim(string(4+i), 2)+hh[h-1] if (not file_test(datapath+directory+'/n1/'+n1name)) then begin answer[h, i]='K ' endif else begin n1date=(file_info(datapath+directory+'/n1/'+n1name)).mtime if (n1date gt kdate) then begin answer[h, i]='Kn1' endif else begin answer[h, i]='KN1' endelse endelse n2name='P199926'+strtrim(string(4+i), 2)+hh[h-1] if (not file_test(datapath+directory+'/n2/'+n2name)) then begin n2date=(file_info(datapath+directory+'/n2/'+n2name)).mtime if (n2date gt kdate) then begin answer[h, i]=answer[h, i]+'N2' n2date1=[n2date1, n2date] endif else begin answer[h, i]=answer[h, i]+'n2' n2=0 endelse endif else begin answer[h, i]=answer[h, i]+' ' endelse n3text='' for iletter=0, lettermax do begin n3name='*199926'+strtrim(string(4+i), 2)+hh[h-1] if file_test(datapath+directory+'/n3'+letter_low[iletter]+'/'+n3name) then begin dateok=1 n3date=(file_info(datapath+directory+'/n3'+letter_low[iletter]+'/' $ +n3name)).mtime if (n3date lt n2date) then begin dateok=0 endif if (dateok eq 1) then begin n3text=n3text+letter_up[iletter] endif else n3text=n3text+letter_low[iletter] endif endfor if n3text ne '' then answer[h, i-offset]=answer[h, i-offset]+'N3:'+n3text endelse dates[h]=kdate endfor kdate=max(dates) lisname=strtrim(string(4+i), 2)+'.lis' if (file_test(datapath+directory+'/lis/'+lisname)) then begin lisdate=(file_info(datapath+directory+'/lis/'+lisname)).mtime if (lisdate lt kdate) then begin answer[0, i]='lis ' endif else begin answer[0, i]='LIS ' endelse endif else begin answer[0, i]=' ' endelse pdfname=strtrim(string(4+i), 2)+'.pdf' if (file_test(datapath+directory+'/pdf/'+pdfname)) then begin pdfdate=(file_info(datapath+directory+'/pdf/'+pdfname)).mtime if (pdfdate lt kdate) then begin answer[0, i]=answer[0, i]+'pdf ' endif else begin answer[0, i]=answer[0, i]+'PDF ' endelse endif for isrc=0,srcnb-1 do begin if (file_test(datapath+directory+'/ephem/'+strtrim(string(4+i), 2)+'.'+sourcesq[isrc]) $ and file_test(datapath+directory+'/ephem/'+strtrim(string(4+i), 2)+'.'+sourcesv[isrc])) then begin answer[0, i]=answer[0, i]+sources[isrc]+' ' endif endfor endfor for i=0, 4 do begin for h=1, 24 do begin kname='K199900'+strtrim(string(i), 2)+hh[h-1] if (not file_test(datapath+directory+'/k/'+kname)) then begin answer[h,i+2]=' ' endif else begin n1name='R199900'+strtrim(string(i), 2)+hh[h-1] kdate=(file_info(datapath+directory+'/k/'+kname)).mtime if (not file_test(datapath+directory+'/n1/'+n1name)) then begin answer[h, i+2]='K ' endif else begin n1date=(file_info(datapath+directory+'/n1/'+n1name)).mtime if (n1date lt kdate) then begin answer[h, i+2]='Kn1' endif else begin answer[h, i+2]='KN1' endelse endelse n2name='P199900'+strtrim(string(i), 2)+hh[h-1] if (file_test(datapath+directory+'/n2/'+n2name)) then begin n2date=(file_info(datapath+directory+'/n2/'+n2name)).mtime if (n2date gt kdate) then begin answer[h, i+2]=answer[h, i+2]+'N2' endif else begin answer[h, i+2]=answer[h, i+2]+'n2' endelse endif else begin answer[h, i+2]=answer[h, i+2]+' ' endelse n3text='' for iletter=0, lettermax do begin n3name='*199900'+strtrim(string(i), 2)+hh[h-1] if file_test(datapath+directory+'/n3'+letter_low[iletter]+'/'+n3name) then begin dateok=1 n3date=(file_info(datapath+directory+'/n3'+letter_low[iletter]+'/' $ +n3name)).mtime if (n3date lt n2date) then begin dateok=0 endif if (dateok eq 1) then begin n3text=n3text+letter_up[iletter] endif else n3text=n3text+letter_low[iletter] endif endfor if n3text ne '' then answer[h, i-offset]=answer[h, i-offset]+'N3:'+n3text endelse dates[h]=kdate endfor kdate=max(dates) lisname='199900'+strtrim(string(i), 2)+'.lis' if (file_test(datapath+directory+'/lis/'+lisname)) then begin lisdate=(file_info(datapath+directory+'/lis/'+lisname)).mtime if (lisdate gt kdate) then begin answer[0, i+2]='LIS ' endif else begin answer[0, i+2]='lis ' endelse endif else begin answer[0, i+2]=' ' endelse pdfname='199900'+strtrim(string(i), 2)+'.pdf' if (file_test(datapath+directory+'/pdf/'+pdfname)) then begin pdfdate=(file_info(datapath+directory+'/pdf/'+pdfname)).mtime if (pdfdate gt kdate) then begin answer[0, i+2]=answer[0, i+2]+'PDF ' endif else begin answer[0, i+2]=answer[0, i+2]+'pdf ' endelse endif for isrc=0,srcnb-1 do begin if (file_test(datapath+directory+'/ephem/'+'199900'+strtrim(string(i), 2)+'.'+sourcesq[isrc]) $ and file_test(datapath+directory+'/ephem/'+'199900'+strtrim(string(i), 2)+'.'+sourcesv[isrc])) then begin answer[0, i+2]=answer[0, i+2]+sources[isrc]+' ' endif endfor endfor bgname='bg_'+directory if (file_test(datapath+directory+'/bg/'+bgname)) then begin if (n2 eq 0) then begin bg_ephem='bg ' endif else begin bgdate=(file_info(datapath+directory+'/bg/'+bgname)).mtime n2date1=max(n2date1) if (bgdate gt n2date1) then begin bg_ephem='BG ' endif else begin bg_ephem='bg ' endelse endelse endif else begin bg_ephem='' endelse end ;--------------------------------------- ; VENUS2 ;--------------------------------------- 'Venus2': begin datapath=datapath+'rpws_data/' answer=strarr(25, 1) n2=1 n2date1=[0] for h=1, 24 do begin kname='K1999175'+hh[h-1] if (not file_test(datapath+directory+'/k/'+kname)) then begin answer[h,0]=' ' kdate=systime(/seconds) endif else begin kdate=(file_info(datapath+directory+'/k/'+kname)).mtime n1name='R1999175'+hh[h-1] if (not file_test(datapath+directory+'/n1/'+n1name)) then begin answer[h, 0]='K ' endif else begin n1date=(file_info(datapath+directory+'/n1/'+n1name)).mtime if (n1date gt kdate) then begin answer[h, 0]='KN1' endif else begin answer[h, 0]='Kn1' endelse endelse n2name='P1999175'+hh[h-1] if (file_test(datapath+directory+'/n2/'+n2name)) then begin n2date=(file_info(datapath+directory+'/n2/'+n2name)).mtime if (n2date gt kdate) then begin answer[h, 0]=answer[h, 0]+'N2' n2date1=[n2date1, n2date] endif else begin answer[h, 0]=answer[h, 0]+'n2' n2=0 endelse endif else begin answer[h, 0]=answer[h, 0]+' ' endelse n3text='' for iletter=0, lettermax do begin n3name='*1999175'+hh[h-1] if file_test(datapath+directory+'/n3'+letter_low[iletter]+'/'+n3name) then begin dateok=1 n3date=(file_info(datapath+directory+'/n3'+letter_low[iletter]+'/' $ +n3name)).mtime if (n3date lt n2date) then begin dateok=0 endif if (dateok eq 1) then begin n3text=n3text+letter_up[iletter] endif else n3text=n3text+letter_low[iletter] endif endfor if n3text ne '' then answer[h, i-offset]=answer[h, i-offset]+'N3:'+n3text endelse dates[h]=kdate endfor kdate=max(dates) lisname='1999175.lis' if (file_test(datapath+directory+'/lis/'+lisname)) then begin lisdate=(file_info(datapath+directory+'/lis/'+lisname)).mtime if (lisdate gt kdate) then begin answer[0, 0]='LIS ' endif else begin answer[0, 0]='lis ' endelse endif else begin answer[0, 0]=' ' endelse pdfname='1999175.pdf' if (file_test(datapath+directory+'/pdf/'+pdfname)) then begin pdfdate=(file_info(datapath+directory+'/pdf/'+pdfname)).mtime if (pdfdate gt kdate) then begin answer[0, 0]=answer[0, 0]+'PDF ' endif else begin answer[0, 0]=answer[0, 0]+'pdf ' endelse endif for isrc=0,srcnb-1 do begin if (file_test(datapath+directory+'/ephem/'+'1999175'+'.'+sourcesq[isrc]) $ and file_test(datapath+directory+'/ephem/'+'1999175'+'.'+sourcesv[isrc])) then begin answer[0, 0]=answer[0, 0]+sources[isrc]+' ' endif endfor bgname='bg_'+directory if (file_test(datapath+directory+'/bg/'+bgname)) then begin if (n2 eq 0) then begin bg_ephem='bg ' endif else begin bgdate=(file_info(datapath+directory+'/bg/'+bgname)).mtime n2date1=max(n2date1) if (bgdate gt n2date1) then begin bg_ephem='BG ' endif else begin bg_ephem='bg ' endelse endelse endif else begin bg_ephem='' endelse end ;--------------------------------------- ; EARTH ;--------------------------------------- 'Earth': begin datapath=datapath+'rpws_data/' answer=strarr(25, 31) n2=1 n2date1=[0] for i=0, 30 do begin for h=1, 24 do begin kname='K'+strtrim(string(1999227+i), 2)+hh[h-1] if (not file_test(datapath+directory+'/k/'+kname)) then begin answer[h,i]=' ' kdate=systime(/seconds) endif else begin kdate=(file_info(datapath+directory+'/k/'+kname)).mtime n1name='R'+strtrim(string(1999227+i), 2)+hh[h-1] if (not file_test(datapath+directory+'/n1/'+n1name)) then begin answer[h, i]='K ' endif else begin n1date=(file_info(datapath+directory+'/n1/'+n1name)).mtime if (n1date gt kdate) then begin answer[h, i]='KN1' endif else begin answer[h, i]='Kn1' endelse endelse n2name='P'+strtrim(string(1999227+i), 2)+hh[h-1] if (file_test(datapath+directory+'/n2/'+n2name)) then begin n2date=(file_info(datapath+directory+'/n2/'+n2name)).mtime if (n2date gt kdate) then begin answer[h, i]=answer[h, i]+'N2' n2date1=[n2date1, n2date] endif else begin answer[h, i]=answer[h, i]+'n2' n2=0 endelse endif else begin answer[h, i]=answer[h, i]+' ' endelse n3text='' for iletter=0, lettermax do begin n3name='*'+strtrim(string(1999227+i), 2)+hh[h-1] if file_test(datapath+directory+'/n3'+letter_low[iletter]+'/'+n3name) then begin dateok=1 n3date=(file_info(datapath+directory+'/n3'+letter_low[iletter]+'/' $ +n3name)).mtime if (n3date lt n2date) then begin dateok=0 endif if (dateok eq 1) then begin n3text=n3text+letter_up[iletter] endif else n3text=n3text+letter_low[iletter] endif endfor if n3text ne '' then answer[h, i]=answer[h, i]+'N3:'+n3text endelse dates[h]=kdate endfor kdate=max(dates) lisname=strtrim(string(1999227+i), 2)+'.lis' if (file_test(datapath+directory+'/lis/'+lisname)) then begin lisdate=(file_info(datapath+directory+'/lis/'+lisname)).mtime if (lisdate gt kdate) then begin answer[0, i]='LIS ' endif else begin answer[0, i]='lis ' endelse endif else begin answer[0, i]=' ' endelse pdfname=strtrim(string(1999227+i), 2)+'.pdf' if (file_test(datapath+directory+'/pdf/'+pdfname)) then begin pdfdate=(file_info(datapath+directory+'/pdf/'+pdfname)).mtime if (pdfdate gt kdate) then begin answer[0, i]=answer[0, i]+'PDF ' endif else begin answer[0, i]=answer[0, i]+'pdf ' endelse endif for isrc=0,srcnb-1 do begin if (file_test(datapath+directory+'/ephem/'+strtrim(string(1999227+i), 2)+'.'+sourcesq[isrc]) $ and file_test(datapath+directory+'/ephem/'+strtrim(string(1999227+i), 2)+'.'+sourcesv[isrc])) then begin answer[0, i]=answer[0, i]+sources[isrc]+' ' endif endfor endfor bgname='bg_'+directory if (file_test(datapath+directory+'/bg/'+bgname)) then begin if (n2 eq 0) then begin bg_ephem='bg ' endif else begin bgdate=(file_info(datapath+directory+'/bg/'+bgname)).mtime n2date1=max(n2date1) if (bgdate gt n2date1) then begin bg_ephem='BG ' endif else begin bg_ephem='bg ' endelse endelse endif else begin bg_ephem='' endelse end ;--------------------------------------- ; YYYY_DDB_DDE DIRECTORIES ;--------------------------------------- else: begin datapath=datapath+'rpws_data/' if (strmid(directory, 4, 1) eq '_' and strmid(directory, 8, 1) eq '_') then begin year=long(strmid(directory, 0, 4)) case strmid(directory, 5, 3) of '001': begin beg=1 finish=90 offset=1 end '091': begin beg=91 finish=180 offset=91 end '181': begin beg=181 finish=270 offset=181 end '271': begin beg=271 finish=366 offset=271 end endcase answer=strarr(25, finish-beg+1) n2=1 n2date1=[0] for i=beg, finish do begin day=year*1000L+i for h=1, 24 do begin kname='K'+strtrim(string(day), 2)+hh[h-1] if (not file_test(datapath+directory+'/k/'+kname)) then begin answer[h,i-offset]=' ' kdate=systime(/seconds) endif else begin n1name='R'+strtrim(string(day), 2)+hh[h-1] kdate=(file_info(datapath+directory+'/k/'+kname)).mtime if (not file_test(datapath+directory+'/n1/'+n1name)) then begin answer[h, i-offset]='K ' endif else begin n1date=(file_info(datapath+directory+'/n1/'+n1name)).mtime answer[h, i-offset]='KN1' endelse n2name='P'+strtrim(string(day), 2)+hh[h-1] if (file_test(datapath+directory+'/n2/'+n2name)) then begin n2date=(file_info(datapath+directory+'/n2/'+n2name)).mtime if (n2date gt kdate) then begin answer[h, i-offset]=answer[h, i-offset]+'N2' n2date1=[n2date1, n2date] endif else begin answer[h, i-offset]=answer[h, i-offset]+'n2' n2=0 endelse endif else begin answer[h, i-offset]=answer[h, i-offset]+' ' endelse n3text='' for iletter=0, lettermax do begin n3name='*'+strtrim(string(day), 2)+hh[h-1] if file_test(datapath+directory+'/n3'+letter_low[iletter]+'/'+n3name) then begin dateok=1 n3date=(file_info(datapath+directory+'/n3'+letter_low[iletter]+'/' $ +n3name)).mtime if (n3date lt n2date) then begin dateok=0 endif if (dateok eq 1) then begin n3text=n3text+letter_up[iletter] endif else n3text=n3text+letter_low[iletter] endif endfor if n3text ne '' then answer[h, i-offset]=answer[h, i-offset]+'N3:'+n3text endelse dates[h]=kdate endfor kdate=max(dates) lisname=strtrim(string(day), 2)+'.lis' if (file_test(datapath+directory+'/lis/'+lisname)) then begin lisdate=(file_info(datapath+directory+'/lis/'+lisname)).mtime if (lisdate gt kdate) then begin answer[0, i-offset]='LIS' endif else begin answer[0, i-offset]='lis' endelse endif else begin answer[0, i-offset]=' ' endelse pdfname=strtrim(string(day), 2)+'.pdf' if (file_test(datapath+directory+'/pdf/'+pdfname)) then begin pdfdate=(file_info(datapath+directory+'/pdf/'+pdfname)).mtime if (pdfdate gt kdate) then begin answer[0, i-offset]=answer[0, i-offset]+'PDF' endif else begin answer[0, i-offset]=answer[0, i-offset]+'pdf' endelse endif for isrc=0,srcnb-1 do begin if (file_test(datapath+directory+'/ephem/'+strtrim(string(day), 2)+'.'+sourcesq[isrc]) $ and file_test(datapath+directory+'/ephem/'+strtrim(string(day), 2)+'.'+sourcesv[isrc])) then begin answer[0, i-offset]=answer[0, i-offset]+sources[isrc] endif endfor endfor bgname='bg_'+directory if (file_test(datapath+directory+'/bg/'+bgname)) then begin if (n2 eq 0) then begin bg_ephem='bg ' endif else begin bgdate=(file_info(datapath+directory+'/bg/'+bgname)).mtime n2date1=max(n2date1) if (bgdate gt n2date1) then begin bg_ephem='BG ' endif else begin bg_ephem='bg ' endelse endelse endif else begin bg_ephem='' endelse endif else begin answer=['this is not a directory'] endelse end endcase ;--------------------------------------- ; DISPLAY OF THE TABLE ;--------------------------------------- filestab, directory, answer, bg_ephem end