# If the atlas is broken and or parts require
# repairing then these are the steps required
# to do this
# Jeff Payne
# Jan 12 2005

$cidl
use_eof_data
use_eof_cat
add_path,'/disk2/master/work/atlas/IDL_prog'
setenv,"CDS_FITS_DATA_W=" 
window,0,xs=600,ys=650

; create a list of fits files
; file is /cs/lrg_update/headcat/newfits
; and is editable
;hc_update,number of days looking back from now
;note: that this will find new/reprocessed fits files that have been
;created in the last 'n' days
hc_update,12          

; mk_atlas
f = rd_ascii(concat_dir('CDS_HEAD_CAT','newfits'))
wshow
mk_atlas,f,/all

;If any nisats were processed then this may need to be run
; create nisat html code
;
create_nisat_html,(thisyear-1)
retall

create_nisat_html,thisyear
retall

; and then if the list copntained synops then the
;velocity maps need re-doing
check_4_velmap,year,/all

#