JTMODACE0116-Sep-1996 10:38Digital Fortran V6.4-165JTMODACEP, JTD$DB:OP)).GDB JTD$DB:OP).GDB) (,,))) (,,)    Old:)$Confirm replace [Y/N/A/X]) %EACF-W-File ID ) ACE deleted. Replacing.)) No security record exists file ) Security controls, file:) File id:,,,,, Time access permissions:) Max privs: Tamper xsums: 7 Lists key: S(filename)U(ok-users-list)V(bad-user-list). K(ok-tty-list)L(bad-tty-list)I(ok-image-list)4 J(bad-image-list)B(backup-user-list)A(ACE contents))$@GCY$CM:FILSAV ))))JTMODACEQ @P$ Dev:file or (n,s,v)>Q\I+SYS$DISK:$%PURGE%LISTJTA_LISTFILES()%SUMMJTA_SUMMFILEJTA_SUMMLEN%GBLEDIT%GBLEDITCONN%REGENA(%DELETE%SYMSJTA_ZFIDJTA_ITIMJTA_MXPVJTA_CKSMJTA_PSWDU(JTA_USRSV(JTA_FUSRZ(JTA_ZCMDX(JTA_XCMDK(JTA_TTYSL(JTA_FTTYI(JTA_IMGSJTA_SURWR/WR/OJ(JTA_FIMGB(JTA_BKPUJTA_FNAMD(JTA_CSLKR(JTA_NSLKJTA_INSPJTA_BPRIJTA_RPRVJTA_IDNT%SHOWS+X+R+R-Y-<Y+<>H+&&&%M+K<P<I<#SV<T<UVKLOZ-Z+C<#<H<Z<X<W+@PP8 P P P( x r l N fzzzzx z$z  `X LIB$GET_FOREIGN@`t@ LIB$SYS_TRNLOG@H FGETFID@H hHh\\h\` @  h8Ll h   LIB$SET_SYMBOL@@`phT h  LIB$SET_SYMBOL@@`p   LIB$SET_SYMBOL@$h8 hLh`p``@@thl@T\pp`@@ t h0 hL dh  LIB$SET_SYMBOL@p " " LIB$SET_SYMBOL@ + + LIB$SET_SYMBOL@ 4 4 LIB$SET_SYMBOL@ = = LIB$SET_SYMBOL@ @F  !!I,!I LIB$SET_SYMBOL@4!@RH!P!d!l!U!U LIB$SET_SYMBOL@!@^!!!!a!a LIB$SET_SYMBOL@!@j!! ""m("m LIB$SET_SYMBOL@0"@vD"L"`"h"y|"y LIB$SET_SYMBOL@"@""""" LIB$SET_SYMBOL@"@""##$# LIB$SET_SYMBOL@,#@# LIB$SET_SYMBOL@H# LIB$SET_SYMBOL@\# LIB$SET_SYMBOL@d# LIB$SET_SYMBOL@@x##### LIB$SET_SYMBOL@#@####$ LIB$SET_SYMBOL@ $@ $($<$D$X$ LIB$SET_SYMBOL@`$@t$|$$$$ LIB$SET_SYMBOL@$@$$$$% LIB$SET_SYMBOL@%@%$%8%@%T% LIB$SET_SYMBOL@\% LIB$SET_SYMBOL@p% LIB$SET_SYMBOL@x% LIB$SET_SYMBOL@% LIB$SET_SYMBOL@% LIB$SET_SYMBOL@% LIB$SET_SYMBOL@% LIB$SET_SYMBOL@% LIB$SET_SYMBOL@% LIB$SET_SYMBOL@% LIB$SET_SYMBOL@%% LIB$SET_SYMBOL@&& LIB$SET_SYMBOL@ &h4&hH&d& LIB$SET_SYMBOL@l&"&" LIB$SET_SYMBOL@&+&+ LIB$SET_SYMBOL@&4&4 LIB$SET_SYMBOL@&=&= LIB$SET_SYMBOL@&h'h'h0'hD'hX'hl'h'"'''h'$h''h'*h(-h(pD( 0hl("((($(,3h("((`xph6h)") )`xph9hP)`xph<h)?h)"))BF@h)B LPRC@)F LPRC@)DR@h)D LPRC@*R LPRC@*Fv@h$*F LPRC@,*v LPRC@4*H@hP*H LPRC@X* LPRC@`*@h|* LPRC@* LPRC@*J@h*J LPRC@* LPRC@*@h* LPRC@* LPRC@*Lh+Oh+(+@@+H+\+d+@x+tRh+"++@++++@+t ,FGETFIDp@,PxP$UVh,Yh,",,@---$-@8-t@L-t `-FGETFIDp-PxPU|\h.@^,.4.H.P.\hd."x..@.t_h.@j...._h."//@$/tH8/L/bhp/N@////@/t@/tdP[^EXEMPT 雏"˾$ޫ(,雏.ޫ048<@,n tԫ nˀLIB$GET_FOREIGN,k˘ ˘˘\\ 1˘q1˘Q1(P˘X˜ LIB$INDEXPW, ˒WW\,\X PXWW\,\G˘ ˒˨ILENP˘(1TTT˰˙˴˰ FOR$READ_IF߫ FOR$IO_L_R߫ FOR$IO_L_R߫ FOR$IO_L_R FOR$IO_ENDǏUzR{R\\xUUUUdf\hjdhLIB$SYS_TRNLOGP1,˨ P˨XFOR$OPENP1 FOR$CLOSE LIB$INDEX,PX P˨ SYS$GETDVIW,˾ ˾Ы (˾>˾_,˿ ˾H LIB$INDEXPP,P˾ ˾TIVLENP\TT\RRRUUSC˾9TUUPP\\`@˾d` FOR$READ_IF߫$ FOR$IO_L_R FOR$IO_ENDU,U˾ ˾ի1p LIB$INDEXPYY\,\˾ Y\,\I˾ ˾|IVLEN,P˾ ˈIVLENPY˔IVLENP\ FOR$WRITE_IFYˠˤˠ FOR$IO_T_DS\˨ˬ˨ FOR$IO_T_DSݫ$ FOR$IO_L_V FOR$IO_ENDի1˸ LIB$INDEXPR,R@˾ ˾ LIB$INDEXPY,Y@˾ ˾IVLEN,P˾ IVLENPY FOR$WRITE_IFݫ FOR$IO_L_VY FOR$IO_T_DSݫ$ FOR$IO_L_V FOR$IO_ENDIVLENP˚ FOR$OPENP1` LIB$INDEXP1 l>pt SYS$ASSIGNʏPի(UNEXEMPTˌ FOR$EXIT_W FOR$READ_SF˨˘˔ FOR$IO_T_DS FOR$IO_END,˨Scˤ˜FILACCի, FOR$DELETEUNEXEMPTFOR$EXIT˴ LIB$INDEXP1^(en­^(˚nZ,Zn ˚PQ^YY˚FOR$OPENP1Y˚LIB$SET_SYMBOL FOR$READ_SF˨  FOR$IO_T_DS FOR$IO_ENDמ˨RbdˬSch,n ˚ $ LIB$INDEXP ZP,@j ˚8 LIB$INDEXPP,P˚ ˚DIVLENPY2dZ2fRhS2SThU2UQxQQQZ6˸ FOR$WRITE_IFYP˚TP FOR$IO_T_DSZ FOR$IO_L_VR FOR$IO_L_VT FOR$IO_L_V FOR$IO_ENDXIVLENPSN FOR$WRITE_SFSd˚hd FOR$IO_T_DS FOR$IO_END1l FOR$CLOSEUNEXEMPTFOR$EXIT| LIB$INDEXP1^(jn­^(˚nZ,Zn ˚PQ^YZYˈ˚ˌːFOR$OPENP1Y˚LIB$SET_SYMBOL FOR$READ_SF˨ FOR$IO_T_DS FOR$IO_ENDמ˨ScdˬTdh,n ˚  LIB$INDEXP RP,@b ˚ LIB$INDEXPP,P˚ ˚ IVLENPY2dR2fShT2TUhQ2QPxPPPRTdTTZP˸ FOR$WRITE_IFY˚ FOR$IO_T_DSR FOR$IO_L_VS FOR$IO_L_VU FOR$IO_L_VT FOR$IO_L_V FOR$IO_END IVLENPYN FOR$WRITE_SFY,˚0, FOR$IO_T_DS FOR$IO_END14 FOR$CLOSEk˸ FOR$WRITE_IFZ FOR$IO_L_V FOR$IO_END˚HLLIB$SET_SYMBOLUNEXEMPTFOR$EXIT` LIB$INDEXP1t LIB$INDEXPˈ LIB$INDEXPPR,R@˒ ˚˔IVLENP1˚ ,˛ ˚,˚ ,˛ ˚ˤ˨ LIB$INDEXPZZ1ZR,R˚ ˚ZP,PJ˚ ˚Z,n ˚˸˼ LIB$INDEXP1PP,P˚ ˚ZXIVLENPVZIVLENPX FOR$READ_SF˨ FOR$IO_T_DS FOR$IO_ENDZW V˚ LIB$INDEXP\1խ1  IVLENPUo FOR$WRITE_SFU  FOR$IO_T_DS FOR$IO_END FOR$READ_SF˨ FOR$IO_T_DS FOR$IO_ENDˆYˆyˆN1$ˆn1ˆAˆaԭˆX1ˆx1\V@T U,TFe @ X@^(@ n€X^(X˚n@XZ,Zn @ PQ^\1XV\YYY@Z PZ^(ZI`nZ\PP^(P n^SYYZ,Zn @ PQ^XV\YYY@Z PZ^(ZI`nZX^(X˚nXYYZ\\^(\ n\YZY\,\n @ PQ^ZWW1!ZFOR$REWRITE_SU FOR$IO_END1UNEXEMPTFOR$EXIT( LIB$INDEXP1 4>8< SYS$ASSIGNʏPի(UNEXEMPTT FOR$EXIT_W FOR$READ_SF˨`\ FOR$IO_T_DS FOR$IO_END˨\lhdREDACL)(o1,n ˚ x˄ LIB$INDEXP Z(@j˚˘ LIB$INDEXP,P˚ ˚ˤIVLENPX˸ FOR$WRITE_IF˨Yiˤ\l( FOR$IO_X_DAX˰˚˴˰ FOR$IO_T_DS FOR$IO_END˸IVLENPW FOR$WRITE_SFW˚ FOR$IO_T_DS FOR$IO_ENDW˚OPRMSG߾ ( sˎ  LIB$INDEXP1 ZP,@j ˚ LIB$INDEXP\1\X,X˚ ˚ \\ˎX^(X˚nXV ^( ˎnV Z,Zn ˚PQ^~\^(\˚n\XXY,Yn  PQ^\\0\VV\ZFXP^QRZSXT OTS$MOVE5_R5˨Wg REPLENT1UNEXEMPTFOR$EXIT~~˰ FOR$READ_KF˨  FOR$IO_T_DS FOR$IO_ENDP4Ы4V1VC1V4P8$LIB$WAIT15(˰XЏhZj,n $\lYiVf,  @ ˨ZjˬWg 04IVLENpPPYW FOR$WRITE_SFY@˨D@ FOR$IO_T_DS FOR$IO_END~~˰ FOR$READ_KF˨LH FOR$IO_T_DS FOR$IO_ENDP4ː˔X LIB$INDEXPխ FOR$DELETEd FOR$CLOSEUNEXEMPTFOR$EXITt LIB$INDEXP1խUNEXEMPTˀ FOR$EXIT_W FOR$WRITE_IF˨Rb<ˤScH8 FOR$IO_X_DA FOR$IO_END˾˔˘LIB$SET_SYMBOL˰˰˴LIB$SET_SYMBOL FOR$WRITE_IFUe\ZjhX FOR$IO_X_DA FOR$IO_END˾LIB$SET_SYMBOL FOR$WRITE_IFWg|\lˈx FOR$IO_X_DA FOR$IO_END˾LIB$SET_SYMBOL FOR$WRITE_IFVf˜Rb˨˘ FOR$IO_X_DA FOR$IO_END˾  LIB$SET_SYMBOL  $ LIB$INDEXPZZTT@U WU0 Dg4 @ LIB$INDEXPZPPPVZRRVS T,SBd ˾ZVvVVT ˾X \ LIB$SET_SYMBOL l x LIB$INDEXP\\RR@S TS˄ Bdˈ ˔ LIB$INDEXP\PPPZ\VVZW R,WFb ˾\ZzZZ˨ ˾ˬ ˰ LIB$SET_SYMBOL LIB$INDEXPWWRR@S TS Bd LIB$INDEXPWPPP\WZZ\V R,VJb ˾W\|\\ ˾  LIB$SET_SYMBOL  LIB$INDEXPZZRR@S TS, Bd0 < LIB$INDEXPZPPPWZ\\WV R,VLb ˾ZWwWWP ˾T X LIB$SET_SYMBOL h t LIB$INDEXP\\RR@S TSˀ Bd˄ ː LIB$INDEXP\PPPZ\WWZV R,VGb ˾\ZzZZˤ ˾˨ ˬ LIB$SET_SYMBOL ˼ LIB$INDEXPWWRR@S TS Bd LIB$INDEXPWPPP\WZZ\V R,VJb ˾W\|\\ ˾ LIB$SET_SYMBOL   LIB$INDEXPZZRR@S TS( Bd, 8 LIB$INDEXPZPPPWZ\\WV R,VLb ˾ZWwWWL ˾P T LIB$SET_SYMBOLVˏfVp LIB$SET_SYMBOLVˌ LIB$SET_SYMBOL ˜ ˨ LIB$INDEXPZZRR@S TS˴ Bd˸ LIB$INDEXPZPPPWZVVW\ R,\Fb ˾ZWwWW ˾ LIB$SET_SYMBOL LIB$INDEXP\\RR@S TS Bd  LIB$INDEX:P\PPPZ\WWZV R,VGb ˾\ZzZZ, ˾0 4 LIB$SET_SYMBOL D P LIB$INDEXPWWRR@S TS\ Bd` l LIB$INDEXPWPPP\WZZ\V R,VJb ˾W\|\\ˀ ˾˄ ˈ LIB$SET_SYMBOL ˘ ˤ LIB$INDEXPZZRR@S TS˰ Bd˴ LIB$INDEXPZPPPWZ\\WV R,VLb ˾ZWwWW ˾ LIB$SET_SYMBOL LIB$INDEXP\\RR@S TS Bd  LIB$INDEXP\PPPZ\WWZV R,VGb ˾\ZzZZ( ˾, 0 LIB$SET_SYMBOL @ L LIB$INDEXPW1WRR@S TSX Bd\ h LIB$INDEXPWPPWWP \,PGl ˾V˄ LIB$SET_SYMBOLˠ LIB$SET_SYMBOL˼ LIB$SET_SYMBOL LIB$SET_SYMBOLVWG˾\1\1\V LIB$SET_SYMBOL\p FOR$WRITE_IFF˾~ FOR$IO_L_V FOR$IO_END LIB$SET_SYMBOLV\(F˾np FOR$WRITE_IF˘ FOR$IO_X_DA FOR$IO_END(,LIB$SET_SYMBOLV1N\(F˾np FOR$WRITE_IF˘ FOR$IO_X_DA FOR$IO_ENDDHLIB$SET_SYMBOLV1\ LIB$INDEXPUNEXEMPTFOR$EXITp LIB$INDEXP1խ FOR$WRITE_SF|Xˀ| FOR$IO_T_DS FOR$IO_ENDUNEXEMPTFOR$EXIT FOR$WRITE_IF˨Zj˼ˤ\l˸ FOR$IO_X_DA FOR$IO_END˾ː˔LIB$SET_SYMBOL˰ˬ˰LIB$SET_SYMBOL FOR$WRITE_IFRbSc FOR$IO_X_DA FOR$IO_END˾LIB$SET_SYMBOL FOR$WRITE_IFTdUe FOR$IO_X_DA FOR$IO_END˾LIB$SET_SYMBOL FOR$WRITE_IFVfZj( FOR$IO_X_DA FOR$IO_END˾LIB$SET_SYMBOL FOR$WRITE_SFX FOR$IO_T_DS FOR$IO_END˨\ldˬWghzlR{RTTxTT2dUUT2fVˏlZ FOR$WRITE_SFT FOR$IO_L_VV FOR$IO_L_VZ FOR$IO_L_V FOR$IO_END0 FOR$WRITE_SF˰ FOR$IO_T_DS FOR$IO_ENDM FOR$WRITE_SFWg<RbH8 FOR$IO_X_DASc\UehX FOR$IO_X_DA FOR$IO_ENDx FOR$WRITE_SF FOR$IO_ENDTdVZ FOR$WRITE_SFT\\VW RW Lb$  FOR$IO_T_DS FOR$IO_ENDdTdVZUNEXEMPTFOR$EXIT0 LIB$INDEXPԭD LIB$INDEXP,n @ Wg\lVfZj(˰X LIB$INDEXPWgW\Wll LIB$INDEXPVfVZVjˀ LIB$INDEXPRbSc˔ LIB$INDEXP˨ LIB$INDEXPPTTUUWW˴E˒˸ LIB$INDEX̞p<pPPP@U YU^(U@in^SWZZ^(Z nZXWXV,Vn @ PQ^ ˜ˠIVLENPX¹)~­^(XnЭVVYS(~YVX^(X nXWVWZ,Zn @ PQ^˴ LIB$INDEXPX1XVVYYF˒ LIB$INDEXXPPYXYRRZZ,n $XhXPX`Z1  LIB$INDEXPXXRR@S TSBd LIB$INDEXPXPPP@Z RZ^(Z@bnZWX^(X nXZWZX,Xn @ PQ^ IVLENPX)~VYY^(YF˒nY\\WD(~WZX^(X nX\Z\W,Wn @ PQ^\Z,YF˒ ˌY(F˒,0FOR$OPENP1X FOR$CLOSEWv\Zh LIB$INDEX,Pˌ PtIVLENˀ SYS$GETDVIW,˾ ˾Ix FOR$WRITE_IFW FOR$IO_L_V?v FOR$IO_W_R FOR$IO_ENDVN˨ˤ FOR$WRITE_IFˬ FOR$IO_T_DSV~˴^˸˴ FOR$IO_T_V_DS˼ FOR$IO_T_DSH FOR$IO_T_DS쐫~^ FOR$IO_T_V_DS˾ FOR$IO_T_DS FOR$IO_ENDZjZWZgԭ LIB$INDEXPV,n $˚ LIB$INDEXPV1V\\WWL˒ LIB$INDEXVPPWVWRRZZ,n $˚VfVPV`Z1 $0 LIB$INDEXPVVRR@S TS<Bd@L LIB$INDEXPVPPP@Z RZ^(Z@bnZYV^(V nVZYZV,Vn @ PQ^ \`IVLENPV)~\WW^(WL˒nWXXYR(~YZV^(V nVXZXY,Yn @ PQ^ ptIVLENPZѭ^(nZ^(Z nZYYX,Xn @ PQ^YV,WL˒ ˌWˀL˒˄ˈFOR$OPENP˰ FOR$CLOSEXvYV LIB$INDEX,Pˌ PIVLEN SYS$GETDVIW,˾ ˾Ix FOR$WRITE_IFX FOR$IO_L_V?v FOR$IO_W_R FOR$IO_END WN FOR$WRITE_IF FOR$IO_T_DSW~^ FOR$IO_T_V_DS쐭~ ^  FOR$IO_T_V_DSH FOR$IO_T_DS쐫~^  FOR$IO_T_V_DS$˾($ FOR$IO_T_DS FOR$IO_END,IVLENPVVЭXVX,V˚ tXV^(V˚nVWX^(XtnXZWZ\,\n tPQ^@ LIB$INDEXP1 P\ LIB$INDEXPVVXX@Z WZhHglx LIB$INDEXPVP>pPPP@R SR^(R@cn^SYVV^(V nVWYWX,Xn @ PQ^ˌ LIB$INDEXP\\VVWW˘F˒˜˨ LIB$INDEXP\P>pX ˸˼IVLENPV)~\\XX^(XL˒nXZZXZ(~X\V^(V nVZ\ZW,Wn @ PQ^ LIB$INDEXP1  LIB$INDEXPVVZZ@\ W\Jg LIB$INDEXPVP>pPPP@R SR^(R@cn^SXVV^(V nVWXWY,Yn @ PQ^ LIB$INDEXP\\VVWW(F˒,8 LIB$INDEXP\P>pY HLIVLENPV)~\\YY^(YL˒nYZZXX(~X\V^(V nVZ\ZW,Wn @ PQ^ XխXnސopqrstuov X,t XzЭVFzЭZJ{Э\L|` LIB$INDEXPl˨pt SYS$ASSIGN˘ LIB$INDEXPˤREPLENTЫ ˸˴ SYS$DASSGN˨WgˬYiխ1  LIB$INDEXP\\RR@S TSBd LIB$INDEX\WPWW@Y XY^(YGhnYZ\\^(\ n\WZWX,Xn @ PQ^ IVLENPW)~­^(tnЭXXYA(~YXW^(W nWZXZ\,\n @ PQ^ IVLENpPPZѭWFOR$REWRITE_SFZ˨  FOR$IO_T_DS FOR$IO_ENDխW FOR$WRITE_SFZ$˨($ FOR$IO_T_DS FOR$IO_END, FOR$CLOSEUNEXEMPTFOR$EXITUNEXEMPT4 FOR$EXIT_WPeP_LIST_SUMMGCEVGCEVYYYYYYYYYYYYYYYYYYYYYYYYU(*)K(*)I(*)<#> JTMODACEFGETFID SYS$ASSIGN SYS$DASSGNLIB$SYS_TRNLOGLIB$GET_FOREIGNLIB$SET_SYMBOLEXEMPT LIB$INDEXILENFOR$OPEN FOR$CLOSE SYS$GETDVIWIVLENUNEXEMPT FOR$EXIT_WFILACCFOR$EXITREDACLOPRMSGREPLENTLIB$WAITGETPV LIB$SPAWNJTSCRLPRCFILCK-$CODE$PDATA0$LOCAL FFFIII FFIIDD FOR$DELETE FOR$IO_END FOR$IO_W_R FOR$IO_L_R FOR$IO_L_V FOR$IO_T_DS FOR$IO_T_V_DS FOR$IO_X_DA FOR$READ_SF FOR$READ_SF FOR$READ_KF FOR$WRITE_SFFOR$REWRITE_SFFOR$REWRITE_SU FOR$READ_IF FOR$READ_IF FOR$WRITE_IF FOR$WRITE_IF OTS$MOVE5_R5P>-P3-P(-PPPP",P;P,P1PdPPcP(P):PZP_PrPUuPRP P-PaFPHJPDP/PP PvP\PXyP/PP> P PW P P` P P  P( P$* P2 P PG P? P P P' P PJ P.9 P> PC PP P Pt< PA PV P,Z P( P P' P  P PLP!P0PPPP0P%P -P3PPcPctPcPcdPcPcTPcP P PciPcPcYPcPcKPgPPPP;(PCpPCPPP<PP2<PZPxPPjP3P6PFPhPP)PPP EPNPnP[PPPPP Pz PI P? P P P~!PM!PGi!PXl!PU!P;"P "P"P*"Pj #PA#P#P$P1$Pd@$P;%P0%PD&PJ&Pc&P&P&P&Pd&P;'P)'P(P1)PF=)P M)P*)P )Pj)PA8*PY*P *Pj*PAR+PY+PX8,P o,PH,PdY-P--P-A-FGETFID0116-Sep-1996 10:38Digital Fortran V6.4-165FGETFIDFGETFID4PP PD DP4[ЬЬ,(SYS$OPENPRRQAP`40GETFIDRP FGETFIDSYS$OPENGETFIDS$CODE$PDATAp$LOCAL FFIIDD,P"bSILEN0116-Sep-1996 10:38Digital Fortran V6.4-165 ILEN ILENPPP[}PQPPQQQRBRR PPQP ILEN6$CODE$PDATA $LOCAL)P6GETPV0116-Sep-1996 10:38Digital Fortran V6.4-165 GETPV GETPVPPP|[}PQмP޼ Qa޼RbSPSTDTaUTUUabVTVVbUUaVVbPS |GETPVZ$CODE$PDATA $LOCAL'P1HPPPZIVLEN0116-Sep-1996 10:38Digital Fortran V6.4-165 IVLEN IVLENPP[}PQPмPQPPRQRSSTDTT PQSPP IVLENC$CODE$PDATA$LOCALP 5P;P CLPRC0116-Sep-1996 10:38Digital Fortran V6.4-165 LPRC LPRCP@>)P@$8@`h$$(0P[^}PQ}PQ } PQ}PQ+<~ ~(nQ^( LIB$INDEXPV1VWWRR4G8D LIB$INDEXP1VTPTTP LIB$INDEXPXXUU@RR\E`l LIB$INDEXPXPPPYY@TT^(TIn^SZVPPQQ^(Q@n^SWZW,~WZY^(YnYWZWY,Yn @PQ^XxIVLENP)~VVYY^(YFnYWWV~VY­^(nЭZYZX,Xn @PQ^-<~ ~(nQ^˄ LIB$INDEXPY1YXXWWːH˔ˠ LIB$INDEXP1YZPZˬ LIB$INDEXPR1RSS@TT˸C˼ LIB$INDEXPRPPRVVPPFYXXZSSH LIB$INDEXPRPPPVYZZVZVUE,VZ@TT^(TJn^SYVV^(VnVXYXZ,Zn @PQ^*<~ ~(nQ^ LIB$INDEXPY1YZZWWJ  LIB$INDEXP1YXPX LIB$INDEXPVVRR@SS$B(4 LIB$INDEXPVPPP@UU^(U@n^SZVV^(VnVWZWV,Vn @PQ^@IVLENP)~YYXX^(XInXWWV~VY­^(nЭZYZX,Xn @PQ^ LPRC LIB$INDEXIVLENp$CODE$PDATAP$LOCALKP pPPzPNvPPPPR1PPPP\KpFILCK0116-Sep-1996 10:38Digital Fortran V6.4-165 FILCKP FILCKP )    IUFCK P|[}PQP ޼Rb޼ SbcP$ FOR$INQUIRE8FOR$OPENP1TxQQ  FOR$READ_SFk FOR$IO_L_R FOR$IO_X_DA FOR$IO_ENDPkQUUbcVTUUVVcTTVVckPl FOR$CLOSEbb |FILCKIUFCK FOR$INQUIREFOR$OPEN FOR$CLOSE$CODER$PDATA|$LOCALFSZC FOR$IO_END FOR$IO_L_R FOR$IO_X_DA FOR$READ_SF?PZP]]PZP(P2 IUFCK0116-Sep-1996 10:38Digital Fortran V6.4-165 IUFCK IUFCKPP PD D P[ЬЬ$84SYS$OPENPRR@< SYS$CONNECTPRRP$QARbRkRHDGTXABkkRkЫЫP IUFCK SYS$CONNECTSYS$OPENGTXAB$CODE$PDATA\$LOCALFSZC)P