1 : C ENTNOF SOURCE CHAT 05/01/12 23:40:30 5004 2 : SUBROUTINE ENTNOF(IBAND,NOBJN,NOMM1,NOMM2,IRETOU) 3 : C 4 : C LECTURE DES OBJETS NOMMES. IL Y EN A NOBJN 5 : C LECTURE SUR L'UNITE IBAND 6 : C NOMM1 SEGMENT QUI CONTIENT LES NUMEROS DES OBJETS DS LEUR PILE 7 : C NOMM2 SEGMENT QUI CONTIENT LE NOM DE CES OBJETS 8 : C IRETOU =0 SI TOUT S'EST BIEN PASSE. IRETOU=1 SINON. 9 : C APPELE PAR RESTSO 10 : C ECRIT PAR FARVACQUE 11 : C 12 : IMPLICIT INTEGER(I-N) 13 : -INC CCOPTIO 14 : SEGMENT/NOMM1/(NOM1(NOBJN1)) 15 : SEGMENT/NOMM2/(NOM2(NOBJN2)) 16 : ITOTO=1 17 : IRETOU=0 18 : NOBJN1=NOBJN 19 : NOBJN2=2*NOBJN 20 : SEGADJ NOMM1 21 : SEGADJ NOMM2 21 : CALL LFCDIM(IBAND,NOBJN2,NOM2,IRETOU,ITOTO) 22 : IF(IRETOU.NE.0)RETURN 23 : READ(IBAND,708,END=4,ERR=4)(NOM1(I),I=1,NOBJN1) 24 : 708 FORMAT(20I4) 24 : C CALL LFCDIE(IBAND,NOBJN1,NOM1,IRETOU,ITOTO) 25 : C IF(IRETOU.NE.0) RETURN 26 : IF(IIMPI.NE.5) GOTO 1 27 : WRITE(IOIMP,101) 28 : DO 2 I=1,NOBJN 29 : WRITE(IOIMP,100) NOM2(2*I-1),NOM2(2*I),NOM1(I) 30 : 2 CONTINUE 31 : GOTO 1 32 : 4 IRETOU=1 33 : 1 CONTINUE 34 : 100 FORMAT(2X,2A4,2X,I6) 35 : 101 FORMAT(' OBJETS NOMMES ET LEUR RANG DANS LA PILE : ') 36 : RETURN 37 : END 38 :
© Cast3M 2003 - All rights reserved.
Disclaimer