AJTMODACE 12-SEP-1996 21:15DEC Fortran V6.2-508 $DATA$$BSS$$IODATA$i!$CODE$$LINK$ FFFIII FFIIDD0JJTMODACELIB$GET_FOREIGN(JdILENLIB$SYS_TRNLOG(JFGETFID DFOR$OPEN DFOR$HANDLER DFOR$CLOSE SYS$GETDVIW(J IVLENLIB$WAIT(JGETPVJTSCR SYS$ASSIGNREPLENT SYS$DASSGN DFOR$EXITDFOR$WRITE_SEQ DFOR$REWRITE DFOR$READ_INT_FMT DFOR$READ_KEY DFOR$WRITE_INT_FMT DFOR$WRITE_INT_FMT_XMIT DFOR$READ_INT_FMT_XMITSYS$OPENGETFIDOTS$MOVEOTS$FILL OTS$MOVEM OTS$INDEX OTS$DIV_IOTS$STRCMP_LEQS =6M76M76 JTD$DB:OPHHW.GDB76 JTD$DB:OPWHW.GDB76\76V7 =P#(~^^~cGGG0"0J`HFG0"Q2v^J`SH@FQ0 0"0"0"G0 !9Hr@J2D TG001'J`H F00 0"0B00"0 0"0"B"4G@B@Zk4GG8B@Zk00"000"0B0b00B 0bD?$! X=0"\_&R"`]"dX"`="0BR"GG B(b@Zk0"00"0BR"GTGB@ZkG8B@Zk0¦.JB 0G8G0"9?G8*G 0x"0BR"G@B@ZkTG4G0"@B"B@Zk0@00"B"4G@B@Zk4GG8B@Zk0"9 0"!!1 @0x"0BxR"GGB@ZkG8B@Zk0¦֢0TG @0"0BR"GTBGTGB@ZkG8B@Zk'P#X0"x! \=X"4GXb@0"0FF0"111 B0B2B"0bs31`B0"3aJ`X}0 "h("?&1"X}"HGPBXb@ZkP""0$ X("X]"tGBb@Zkh""0( X("X]"tGBb@Zk0(?"Bb@Zk0,0("F0(ײ0 0",9?$!OC0 00" 10Br3Jq JqFr0B$Z0b vHzS@KD0(0զ6JtJFն0⦌79v>K70"0"_&R"X] \'P{#`}0"dX"0"41"`]"tGBb@Zk0"000.0"40"0BR"GGB@ZkG8B@Zk<Ðb"0¦֢0x"6J4G`Xݶ4Gh=pxTG("tG_&R"X"GpBxb@ZkGb"("tG_&R"GGBb@ZkG4G0x"xB"B@Zk0@040"490"0BxR"GGB@ZkG8B@Zk?$P! X=0"\#4GGX]"0b0"GGBb@Zk00"0BR"GGB@ZkG8B@Zk0"!?D+D 0"0BR"G@B@Zk4GG8B@ZkG4G0"xB"B@Zk0@080"89 0"8!!1 @0"0BR"GGB@ZkG8B@Zk""&"Xݲ0 \X"TGb3@0"<4G0"@0BK80BdTG4G0"B"B@Zk0@ 0"B"4G@B@Zk4GG8B@Zk4G0"dTG4G0"B"B@Zk0@0d0C0"d0" =d!!1 @TG0"!BQ.sJRQJSFQ>TGTG0"B"B@Zk0@00"9J 0"!0 @TG10B4G0C"`B"B@Zk0@0h0"h90"!!C0 @0h00"h10BR12B0 B0bl30h051B4B&4vJBX0C"\X"0"l1"0BpR"0bts"G`b@0p0"0J`HF0"t10Br3v~JqS JqFr4G0`4TGTG0"B"B@Zk0@00"9 0"`! 00BTG10B4G0C"`B"B@Zk0@0h0"h90"!!C0 @0h00"h10BR12B0 B0bl3B"0h051B4B0¦"B4JG`X0 ph("?&1"X}"Hp"GPBXb@ZkGT0"0"1"0BR"0bs"GBb@Zk0d0@0"d0dB0"h0BR2FJFJ0bS04JJ00¦֦6JJ0ײ08KK0"0BhZ0bd{ 1`C!@Cp"B"4G@B@Zk0BR"G@B@ZkX"4Gp]"@B@Zk0"GBGX]"4GB@ZkG8B@Zk0¦d֢B0dײTGTG0"B"B@Zk0@00"90"x!00"`1 0BR0@BTG1pB4G0C"`B"B@Zk0@0h0"h90"!!C0 @0h00"h10B|20bhs03tB0`B0luB"0¦h֢071B6B0BZ#WC6JG`Xݶ0"9#p=h}("?&1"X}"Hp"GPBXb@ZkGx0"0"1"0BR"0bs"GBb@Zk0d0@0"d0dB0"h0BR2FJFJ0bS04JJ00¦֦6JJ0ײ08KK0"0BhZ0bd{ 1`C!@Cp"B"4G@B@Zk0BR"G@B@ZkX"4Gp]"@B@Zk0"GBGX]"4GB@ZkG8B@Zk0¦d֢B0dײ0x=C0"h99CG0x0"x! 1@!1 @0hTG:BTG!!B0"GBG0BR"GTBGB@ZkG8B@Zk3TG4G0"B"B@Zk0@0"0y0"`!v B"00"1"0BTG`X}0¦"hݶ("?&1"X}"H|"GPBXb@ZkG^0"! ?@0B0DV 0"1G1QB0b300զ6JtJFն0⦘8vK0"0"1"0BR"0bs"GBb@Zk0 HH0"00JJ0"0BdR0@B0bdS0d61B0FXh"B"4G@B@ZkX]"4G@B@Zk0BR"G@B@Zk`"Gh]"@B@Zk0"GB`]"G@B@Zk0dB0d0"d9!C0 0"d!V 0¦֢00?FvJ6F0G0Br3Jp1JpFrG05vJpQJF0Bz;~Kz0G4G0 9?K 0"!1v?J!0¦V2^JVEV_&GCR"0b S05B0dT0$"G0BR"GB@ZkG8B@Zk0d0C,@H<0"d90"9@.! VJ>0d0B0."Q0J0>0B4R&2v@JSBX]0BZ#\]X"0"1"GGGGGBb@Zk0"00"1"0BR"tG@BHb@Zk04G0B8b@Zk0"00"BR0bS0d@?"TG0|"hB"B@Zk0@00"92 0"!01 @@?"10B4G0C|"B"B@Zk0@0h0"90"h!!C0 @0h00"10BR51 B21@B0bhӢ@"7B@_#:RC0|"GBG0B|R"GTBGB@ZkG8B@Zk""$@ X0"|9#\=X"TGb@0"0Т0"0Bd4GB<CGG"G0BR"GB@ZkB"GB@ZkGG]"@B@ZkTG9@<CGGGGhB"GB@ZkGGB@Zk@? !7@0|"GBGGGB@ZkG8B@Zk0T8DGb"0"9#`="Xݶ("TG_&R"X"GBb@ZkG0Tb"0 `"X("TG_&R"X"GBb@Zkb"("TG_&R"GGBb@Zk"4G0B8b@Zk4GcG]]}#k{"y#~ ^(^0~8GGG=] 4G8B@2G4G8B@b@Zk8"@8@C.c.CJS cJSF4բ6vJղG"TG(B0b@Zk8@CG ](]0}8@#kGGG!4GxPx4G B]||01B0@P.PJ =DB @x0@x]xRR"_| GGkGGGGGGԢ4G=]R VB'@}s31`BB3.3J]2pN}sB@@N}sSB@! a0`Ba@@ 0 B }s0`B]r BGkGGGGr.rJ*@R4Gݦ B!  B0@ݦ01BPB,H@ ݦ֢0Bв=1 4B?GGGkGGk.V JF4G OTS$MOVE4@ OTS$MOVE4GOTS$FILL4@OTS$FILL4'GLIB$GET_FOREIGN4(b#LIB$GET_FOREIGN4'@LIB$GET_FOREIGN4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4PGXOTS$MOVE4T@XOTS$MOVE4lGt OTS$INDEX4p@t OTS$INDEX4GOTS$MOVE4@OTS$MOVE4GOTS$FILL4@OTS$FILL4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4(G0 OTS$MOVEM4,@0 OTS$MOVEM44G<OTS$FILL48@<OTS$FILL<GDFOR$READ_INT_FMT<b#DFOR$READ_INT_FMT<@DFOR$READ_INT_FMT<!GDFOR$READ_INT_FMT_XMIT<"b#DFOR$READ_INT_FMT_XMIT<! @DFOR$READ_INT_FMT_XMIT<!,G8DFOR$READ_INT_FMT_XMIT<"0b#DFOR$READ_INT_FMT_XMIT<!4@8DFOR$READ_INT_FMT_XMIT4#DGP OTS$DIV_I4$Hb# OTS$DIV_I4#L@P OTS$DIV_I4-hGtLIB$SYS_TRNLOG4.lb#LIB$SYS_TRNLOG4-p@tLIB$SYS_TRNLOG4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4 G$ DFOR$OPEN4b# DFOR$OPEN4  @$ DFOR$OPEN4HGT DFOR$CLOSE4Lb# DFOR$CLOSE4P@T DFOR$CLOSE4hGp OTS$INDEX4l@p OTS$INDEX4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G SYS$GETDVIW4b# SYS$GETDVIW4@ SYS$GETDVIW4 G( OTS$MOVEM4$@( OTS$MOVEM4,G4OTS$FILL40@4OTS$FILL4\GdOTS$MOVE 4`@dOTS$MOVE4lGtOTS$FILL4p@tOTS$FILL4G OTS$INDEX4@ OTS$INDEX4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4`GhOTS$STRCMP_LEQS4d@hOTS$STRCMP_LEQS< G DFOR$READ_INT_FMT< b#DFOR$READ_INT_FMT< @ DFOR$READ_INT_FMT40 G8 OTS$MOVEM44 @8 OTS$MOVEM4< GD OTS$FILL4@ @D OTS$FILL4d Gl OTS$INDEX4h @l OTS$INDEX4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4H GP OTS$MOVEM4L @P OTS$MOVEM4T G\ OTS$FILL4X @\ OTS$FILL< 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_XMIT40 G8 OTS$INDEX44 @8 OTS$INDEX4t G| OTS$MOVEM4x @| OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4 G OTS$INDEX4 @ OTS$INDEX4 G OTS$MOVEM4 @ OTS$MOVEM4 G OTS$FILL4 @ OTS$FILL4H GP OTS$MOVEM4L @P OTS$MOVEM4T G\ OTS$FILL4X @\ OTS$FILL< 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 DFOR$OPEN4 b# DFOR$OPEN4  @ DFOR$OPEN4+`Gl DFOR$READ_KEY4,db# DFOR$READ_KEY4+h@l DFOR$READ_KEY4GLIB$WAIT4b#LIB$WAIT4@LIB$WAIT 4XG` OTS$INDEX4\@` OTS$INDEX4xGOTS$MOVE4|@OTS$MOVE4GOTS$FILL4@OTS$FILL4G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4@ OTS$INDEX4\Gd OTS$INDEX4`@d OTS$INDEX4pGx OTS$INDEX4t@x OTS$INDEX4G OTS$INDEX4@ OTS$INDEX<|GDFOR$READ_INT_FMT<b#DFOR$READ_INT_FMT<@DFOR$READ_INT_FMT,GJTSCR,b#JTSCR,@JTSCR4lGtOTS$MOVE4p@tOTS$MOVE4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4G OTS$INDEX4@ OTS$INDEX4XG` OTS$INDEX4\@` OTS$INDEX< G,DFOR$READ_INT_FMT<$b#DFOR$READ_INT_FMT<(@,DFOR$READ_INT_FMT,XGdJTSCR,\b#JTSCR,`@dJTSCR4GOTS$MOVE4@OTS$MOVE4$G,OTS$MOVE4(@,OTS$MOVE48G@OTS$MOVE4<@@OTS$MOVE4\Gd OTS$MOVEM4`@d OTS$MOVEM4hGpOTS$FILL4l@pOTS$FILL4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4 @OTS$FILL4(G0 OTS$INDEX4,@0 OTS$INDEX<GDFOR$READ_INT_FMT<b#DFOR$READ_INT_FMT<@DFOR$READ_INT_FMT,@GLJTSCR,Db#JTSCR,H@LJTSCR4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE4GOTS$MOVE4@OTS$MOVE44G< OTS$MOVEM48@< OTS$MOVEM4@GHOTS$FILL4D@HOTS$FILL 4/G SYS$ASSIGN40b# SYS$ASSIGN4/@ SYS$ASSIGN, G REPLENT, b#REPLENT, @ REPLENT4 ,G8 SYS$DASSGN4 0b# SYS$DASSGN4 4@8 SYS$DASSGN4G OTS$INDEX4@ OTS$INDEX4G OTS$INDEX4@ OTS$INDEX4TG\ OTS$MOVEM4X@\ OTS$MOVEM4`GhOTS$FILL4d@hOTS$FILL4G OTS$MOVEM4@ OTS$MOVEM4G OTS$MOVEM4@ OTS$MOVEM4GOTS$MOVE4@OTS$MOVE4,G4 OTS$MOVEM40@4 OTS$MOVEM4<GD OTS$MOVEM4@@D OTS$MOVEM4hGp OTS$MOVEM4l@p OTS$MOVEM4tG|OTS$FILL4x@|OTS$FILL4G DFOR$REWRITE4b# DFOR$REWRITE4@ DFOR$REWRITE4% GDFOR$WRITE_SEQ4&b#DFOR$WRITE_SEQ4%@DFOR$WRITE_SEQ44G@ DFOR$CLOSE48b# DFOR$CLOSE4<@@ DFOR$CLOSE4)HGT DFOR$EXIT4*Lb# DFOR$EXIT4)P@T DFOR$EXIT43GSYS$OPEN44b#SYS$OPEN43@SYS$OPEN,1,G8GETFID,20b#GETFID,14@8GETFID LIB$WAIT SYS$GETDVIW=(8  9  M@=H=I<P=X8OTS$STRCMP_LEQS=Sh= SYS$DISK DFOR$REWRITE=@=(Dev:file or (n,s,v)> SYS$DASSGN REPLENT= ;;=A( DFOR$OPEN=8 =8  =80 DFOR$CLOSEJTSCR=X=8`(DFOR$WRITE_INT_FMT_XMIT;;8 OTS$INDEX8 OTS$MOVEM=0;= 7 DFOR$HANDLER=(;8OTS$FILL8OTS$MOVE; DFOR$READ_INT_FMT=>= =$=:=  DFOR$WRITE_INT_FMT=)8=I@ !DFOR$READ_INT_FMT_XMIT=8X=`=P<p# OTS$DIV_I=K<%DFOR$WRITE_SEQ=  'LIB$GET_FOREIGN) DFOR$EXIT=\+ DFOR$READ_KEY=9=88==@48       2 3   @@;P-LIB$SYS_TRNLOG=p/ SYS$ASSIGN=A=0 ;=@ 1GETFID3SYS$OPEN= 0d;== 0;== 0 ;= D=4,+JTMODACEDEC Fortran V6.2-508 = 44=JTMODACE4=rؼ  ؼ, ܁ ȼ ؼؼ     0X 1 b)(  $= ,4 := T4=  = 44= FGETFID4="  $= 4 := D4=  = d44= ILENd4=# S V $= p4 := 4=  = 44= GETPV4=' _ f $=  4 :=  4=  =  44= IVLEN 4=3+* o s y o $=  4 := !4=  =