getfiles.pro (Kronos IDL library)

;+
; 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