1 : C REPER SOURCE CHAT 06/03/16 21:25:35 5336 2 : SUBROUTINE REPER(IRR) 3 : IMPLICIT INTEGER(I-N) 4 : SEGMENT MTOT 5 : CHARACTER*(8) MTY(0) 6 : ENDSEGMENT 7 : -INC CCNOYAU 8 : -INC CCOPTIO 9 : -INC TMLCHA8 10 : CHARACTER*(*) IRR 11 : CHARACTER*(8) CTYP 12 : SEGINI MTOT 13 : IF(IRR.NE.' ') THEN 14 : MTY(**)=IRR 15 : DO 11 I=1,LMNNOM 16 : IF(INOOB2(I).EQ.IRR) GOTO 10 17 : 11 CONTINUE 18 : MOTERR(1:8)=MTY(1) 18 : CALL ERREUR(-14) 19 : SEGSUP MTOT 20 : RETURN 21 : ENDIF 22 : DO 1 I=1,LMNNOM 23 : DO 2 J=1,MTY(/2) 24 : IF(INOOB2(I).EQ.MTY(J)) GO TO 1 25 : 2 CONTINUE 26 : IF(INOOB2(I).EQ.' ') GO TO 1 27 : MTY(**)=INOOB2(I) 28 : 1 CONTINUE 29 : IF(MTY(/2).EQ.0) THEN 29 : CALL ERREUR (26) 30 : SEGSUP MTOT 31 : RETURN 32 : ENDIF 33 : 10 CONTINUE 34 : DO 3 II=1,MTY(/2) 35 : CTYP=MTY(II) 35 : CALL REPLIS(CTYP,MLCHA8) 36 : SEGACT MLCHA8 37 : IF(MLCHAR(/2).EQ.0) GO TO 4 38 : MOTERR(1:8)= CTYP 38 : CALL ERREUR(-15) 39 : ILO=MLCHAR(/2) 40 : WRITE(IOIMP,102) (MLCHAR(I),I=1,ILO) 41 : 102 FORMAT(8(1X,A8)) 42 : 4 CONTINUE 43 : SEGSUP MLCHA8 44 : 3 CONTINUE 45 : SEGSUP MTOT 46 : RETURN 47 : END 48 :
© Cast3M 2003 - All rights reserved.
Disclaimer