; 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.dat'") if s ne 1 then journal if s ne 1 then exit print, version() print, 'from within make_ssc_plots...' 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 finished' journal exit