>DELDO 1-OCT-2000 16:17!Digital Fortran 77 V7.1-107 T$DATA$H$BSS$@$IODATA$i$CODE$$LINK$(J8DELDODFOR$SECNDS_VF DFOR$CLOSE DFOR$HANDLER DFOR$OPENIVLENLIB$FID_TO_NAMELIB$SYS_TRNLOGSTR$MATCH_WILD(LIB$CVT_FROM_INTERNAL_TIMECONV$PASS_FILES CONV$PASS_OPTIONS CONV$CONVERTLIB$RENAME_FILEJTSPAWN DFOR$WRITE_INT_FMT DFOR$WRITE_INT_FMT_XMIT DFOR$WRITE_SEQ_FMT DFOR$WRITE_SEQ_FMT_XMIT OTS$MOVEMOTS$FILL OTS$INDEXOTS$MOVE t= 6= 6  `=H@6H$HW:76$W$HW:76 gcy$cm:SDH$HW.GDB76 gcy$cm:SD$W$HW.GDB76W 76W76\76H,H,H76@gcy$cm:softlk H H V7 =#4G^([~^~ ޴(08>@^H~PX`޵hpcGGG("0{GG@ZkWh"HB_&GR"b"8GG8ݠG @Pb"@Zkh!h"B"G4GXBTGb"@]84GH_&P="XG`R"h}8"Gp4G`b@Zkh"Gd%hE4G#0B 55!UG4@5?"ղ3J4GgJ@ZkBG@ZkB4G?"GB"@Zk0@0@@G&0"XP"F00?"PG 0`35@GB@ZkBG@Zk&XB"`b88"<=""TG@Zk %0BB8?'J!9#G&?"4G F3GJ4@gJ@ZkBG@ZkXB@=@"`bx""D]TG@Zk`G0""B1"bHB"GH=@}X=?&"1"@}"8ݢPݶ@Zk8B@bH]"@ݴ""@]"tG@Zk8B @b@"""@]"tG@Zk`%0"HB1""`"bB"$"G H=?&@}1"P"@}"@Zk8B@bH]"@ݴ""@]"tG@Zk8B @b@"""@]"tG@Zk`%0_"H"B?&b1"@}"P"G H@]"X=B"%!8P@Zk8B@b@]"8ݴ""8]"tG@Zk8B@b"8=""8]"tG@Zk`0HB_""`% ?&b1"8}""G@8]"H=B"@Zk8B@]"@b""8ݴ8]"tG@Zk8B%!@b"8=""8]"tG@Zk0¤?%XB)! 8=8"`bX""<ݰTG@Zk*vH$0b EA%Bk!8]S!<ݰ G@}8"D]G@]"G G"bG@ZkBl ?"GG@ZkB!?$G?"G@Zkh 0"B ! C8=<8"@}1"D}@]"tGb@ZkB0"G?"G@Zk4G&0" "6M@Bb88"<ݲ 1"@}@]"DtG@ZkBGTG?"GB"@Zk0@pBDGB"4G4G@ZkB?"G@Zk0" !8"XB`b8}""<}TG@ZkBG4G?"GB"@Zk 0@=C0CE8G%%!J0!vH@01AxB0vJb@8ݱ<]@="@8"D}TG@Zk@ B3 AGGm@?"@ZkBGTG@ZkXB`b8}8"<}""@ZkBG4G?"GB"@Zk 0@=C0CE8G4GGGcG]]} ݤ(08=@]H}PX`ݥhp#kFAXB`b8}<8"""TG@ZkB G4G?"GB"@Zk0@=A0A5AEE B4G?"GB"@Zk0@5@"=A?0/1A/vIxB%%@!8vHb@8"8@="<]TG@D@Zk @ B3AGGA?"@ZkBG@Zk0bhBpb"+"GtG@ZkhBpb"+"GtG@ZkH¥%B !4G! !@8"HGB"8}"GGb@ZkB !G!@ "8"HGB"8}"G !b@ZkBGk!@8"H}"GB"8}"Gb@Zk8B !@b"8""8]"tG@Zk8B!@b8"""8]"tG@Zk35 A#`BG6CGF C # CBGGG@ZkBB"G@ZkB"GGG@ZkBG%@ZkXB!8`b8"<`""TG@ZkGpBB"GpDUB\ Gx"G@ZkBGG4G@ZkBGGG33Bx]"@ZkBG@@Zk05v`HB@ܢb8"@="6vJG@G8ݲG<]D@D@ZkhBb"4G@Zk BbGGTG@Zk B@$"b"8}GGb"8"G@ZkxBb@ݴ8="""8]"tG@Zk0xB@]"b""8]"8tG@Zk4GDtDà5BG_pBx"B"G@ZkBGG4G@ZkBGGG33Bx]"@ZkBGTGD@ZkXB88"`b""<@Zk02vH@HBPbG8",vI@=" @G8G<]G@]GD#G@ZkG B@$"b"8GGb"8"G@ZkxBb@ݴ8="""8]"tG@Zk0xB@]"b""8]"8tG@ZktGe_uBbpBx"B"G@ZkBGG4G@ZkBGGG33Bx]"@ZkBGA@Zk0 vIBܠ@b8"&vH@="@G8ݰG<]G@GD@ZkRBbGGTG@ZkK0B<  @ݴ8H"P]"H=GB"8}"G b@Zk8B@b@"8""8]"tG@Zk8B@b8}""" =8]"tG@Zk8B@b8"""8]"tG@Zk8Bk!@b8}"""8]"tG@Zk?%XB)!`b8=8"<ݰ""TG@Zk vH8B@@b88"<ݰ8""TG@ZktG CG4% GxDFOR$SECNDS_VF4&hb#8DFOR$SECNDS_VF4%t@xDFOR$SECNDS_VF4'G DFOR$CLOSE4(b#8 DFOR$CLOSE4'@ DFOR$CLOSE4G@ DFOR$OPEN48b#8 DFOR$OPEN4<@@ DFOR$OPEN4hG OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4 G OTS$INDEX4 @ OTS$INDEX4G$ OTS$MOVEM4 @$ OTS$MOVEM4$G0OTS$FILL4,@0OTS$FILL,4GXIVLEN,<b#8IVLEN,T@XIVLEN4lG OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL,GIVLEN,b#8IVLEN,@IVLEN<G0DFOR$WRITE_INT_FMT<b#8DFOR$WRITE_INT_FMT<,@0DFOR$WRITE_INT_FMT<0GTDFOR$WRITE_INT_FMT_XMIT<4b#8DFOR$WRITE_INT_FMT_XMIT<P@TDFOR$WRITE_INT_FMT_XMIT<TGxDFOR$WRITE_INT_FMT_XMIT<\b#8DFOR$WRITE_INT_FMT_XMIT<t@xDFOR$WRITE_INT_FMT_XMIT<GDFOR$WRITE_INT_FMT<b#8DFOR$WRITE_INT_FMT<@DFOR$WRITE_INT_FMT<GDFOR$WRITE_INT_FMT_XMIT<b#8DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT<GDFOR$WRITE_INT_FMT_XMIT<b#8DFOR$WRITE_INT_FMT_XMIT< @DFOR$WRITE_INT_FMT_XMIT<$GhDFOR$WRITE_INT_FMT<,b#8DFOR$WRITE_INT_FMT<d@hDFOR$WRITE_INT_FMT<hGDFOR$WRITE_INT_FMT_XMIT<lb#8DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT<GDFOR$WRITE_INT_FMT_XMIT<b#8DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT<GDFOR$WRITE_INT_FMT<b#8DFOR$WRITE_INT_FMT<@DFOR$WRITE_INT_FMT<G DFOR$WRITE_INT_FMT_XMIT<b#8DFOR$WRITE_INT_FMT_XMIT<@ DFOR$WRITE_INT_FMT_XMIT< GDDFOR$WRITE_INT_FMT_XMIT<(b#8DFOR$WRITE_INT_FMT_XMIT<@@DDFOR$WRITE_INT_FMT_XMIT,LGtIVLEN,`b#8IVLEN,p@tIVLEN4GLIB$FID_TO_NAME4b#8LIB$FID_TO_NAME 4@LIB$FID_TO_NAME4GOTS$FILL4@OTS$FILL4GOTS$FILL4@OTS$FILL4G<LIB$SYS_TRNLOG44b#8LIB$SYS_TRNLOG48@<LIB$SYS_TRNLOG4@GXOTS$FILL4T@XOTS$FILL4pGLIB$SYS_TRNLOG4tb#8LIB$SYS_TRNLOG4@LIB$SYS_TRNLOG4 G OTS$INDEX4 @ OTS$INDEX4GOTS$MOVE4@OTS$MOVE4GOTS$FILL4@OTS$FILL,GIVLEN,b#8IVLEN,@IVLEN4 G0 OTS$INDEX4 ,@0 OTS$INDEX4 dGSTR$MATCH_WILD4 lb#8STR$MATCH_WILD4 @STR$MATCH_WILD4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL,GIVLEN,b#8IVLEN,@IVLEN4 G OTS$INDEX4 @ OTS$INDEX,GIVLEN,b#8IVLEN,@IVLEN4 G OTS$INDEX4 @ OTS$INDEX4 G OTS$INDEX4 @ OTS$INDEX4  GT STR$MATCH_WILD4 , b#8STR$MATCH_WILD4 P @T STR$MATCH_WILD4\ Gx OTS$MOVEM4t @x OTS$MOVEM4x G OTS$FILL4 @ OTS$FILLD  G LIB$CVT_FROM_INTERNAL_TIMED  b#8LIB$CVT_FROM_INTERNAL_TIMED  @ LIB$CVT_FROM_INTERNAL_TIMED  G LIB$CVT_FROM_INTERNAL_TIMED  b#8LIB$CVT_FROM_INTERNAL_TIMED  @ LIB$CVT_FROM_INTERNAL_TIME< G DFOR$WRITE_INT_FMT< b#8DFOR$WRITE_INT_FMT< @ DFOR$WRITE_INT_FMT< GP DFOR$WRITE_INT_FMT<H b#8DFOR$WRITE_INT_FMT<L @P DFOR$WRITE_INT_FMT<P G DFOR$WRITE_INT_FMT< b#8DFOR$WRITE_INT_FMT< @ DFOR$WRITE_INT_FMT< G DFOR$WRITE_INT_FMT_XMIT< b#8DFOR$WRITE_INT_FMT_XMIT< @ DFOR$WRITE_INT_FMT_XMIT< G DFOR$WRITE_INT_FMT_XMIT< b#8DFOR$WRITE_INT_FMT_XMIT< @ DFOR$WRITE_INT_FMT_XMIT4 G OTS$MOVEM4 @ OTS$MOVEM4 G, OTS$MOVEM4( @, OTS$MOVEM 4, GD OTS$MOVEM4@ @D OTS$MOVEM4D GT OTS$FILL4P @T OTS$FILL,T Gx IVLEN,` b#8IVLEN,t @x IVLEN4 G OTS$MOVE4 @ OTS$MOVE4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4 G4 CONV$PASS_FILES4  b#8CONV$PASS_FILES40 @4 CONV$PASS_FILES<)< GP CONV$PASS_OPTIONS<*@ b#8CONV$PASS_OPTIONS<)L @P CONV$PASS_OPTIONS4!T Gl CONV$CONVERT4"X b#8 CONV$CONVERT4!h @l CONV$CONVERT<#t G DFOR$WRITE_SEQ_FMT<$ b#8DFOR$WRITE_SEQ_FMT<# @ DFOR$WRITE_SEQ_FMT< G DFOR$WRITE_SEQ_FMT_XMIT< b#8DFOR$WRITE_SEQ_FMT_XMIT< @ DFOR$WRITE_SEQ_FMT_XMIT< G DFOR$WRITE_SEQ_FMT_XMIT< b#8DFOR$WRITE_SEQ_FMT_XMIT< @ DFOR$WRITE_SEQ_FMT_XMIT4 G( OTS$MOVE4$ @( OTS$MOVE4( G< OTS$MOVEM48 @< OTS$MOVEM4< GX OTS$MOVEM4T @X OTS$MOVEM4X Gl OTS$FILL4h @l OTS$FILL,l G IVLEN,x b#8IVLEN, @ IVLEN4 G LIB$RENAME_FILE4 b#8LIB$RENAME_FILE4 @ LIB$RENAME_FILE<#G4DFOR$WRITE_SEQ_FMT<$b#8DFOR$WRITE_SEQ_FMT<#0@4DFOR$WRITE_SEQ_FMT<4GXDFOR$WRITE_SEQ_FMT_XMIT<8b#8DFOR$WRITE_SEQ_FMT_XMIT<T@XDFOR$WRITE_SEQ_FMT_XMIT<\GDFOR$WRITE_SEQ_FMT_XMIT<lb#8DFOR$WRITE_SEQ_FMT_XMIT<@DFOR$WRITE_SEQ_FMT_XMIT4GOTS$MOVE4@OTS$MOVE4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G8CONV$PASS_FILES4 b#8CONV$PASS_FILES44@8CONV$PASS_FILES4!<GT CONV$CONVERT4"@b#8 CONV$CONVERT4!P@T CONV$CONVERT<\GDFOR$WRITE_INT_FMT<b#8DFOR$WRITE_INT_FMT<@DFOR$WRITE_INT_FMT<GDFOR$WRITE_INT_FMT_XMIT<b#8DFOR$WRITE_INT_FMT_XMIT d<@DFOR$WRITE_INT_FMT_XMIT<GDFOR$WRITE_INT_FMT_XMIT<b#8DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT<GDFOR$WRITE_INT_FMT_XMIT<b#8DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT<G(DFOR$WRITE_INT_FMT_XMIT< b#8DFOR$WRITE_INT_FMT_XMIT<$@(DFOR$WRITE_INT_FMT_XMIT,,GPIVLEN,4b#8IVLEN,L@PIVLEN,TGxJTSPAWN,\b#8JTSPAWN,t@xJTSPAWN x=   LIB$FID_TO_NAME=88=.SAV@=H= gce$delseq:delrecs.seq`=pJTSPAWN LIB$RENAME_FILE DFOR$OPEN( LIB$CVT_FROM_INTERNAL_TIME STR$MATCH_WILD=8== GCY$DELINC=8 =,= delsav:= 8 OTS$INDEX DFOR$WRITE_INT_FMT=8(8OTS$FILL8 OTS$MOVEM=0;=\ 7 DFOR$HANDLER=0;(DFOR$WRITE_INT_FMT_XMIT;IVLEN;8OTS$MOVE(DFOR$WRITE_SEQ_FMT_XMIT=88=*LIB$SYS_TRNLOG CONV$PASS_FILES! CONV$CONVERT #DFOR$WRITE_SEQ_FMT=8 (=0"8      :P=`%DFOR$SECNDS_VF=' DFOR$CLOSE=(GCY$DELEXC= )CONV$PASS_OPTIONS H=80/DELDODigital Fortran 77 V7.1-107 [= 484= DELDO4= 7 4     (  $ P     / 4 9 K Nh P h v v v v v( r  $= t4 := (4=  =