; info in common FLRDIR.
; K.T.  11/14/89
; This routine was being called by FLARES.  Wrote an IDL save file containing
; this data to try to speed things up.  So now FLARES just restores the
; save file instead of calling this routine.  KT 7/8/93
;
PRO READ_FLRDIR,X
;
COMMON FLRDIR,KFLARE,KBACK,KMEM,IFLARE,BDISK,CFILE,FILESTART,FILEEND,$
              FLARESTART,FLAREEND,IFLARE_BACK,BDISK_BACK,CFILE_BACK,$
              FILESTART_BACK,FILEEND_BACK,IFLARE_MEM,BDISK_MEM,$
              CFILE_MEM,FILESTART_MEM,FILEEND_MEM,BRES_MEM,$
              DUMPSTART_MEM,DATASTART_MEM
;
OPENR,1,'SYS$USER:[SOFT.FLARES]FLAREST.CAT/UNF'
;
KFLARE=1 & KBACK=1 & KMEM=1
IFLARE=INTARR(10000) & BDISK=BYTARR(10000)
CFILE=STRARR(10000)+string(bytarr(30)+byte(65))
FILESTART=DBLARR(10000) & FILEEND=DBLARR(10000) 
FLARESTART=DBLARR(10000) & FLAREEND=DBLARR(10000)
;
READU,1,KFLARE,KBACK,KMEM ; number of flare entries and background file entries
READU,1,IFLARE,BDISK,CFILE,FILESTART,FILEEND,FLARESTART,FLAREEND
;READU,1,BDISK
;READU,1,CFILE
;READU,1,FILESTART
;READU,1,FILEEND
;READU,1,FLARESTART
;READU,1,FLAREEND
;
IFLARE_BACK=INTARR(500) & BDISK_BACK=BYTARR(500)
CFILE_BACK=STRARR(500) + string(bytarr(30)+byte(65))
FILESTART_BACK=DBLARR(500) & FILEEND_BACK=DBLARR(500) 
;
READU,1,IFLARE_BACK,BDISK_BACK,CFILE_BACK,FILESTART_BACK,FILEEND_BACK
;READU,1,BDISK_BACK
;READU,1,CFILE_BACK
;READU,1,FILESTART_BACK
;READU,1,FILEEND_BACK
;
IFLARE_MEM=INTARR(4000) & BDISK_MEM=BYTARR(4000)
CFILE_MEM=STRARR(4000) + string(bytarr(30)+byte(65))
FILESTART_MEM=DBLARR(4000) & FILEEND_MEM=DBLARR(4000)
BRES_MEM=BYTARR(4000)
DUMPSTART_MEM=DBLARR(4000) & DATASTART_MEM=DBLARR(4000)
;
READU,1,IFLARE_MEM,BDISK_MEM,CFILE_MEM,FILESTART_MEM,FILEEND_MEM,BRES_MEM,$
   DUMPSTART_MEM,DATASTART_MEM
;READU,1,BDISK_MEM
;READU,1,CFILE_MEM
;READU,1,FILESTART_MEM
;READU,1,FILEEND_MEM
;READU,1,BRES_MEM
;READU,1,DUMPSTART_MEM
;READU,1,DATASTART_MEM
;
; print,kflare,kback,kmem
if kflare eq 0 then kflare = 1
if kback eq 0 then kback = 1
IFLARE = IFLARE(0:KFLARE-1)
BDISK = BDISK(0:KFLARE-1)
CFILE = CFILE(0:KFLARE-1)
FILESTART = FILESTART(0:KFLARE-1)
FILEEND = FILEEND(0:KFLARE-1)
FLARESTART = FLARESTART(0:KFLARE-1)
FLAREEND = FLAREEND(0:KFLARE-1)
;
IFLARE_BACK = IFLARE_BACK(0:KBACK-1)
BDISK_BACK = BDISK_BACK(0:KBACK-1)
CFILE_BACK = CFILE_BACK(0:KBACK-1)
FILESTART_BACK = FILESTART_BACK(0:KBACK-1)
FILEEND_BACK = FILEEND_BACK(0:KBACK-1)
;
IFLARE_MEM = IFLARE_MEM(0:KMEM-1)
BDISK_MEM = BDISK_MEM(0:KMEM-1)
CFILE_MEM = CFILE_MEM(0:KMEM-1)
FILESTART_MEM = FILESTART_MEM(0:KMEM-1)
FILEEND_MEM = FILEEND_MEM(0:KMEM-1)
BRES_MEM = BRES_MEM(0:KMEM-1)
DUMPSTART_MEM = DUMPSTART_MEM(0:KMEM-1)
DATASTART_MEM = DATASTART_MEM(0:KMEM-1)
;
; PRINT,KMEM,IFLARE_MEM
;
CLOSE,1
;
;SAVE,/XDR,FILE='PERM$DATA:OPT_FLARES_CAT.SAV', $
;              KFLARE,KBACK,KMEM,IFLARE,BDISK,CFILE,FILESTART,FILEEND,$
;              FLARESTART,FLAREEND,IFLARE_BACK,BDISK_BACK,CFILE_BACK,$
;              FILESTART_BACK,FILEEND_BACK,IFLARE_MEM,BDISK_MEM,$
;              CFILE_MEM,FILESTART_MEM,FILEEND_MEM,BRES_MEM,$
;              DUMPSTART_MEM,DATASTART_MEM
RETURN & END