; Add journal command write to a file ; Use in error message mailed to developers ; ;Copyright 1996-2013 United States Government as represented by the ;Administrator of the National Aeronautics and Space Administration. ;All Rights Reserved. ; ;------------------------------------------------------------------ journal, '/home/rumba/cdaweb/tmp/ssc_journal' ON_ERROR, 1 ; s = execute("restore, '/home/rumba/cdaweb/lib/spdflib.new'") ; s = execute("restore, '/home/rumba/cdaweb/lib/spdflib.dat5'") ;TJK 4/27/99 s = execute("restore, '/home/rumba/cdaweb/lib/spdflib51.dat'") ;restore the debug version that contains more of the jhuapl routines ;for now - can change this to spdflib5.dat after spectrograms are up to ;snuff and that lib is made operational ; s = execute("restore, '/home/rumba/cdaweb/lib/spdflib5.dat'") s = execute("restore, '/home/rumba/cdaweb/lib/spdflib53.dat'") if s ne 1 then journal if s ne 1 then exit print, version() print, 'from within make_ssc_plots 53 ...' print, 'IDL_PATH is: ',getenv('IDL_PATH') print, 'IDL_DIR is: ',getenv('IDL_DIR') print, cdfnames s = ssc_plot(cdfnames,PID,OUTDIR) !p.noerase=0 !p.multi=0 !p.background=0 !p.position=0 !p.region=0 ;to gif files. print, 'Status of ssc_plot = ',s print, 'Make_ssc_plots 53 finished' journal exit