JTSAVSPC$MAIN0114-Sep-1996 16:5314-Sep-1996 16:53VAX FORTRAN V5.9-173 JTSAVSPC$MAINP׀,fcn> GCY$STORE) JTSAVSPC$MAINP h LIB$GET_FOREIGN@@` 4  ` ,   LIB$SET_SYMBOL@P [<LIB$GET_FOREIGN,k PP 1q1Q1ADFOR$EXIT!TP FOR$READ_IF߫ FOR$IO_X_DA FOR$IO_END\D\, ` LIB$INDEXPV^()nVPP^(Pn^SXXW^(0nW,Wn ˀPQ^VP,PF (lIVLENPxˀ|ˀFOR$OPENP1~~' FOR$READ_KF  FOR$IO_T_DS FOR$IO_ENDVPPCV P`$P`\ FOR$DELETE\V FOR$EXIT_W\1IVLENP\,\ ,(\V' FOR$WRITE_SF\  FOR$IO_T_DS FOR$IO_ENDV'FOR$REWRITE_SF\  FOR$IO_T_DS FOR$IO_END FOR$CLOSE(IVLENP( $LIB$SET_SYMBOLFOR$EXITP0PGCY$CM:QDBS.GDS JTSAVSPC$MAINLIB$GET_FOREIGNFOR$EXIT LIB$INDEXIVLENFOR$OPEN FOR$EXIT_W FOR$CLOSELIB$SET_SYMBOLZ$CODE7$PDATA$LOCAL FOR$DELETE FOR$IO_END FOR$IO_T_DS FOR$IO_X_DA FOR$READ_KF FOR$WRITE_SFFOR$REWRITE_SF FOR$READ_IF(P%3P>PGPOPYPP"P+&P/[P dPP P P PP-P-: ZIVLEN0114-Sep-1996 16:5314-Sep-1996 16:53VAX FORTRAN V5.9-173 IVLEN IVLENPP[}PQPмPQռRQRSSTDTT PQSPP IVLENG$CODE$PDATA$LOCAL P#9P?P G