EXTERNAL       GSR$_OPENOUT,GSR$_OPENIN,GSR$_PARSE,GSR$_ILLVAL,
     *                 GSR$_READ,GSR$_WRITE,GSR$_LOGGING,
     *                 GSR$_NOTSEQUEN,GSR$_SEARCHFAIL

        logical*1      output,verify,log
        logical*1      changed,new_file,end,quit
        logical*1      output_written
        character*80   filename
        integer*2      output_lun
        integer*2      cond,rms1,rms2

        common /gsr/ output,verify,log,changed,new_file,filename,end,
     *               output_lun,output_written,quit