% VAX-11 Librarian V03-00B`B!.$/,  rCHANGE_PROTECTN CHECK_LOGICAL CHECK_LOGICAL_2 < CHECK_NODE CHECK_NODE_EXTR CHECK_PRIV0 CHECK_PROTCHPROT DEFAULT_EXTLERREUR* GET_CLUSTER  GET_NETWORK GET_NOEUD_CIBLE LOAD_NODE#NO_LOCAL$0OUT_LINE%|P_JOUR& P_UIC' SENDNET11) SENDNETIN+HUNIQUE+ VERIF_IMPRrCHANGE_PROTECTN CHECK_LOGICAL CHECK_LOGICAL_2 < CHECK_NODE CHECK_NODE_EXTR CHECK_PRIV0 CHECK_PROTCHPROT DEFAULT_EXTLERREUR* GET_CLUSTER  GET_NETWORK GET_NOEUD_CIBLE LOAD_NODE#NO_LOCAL$0OUT_LINE%|P_JOUR& P_UIC' SENDNET11) SENDNETIN+HUNIQUE+ VERIF_IMPR1 č08CHANGE_PROTECT024-NOV-1983 11:51 VAX-11 Macro V03-00 CHANGEPRO  SYS$CLOSESYS$OPEN . ABS .@ . BLANK .P$ABS$CPPPQQQQQQQ CHANGE_PROTECT&CЬRޯ$RSYS$OPENPR SYS$CLOSEPXCHGPROTPQQ2CHANGE_PROTECTCH ANGE_PROTECT/ . BLANK .@XCHGPROTww1č018 CHECK_LOGICAL0129-Apr-1985 15:4629-Apr-1985 15:46VAX FORTRAN V4.0-2 CHECK_LOGICAL0P*.*>] using file target logical is ) CHECK_LOGICALPPPn LIB$FIND_FILE@$8T PO[}PQ P}PQP0LEFTP, 8CHECK_LOGICAL_2ѫkL LIB$FIND_FILEl LIB$INDEXPRˀ LIB$INDEXPR,R^ P,n @ˌLEFTPVWW1VP)@*1X ^( ,nV^(VnVZ ZYY˔YX^˘˜FOR$OPENX^P( FOR$READ_SF FOR$IO_T_DS FOR$IO_END FOR$WRITE_SL˼ FOR$IO_T_DS ^( ,nV^(VnVY YXX˔^˘˔ FOR$IO_T_V_DS  FOR$IO_ENDWXXVP)@*VVYI.X]I1 W,7 @ FOR$WRITE_SL FOR$IO_T_DSLEFTP˔@˘˔ FOR$IO_T_DS FOR$IO_END, P^P^(P^nLEFTP^(P@n^SXPXV,Vn PQ^8CHECK_LOGICAL_2*P[]SENDNET.TARGROUPE: O CHECK_LOGICAL LIB$FIND_FILELEFTCHECK_LOGICAL_2 LIB$INDEXFOR$OPEN$CODE>$PDATA$LOCAL FOR$IO_END FOR$IO_T_DS FO R$IO_T_V_DS FOR$READ_SF FOR$WRITE_SLF-P EP^P PPPmTP+dPqPP <0*ww1@mč01:CHECK_LOGICAL_20129-Apr-1985 15:4629-Apr-1985 15:46VAX FORTRAN V4.0-2CHECK_LOGICAL_2:P::[]<> le fichier cible doit ^etre un logical:CHECK_LOGICAL_2P 0D X' 2tPH[}PQPk` LIB$INDEXPL LIB$INDEXP8 LIB$INDEXP LIB$INDEXP$ LIB$INDEXP FOR$WRITE_SLl FOR$IO_T_DS FOR$IO_ENDFOR$STOP| LIB$INDEXPԼ HCHECK_LOGICAL_2 LIB$INDEX$CODE4$PDATA$LOCALFOR$STOP FOR$IO_END FOR$IO_T_DS FOR$WRITE_SL,P0+P$7PCP OP $PPww1č015 CHECK_NODE0129-Apr-1985 15:4629-Apr-1985 15:46VAX FORTRAN V4.0-2 CHECK_NODE#PWIDEIFP:SENDNET.NET CHECK_NODE`@PP@P@`@@@ LOAD_NODE@T@@P@  `@A LOAD_NODE@@ LOAD_NODE@T@@P@@PHAPOP@[}PQP}PQ$P ޫ PFOR$INI_DES1_R2}PQLPHޫHPFOR$INI_DES1_R2ԼԼռ V<«^(nЫW ^( n WWːWV^˔ˠ LOAD_NODEV^ѫ LOAD_NODEԼм Wռ XY0Z< VVP, @j PXkLEFTPSŏPXTD`LEFT-S PD`ּEP;zPPPPPXP P."  .ww16č015 CHECK_PROT0129-Apr-1985 15:4629-Apr-1985 15:46VAX FORTRAN V4.0-2 CHECK_PROT P:() CHECK_PROT=P8LP|I[}PQPk LIB$INDEXPRLEFTRPR B, LIB$INDEXPP&pP)P !ww18č01 1CHPROT0129-Apr-1985 15:4629-Apr-1985 15:46VAX FORTRAN V4.0-2 CHPROT CHPROTP CHANGE_PROTECTPH[}PQPk޼ FOR$OPEN x HCHPROTCHANGE_PROTECTFOR$OPEN2$CODE$PDATA0$LOCALXCHGPROT2ww1I^č016 DEFAULT_EXT0129-Apr-1985 15:4629-Apr-1985 15:46VAX FORTRAN V4.0-2 DEFAULT_EXT P];. DEFAULT_EXT1P$8@P|I[}PQPk}PQ P LIB$INDEXPR, LIB$INDEXPP+%ww1< č016 GET_NETWORK0129-Apr-1985 15:4629-Apr-1985 15:46VAX FORTRAN V4.0-2 GET_NETWORKtPIFP:SENDNET.NET/too many nodes in your cluster...le fichier IFP:SENDNET.NET manque - prevenir ASSISTANCE) GET_NETWORKqlPP P Zd FOR$OPEN@l|t! ERREUR@d744 ERREUR@PKd[Ы\k(FOR$OPENP1Vf,n lk FOR$READ_SF FOR$IO_T_DS FOR$IO_ENDPWW1T LIB$INDEXPXXPY,YH `LEFTPShLEFT-S Pf,YH fP, @Ƹ\\f2xERREURfP\@fX2\YfYY,X IƸlk FOR$READ_SF FOR$IO_T_DS FOR$IO_ENDPW1Kˀ FOR$CLOSE\˔ERREUR\ K GET_NETWORKFOR$OPEN LIB$INDEXLEFTERREUR FOR$CLOSE.$CODEn$PDATA$LOCAL4CNETWORK FOR$IO_END FOR$IO_T_DS FOR$READ_SF5P0PT]PkPuPPP5).ww1č01:GET_NOEUD_CIBLE0129-Apr-1985 15:4629-Apr-1985 15:46VAX FORTRAN V4.0-2GET_NOEUD_CIBLEEP>].;transmission to file extension *.*IFP:SENDNET.NETGET_NOEUD_CIBLEPPPPPPP@ 4HP d ++ LIB$FIND_FILE@ 4H// LOAD_NODE@/ LOAD_NODE@PK[}PQ P}PQP}PQP}PQ$P }PQ4P0ޫ0PFOR$INI_DES1_R2Լ kѼ1x LIB$FIND_FILEP$˘ LIB$INDEXPRRˬ LIB$INDEXPRRSSPQQ˸Cp˼ LIB$INDEXPRPV LIB$INDEXPWSVR,RCp PVWVW,WFp P޼$CHECK_NODE_EXTѼ$Ѽ$Լ$LEFTPWLEFT-W P Լ <0P,P 0@@ FOR$WRITE_SL FOR$IO_T_DSLEFTP˸˼˸ FOR$IO_T_DS FOR$IO_END Ѽ ޼   GET_CLUSTERk$ LIB$FIND_FILE< LIB$INDEXPRH LIB$INDEXPR,R P`TLEFT-P ?1TLEFT-P BV<«^( nЫW ^( Gn WW˸WV^˼޼ |\ LOAD_NODEV^ի޼ ˨ˈ LOAD_NODEի$޼ ˸ˬ SENDNET11Լ$ѼVݏ.NET˼LEFTP^(Pn^SYYWW˸WV^˼޼ |\ LOAD_NODEV^իLEFTPV ^( SnV^(V`nVY YW,Wn PpPQ^VP)@`^W ^( SnV^(V`nVX XYY˸YW^˼޼ |\ LOAD_NODEW^իWWVP)@`^VVXH`.W]H`1uV<«^( nЫW ^( Gn WW˸WV^˼޼ |\ LOAD_NODEV^ի޼  LOAD_NODEի$?PALLWORLDIFP:SENDNET.SENDNET.NET[] KGET_NOEUD_CIBLE  LIB$FIND_FILE LIB$INDEXCHECK_NODE_EXTLEFT GET_CLUSTER LOAD_NODE SENDNET11$CODE`$PDATA$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SLFOR$INI_DES1_R2[P#mPP P Pv+PPP PPh>PSP yPJP P{MPXP+iPwPPP~r*ww1@č014 LOAD_NODE0129-Apr-1985 15:4629-Apr-1985 15:46VAX FORTRAN V4.0-2 LOAD_NODE%Pusing file /No target Nodes) LOAD_NODELPT!  L  ERREUR@PO[^}PQ  ) (defaut = )) > ) SENDNETINPP