D SET_LOGICAL 18-MAR-1994 16:45DEC Fortran T6.2-444 p$LINK$iD $CODE$ $IODATA$8$BSS$P$DATA$0J@ SET_LOGICALLIB$SET_LOGICAL0JDELETE_LOGICAL LIB$DELETE_LOGICAL8J TRANSLATE_LOGICALLIB$SYS_TRNLOG0J LIB_SPAWN LIB$SPAWN0Jp@GET_IMAGE_NAME SYS$GETJPILIB$STOP SYS$WAITFR(J@GTMODE STR_TRIM2(JPGTUSER(JINCHAR SYS$ASSIGNSYS$QIO SYS$READEF DFOR$READ_SEQ_FMT DFOR$HANDLER OTS$MOVEMOTS$FILLOTS$MOVEOTS$STRCMP_EQLP OTS$INDEX =NETWORKBATCH=OTHER  SYS$GETJPI8 OTS$MOVEM;=0 ;=P ;8OTS$FILLLIB$STOP STR_TRIM2= INTERACTIVE SYS$WAITFR=0`;= 7 DFOR$HANDLER=8OTS$MOVE= SYS$ASSIGN8OTS$STRCMP_EQLPSYS$QIO SYS$READEF;@ DFOR$READ_SEQ_FMT=0;=0 =0@;=@< 8 OTS$INDEX=]=.=0;=  LIB$SPAWN=0 ;=0 LIB$SYS_TRNLOG=0;= LIB$DELETE_LOGICAL=0;=0 !LIB$SET_LOGICAL =L D #$~ ^TG G..1,Q.J [U J1H({R QJ1F2DCCCF_&CB D @="="@ZkG] 0#kG#$~4G^0,G0. [0H({Q 0J1DC!v H @ "@ZkG] #kG#$~ ^tG G..2,r.J [V J2H({S rJRF3DCCCF&CB D @]"]"@ZkG] 0#kG#$~4G^0,G0.([0H0{Q 0J1DC!v H @ "@ZkG] #kG#G~G^G^G~ (0G,G0,GbHBA 0Hb@3@s"DaH ?J#D4GGs@Zk4GBbG@Zk0B8b4G4G@ZkBbG4G@Zk BC4GG(B"@Zk4G BP@91C1@@(B"@Zk4G@0@ B C0B" G91C1@@@Zk@ 1@ @ CCF B5@GG @GGTBG@ZkGB@Zk0@G]]} (0@#k#G~G ^G(^G0~8@GG#b=p,30, 1?JBpHA 0H B3GaDb4GG@Zk4G "0B8b@Zk`B4Ghb4G@Zk "0B4G8b@Zk GB"8D CGGGXDCGGB" GxDCGGPB"tGCGGB"GB@ZkG(B@Zk&tGC@BCHb#v`HGv@}="}="]@ZkG ](]0}8@P#kG#G~G^G^~ (G0,GP.Gb0HBR PJb030s"2Dr H ?J#D4GGGs@Zk4G BG(b@ZkPB4GXb4G@Zk4G B(bG@ZkC@B ,HD#B 11 B#G]]} (0#kp#~`^h^p~xcGGG#8=@]G0H}@] R@Gp"4GGy`bGGpBG3G1?Jxb B3G3@Zk4G"Bb@ZkB4Gb4G@Zk"B4Gb@ZkPB" ( 8 D0BGG@ZkGX DGXB" Gx D 0BGB"tG@Zk4GGG`B"0BG@ZkGBG@Zk& "tGBP"BX="PTXR"b\@ZktGGPBGB" @ZkGGG""&@B " ! PT=P"Hb1"@Zkð? 0""8b"QGP"@B_&PbR"G@ZkV`-`KOIE=FG"TG8=G`BG! 1G>4G0J>R/FJ 4G(Ghb@Zk@Bb4G4G@Zk GH"pB4GxbTG 1"@Zk8D.PJqHF>`c.tKScJtFc>"`/yJXKG?Gc`]h]p}x#k- KO IE=c. KS cJtFc>/ JX KG?4!4GLIB$SET_LOGICAL4"D{#@LIB$SET_LOGICAL4!@LIB$SET_LOGICAL<GLIB$DELETE_LOGICAL< {#LIB$DELETE_LOGICAL<@LIB$DELETE_LOGICAL4TGLIB$SYS_TRNLOG4d{#LIB$SYS_TRNLOG4@LIB$SYS_TRNLOG4G( LIB$SPAWN4{# LIB$SPAWN4$@( LIB$SPAWN4G SYS$GETJPI4b#p SYS$GETJPI4@ SYS$GETJPI4GLIB$STOP4b#pLIB$STOP4@LIB$STOP4 G SYS$WAITFR4 b#p SYS$WAITFR4 @ SYS$WAITFR4GLIB$STOP 4b#pLIB$STOP4@LIB$STOP4G0 OTS$INDEX4,@0 OTS$INDEX44GP OTS$INDEX4L@P OTS$INDEX4\G| OTS$INDEX4x@| OTS$INDEX4G OTS$MOVEM4@ OTS$MOVEM4GOTS$FILL4@OTS$FILL4PG SYS$GETJPI4xb#@ SYS$GETJPI4@ SYS$GETJPI4GLIB$STOP4b#@LIB$STOP4@LIB$STOP4 G SYS$WAITFR4 b#@ SYS$WAITFR4 @ SYS$WAITFR4GLIB$STOP4b#@LIB$STOP4@LIB$STOP4\Gd OTS$MOVEM4`@d OTS$MOVEM4hGpOTS$FILL4l@pOTS$FILL4 |G STR_TRIM24 b#@ STR_TRIM24 @ STR_TRIM24Gh SYS$GETJPI4$b#P SYS$GETJPI4d@h SYS$GETJPI4pGLIB$STOP4xb#PLIB$STOP4|@LIB$STOP4 G SYS$WAITFR4 b#P SYS$WAITFR4 @ SYS$WAITFR4GLIB$STOP4b#PLIB$STOP4@LIB$STOP4G SYS$GETJPI4b# SYS$GETJPI4@ SYS$GETJPI4GLIB$STOP4b#LIB$STOP4@LIB$STOP4 G SYS$WAITFR4 b# SYS$WAITFR4 @ SYS$WAITFR4GLIB$STOP4 b#LIB$STOP4@LIB$STOP4 0G@OTS$MOVE4 <@@OTS$MOVE4 hG|OTS$MOVE4 x@|OTS$MOVE4 GOTS$MOVE4 @OTS$MOVE4GOTS$FILL4@OTS$FILL4 G STR_TRIM24 b# STR_TRIM24 @ STR_TRIM24G OTS$STRCMP_EQLP4 @ OTS$STRCMP_EQLP4 GD SYS$ASSIGN48 b# SYS$ASSIGN4@ @D SYS$ASSIGN< G DFOR$READ_SEQ_FMT< b#DFOR$READ_SEQ_FMT< @ DFOR$READ_SEQ_FMT, G SYS$QIO, b#SYS$QIO, @ SYS$QIO4 , G@ SYS$WAITFR 4 0 b# SYS$WAITFR4 < @@ SYS$WAITFR4X Gp SYS$READEF4` b# SYS$READEF4l @p SYS$READEF ,= 6Q7 ="6= = sys$input0=6=6  G=7/. SET_LOGICALDEC Fortran T6.2-444 = 4@4= SET_LOGICAL4==54 $= 4 := 4=  = 44=DELETE_LOGICAL4=5-,      $= 4 := 4= p =  44=TRANSLATE_LOGICAL 4==54 $= $4 := 4=  = 44= LIB_SPAWN4=5-, $= 4 := $4= p = @4p4=GET_IMAGE_NAME@4=,,,, ,,       ! $ $= D4 := 4=  = 4@4= GTMODE4=tlk / / / /   / /  $ $= 4 := 4=  = 4P4= GTUSER4=ldc 1 1 1 1  1 1    $= 4 := 4= ( = 44= INCHAR4=4, Hv Hv Hx                      (  (  $= 44 .=  4=  =  :=  4= D =