>DELDO 1-OCT-2000 15:41 Digital Fortran 77 T7.1-61 T$DATA$$BSS$@$IODATA$i$CODE$$LINK$(J`DELDODFOR$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$CONVERTFOR$RAB SYS$FLUSHLIB$RENAME_FILEJTSPAWN DFOR$WRITE_INT_FMT DFOR$WRITE_INT_FMT_XMIT DFOR$WRITE_SEQ_FMT 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 =#~^^~ (0޴8cGGGGG8}88 "4GBb@Zk00"!W _0P"10BR QB 0bstb""G_&R"GG0B8b@Zk"!# 0"b"B"G4GP]H#X4G`]TGhTGpxTGݶ"G_&R"H"G0B8b@Zk@4G0%0B2e0tG0¦G00"P9#0B:0b{#0`?$0P0%0BT2e0Xtd0¦h00"y3gJgJ4G0"0BR"GTB?"B@ZkG8B@Zk?"4G0"B"`B@Zk0@00"9 C0"!!@9D 035B0"0BR"?"B@ZkG8B@Zkp""&"Hݲ0 CLH"TGPBXb@Zk0"0" C0bS0â0ײ0x3gJgJ4G0"0BR"GTB?"B@ZkG8B@Zk""$ H0¦"CLݲH"TGPBXb@Zk0" `$B"?"0bs0"0 0¦"0"PH=`X}pݶh"?&1"H}"GBb@Zkh"" H"H]"tG@BHb@Zk`!B"? `"0" 10bs"0"PH=Xh}`="?&1"H}"$"GBb@Zkh"" H"H]"tG@BHb@Zk`%B"? 00"1"0b s0"0"PH=`=Xph}"?&1"H}"P"GBb@Zkh"" H"H]"tG@BHb@Zk`!B"? `"0" 10bs"0"PH=Xh}`="?&1"H}""GBb@Zkh"" H"H]"tG@BHb@Zk""$ H0"CLH"TGPBXb@Zk0"00"1"0vJ_&FHCL=&"P0"CTH"GP]"0bs"G0"G`Bhb@Zk0"0T"?"G8B@Zk0T"?"G8B@Zk"& "HݲCL?'9#P=0"T! CT=H"0"$1"P]"tGBb@Zk0" 0 0F0" 0B R @4G0$t0T"?"G8B@Zk"& "HݲCL?'9#P=0"T! CT=H"0"(1"P]"tGBb@Zk0" ?"TG0T"B"`B@Zk0@0,0",9 0" 0 0F0" 0B R @4G0(t0T"B"4GB@Zk?"G8B@Zkx""&"Hݲ0T CLH"TGPBXb@Zk0"0?"4G0T"B"`B@Zk0@040"490"0!= @!G 000B0"40B4R6@0bs0441B0"3v`J&vFH}CL0bT{#4vJ$FPCT}H"P="TGBb@Zk0"808%?&1"B0B4"3uB0T"0BTR"GTB?"B@ZkG8B@Zk4GĢFmx""&"H0"T9#CL=H"TGPBXb@Zk0"0?"4G0T"B"`B@Zk0@040"490"0!= @!G 000B0"40B0R5@B @?"4G0T"B"`B@Zk0@5@:04=C40"90"4!!1 @0"9v K?&1GH=CL0T"!v H&5DP=CTH"P="TGBb@Zk0"808%?&1"B0B4"3uB0T"0BTR"GTB?"B@ZkG8B@Zk4Gpð"0"<1"GtGBb@Zk0""0"@1"GtGBb@Zk0"B"0 "P4GH}0<"X"?&1"H}""GBb@ZkB"0 PGH0b@s"X}"?&1"H}""GBb@ZkxB"0 0"! PGH=X="?&1"H}""GBb@Zkp""0 H"H]"tG@BHb@Zk@""0 H"H]"tG@BHb@Zk035@GaB#7CF C # C#"G0B_BR"B@ZkB"GB@Zk0 "W"GGB@ZkG8B@ZkP""?'9#H=0 #CLH"TGPBXb@Zk0"DpF0"H0BHRU@B@G4GdbF`tG0DԢ"B"GB@Zk0B R"G4GB@Zk0 "GG33B]"B@ZkG8B@Zk0DB0D0"90D0"! 9v K&6GHݲCL=0" 1" vH_&DPCT=H"P="GGGGBb@Zk0"0"4G@BHb@Zk0"0GGTGpBxb@Zk0"0u$$F- b"0BDR0 "00¦"00#PH]`ݶXp =h"G_&R"H""G`Bhb@Zk"4GPBXb@Zk0"04GBb@Zk0"4GFDtGBG0"H15 B 0BDҢ"B"GB@Zk0B R"G4GB@Zk0 "GG33B]"B@ZkG8B@Zk0DB0D""?'9#H=0" ! CL=H"TGPBXb@Zk0"D00"D10BR"0vJ&FHCL]0¦ "1v J&7FP=CTݲ# (H"P="GGGGGBb@Zk0"0G$$F- b"0BDR0 "00¦"00#PH]`ݶXph"G_&R"H""G`Bhb@Zk"4GPBXb@Zk0"04GBb@Zk0"tG0HuB4G$"F tG0BDҢ"B"GB@Zk0B R"G4GB@Zk0 "GG33B]"B@ZkG8B@Zk0DB0D0"90D0"! 9v K&6GHݲCL=0" 1" vH_&DPCT=H"P="GGGGBb@Zk0"0hGGTGpBxb@Zk0"0]tGB"?"0bs0"0D0¦ "0T "PH=`X}pݶh"?&1"H}""GBb@Zkp""0 H"H]"tG@BHb@Zkp""0 H"H]"tG@BHb@Zk@""0 H"H]"tG@BHb@Zk""$ H0T "CLH"TGPBXb@Zk0"L0L""0BT R"0vJ&FHCL]H"TGBb@Zk0" GGGGcG]]} (0ݤ8@#k4XGdDFOR$SECNDS_VF4\b#`DFOR$SECNDS_VF4`@dDFOR$SECNDS_VF4'G DFOR$CLOSE4(b#` DFOR$CLOSE4'@ DFOR$CLOSE4TG` DFOR$OPEN4Xb#` DFOR$OPEN4\@` DFOR$OPEN40G8 OTS$MOVEM44@8 OTS$MOVEM4<GDOTS$FILL4@@DOTS$FILL4!XG` OTS$INDEX4!\@` OTS$INDEX4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL,GIVLEN, b#`IVLEN,@IVLEN4\Gd OTS$MOVEM4`@d OTS$MOVEM4hGpOTS$FILL4l@pOTS$FILL,GIVLEN, b#`IVLEN,@IVLEN<G DFOR$WRITE_INT_FMT<b#`DFOR$WRITE_INT_FMT<@ DFOR$WRITE_INT_FMT<8GDDFOR$WRITE_INT_FMT_XMIT<<b#`DFOR$WRITE_INT_FMT_XMIT<@@DDFOR$WRITE_INT_FMT_XMIT<GDFOR$WRITE_INT_FMT<b#`DFOR$WRITE_INT_FMT<@DFOR$WRITE_INT_FMT<GDFOR$WRITE_INT_FMT_XMIT<b#`DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT<<GHDFOR$WRITE_INT_FMT<@b#`DFOR$WRITE_INT_FMT<D@HDFOR$WRITE_INT_FMT<`GlDFOR$WRITE_INT_FMT_XMIT<db#`DFOR$WRITE_INT_FMT_XMIT<h@lDFOR$WRITE_INT_FMT_XMIT <GDFOR$WRITE_INT_FMT<b#`DFOR$WRITE_INT_FMT<@DFOR$WRITE_INT_FMT<GDFOR$WRITE_INT_FMT_XMIT<b#`DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT, G,IVLEN, $b#`IVLEN,(@,IVLEN4+GLIB$FID_TO_NAME4,b#`LIB$FID_TO_NAME4+@LIB$FID_TO_NAME4GOTS$FILL4@OTS$FILL4GOTS$FILL4@OTS$FILL4(G4LIB$SYS_TRNLOG4,b#`LIB$SYS_TRNLOG40@4LIB$SYS_TRNLOG4xGOTS$FILL4|@OTS$FILL4GLIB$SYS_TRNLOG4b#`LIB$SYS_TRNLOG4@LIB$SYS_TRNLOG4!G OTS$INDEX4!@ OTS$INDEX4TG\OTS$MOVE4X@\OTS$MOVE4dGlOTS$FILL4h@lOTS$FILL,GIVLEN, b#`IVLEN,@IVLEN4!G OTS$INDEX4!@ OTS$INDEX4l Gx STR$MATCH_WILD4p b#`STR$MATCH_WILD4t @x STR$MATCH_WILD4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL, G$ IVLEN,  b#`IVLEN, @$ IVLEN4!@ GH OTS$INDEX4!D @H OTS$INDEX4! G OTS$INDEX4! @ OTS$INDEX4, G8 STR$MATCH_WILD40 b#`STR$MATCH_WILD44 @8 STR$MATCH_WILD4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILLD G LIB$CVT_FROM_INTERNAL_TIMED b#`LIB$CVT_FROM_INTERNAL_TIMED @ LIB$CVT_FROM_INTERNAL_TIMED G LIB$CVT_FROM_INTERNAL_TIMED b#`LIB$CVT_FROM_INTERNAL_TIMED @ LIB$CVT_FROM_INTERNAL_TIME<4 G@ DFOR$WRITE_INT_FMT<8 b#`DFOR$WRITE_INT_FMT<< @@ DFOR$WRITE_INT_FMT< G DFOR$WRITE_INT_FMT< b#`DFOR$WRITE_INT_FMT< @ DFOR$WRITE_INT_FMT< G DFOR$WRITE_INT_FMT< b#`DFOR$WRITE_INT_FMT< @ DFOR$WRITE_INT_FMT< G DFOR$WRITE_INT_FMT_XMIT< b#`DFOR$WRITE_INT_FMT_XMIT< @ DFOR$WRITE_INT_FMT_XMIT< G( DFOR$WRITE_INT_FMT_XMIT < b#`DFOR$WRITE_INT_FMT_XMIT<$ @( DFOR$WRITE_INT_FMT_XMIT4| G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL, G IVLEN,  b#`IVLEN, @ IVLEN4DGLOTS$MOVE4H@LOTS$MOVE4\Gd OTS$MOVEM4`@d OTS$MOVEM4|G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4# GCONV$PASS_FILES4$b#`CONV$PASS_FILES4#@CONV$PASS_FILES<)8GDCONV$PASS_OPTIONS<*<b#`CONV$PASS_OPTIONS<)@@DCONV$PASS_OPTIONS4 dGp CONV$CONVERT4hb#` CONV$CONVERT4 l@p CONV$CONVERT< GDFOR$WRITE_SEQ_FMT< b#`DFOR$WRITE_SEQ_FMT< @DFOR$WRITE_SEQ_FMT, GFOR$RAB, b#`FOR$RAB, @FOR$RAB4%0G< SYS$FLUSH4&4b#` SYS$FLUSH4%8@< SYS$FLUSH4GOTS$MOVE4@OTS$MOVE4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL, GIVLEN, b#`IVLEN,@IVLEN4GLIB$RENAME_FILE4b#`LIB$RENAME_FILE4@LIB$RENAME_FILE< HGTDFOR$WRITE_SEQ_FMT< Lb#`DFOR$WRITE_SEQ_FMT< P@TDFOR$WRITE_SEQ_FMT, \GhFOR$RAB, `b#`FOR$RAB, d@hFOR$RAB4%|G SYS$FLUSH4&b#` SYS$FLUSH4%@ SYS$FLUSH4GOTS$MOVE4@OTS$MOVE4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4 @ OTS$MOVEM4GOTS$FILL4@OTS$FILL4#GCONV$PASS_FILES4$b#`CONV$PASS_FILES4#@CONV$PASS_FILES4 G CONV$CONVERT4b#` CONV$CONVERT4 @ CONV$CONVERT<LGXDFOR$WRITE_INT_FMT<Pb#`DFOR$WRITE_INT_FMT d<T@XDFOR$WRITE_INT_FMT<tGDFOR$WRITE_INT_FMT_XMIT<xb#`DFOR$WRITE_INT_FMT_XMIT<|@DFOR$WRITE_INT_FMT_XMIT<GDFOR$WRITE_INT_FMT_XMIT<b#`DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT<GDFOR$WRITE_INT_FMT_XMIT<b#`DFOR$WRITE_INT_FMT_XMIT<@DFOR$WRITE_INT_FMT_XMIT,GIVLEN, b#`IVLEN,@IVLEN,@GLJTSPAWN,Db#`JTSPAWN,H@LJTSPAWN =0#GCY$DELEXC(=.SAV0=@DFOR$SECNDS_VFJTSPAWN=p LIB$RENAME_FILE= DFOR$OPEN= FOR$RAB DFOR$WRITE_SEQ_FMT CONV$CONVERT(LIB$CVT_FROM_INTERNAL_TIME=*LIB$SYS_TRNLOGSTR$MATCH_WILD=888delsav:8OTS$MOVE; DFOR$WRITE_INT_FMT;8 OTS$MOVEM=0;=@0| 7 DFOR$HANDLER=4;8OTS$FILL(DFOR$WRITE_INT_FMT_XMITIVLEN8 OTS$INDEX= == ,= 8 8GCY$DELINC=888 #CONV$PASS_FILES% SYS$FLUSH=8 @= gce$delseq:delrecs.seqX=:`=808      ' DFOR$CLOSE )CONV$PASS_OPTIONS= +LIB$FID_TO_NAME=8= G=7/. DELDODigital Fortran 77 T7.1-61 = 4`4= DELDO4=7/جĨ  v* v vĸ  , $= P4 := l4=  =