replis
C REPLIS SOURCE CB215821 19/03/18 21:16:17 10161 IMPLICIT INTEGER(I-N) -INC CCNOYAU -INC CCASSIS -INC PPARAM -INC CCOPTIO -INC TMLNOMS CHARACTER*(*) CTYP IF (LMNNOM .EQ. 0 .OR. CTYP.EQ.'ANNULE ') THEN M=0 SEGINI MLNOMS RETURN ENDIF M=1000 MM=0 SEGINI MLNOMS if(nbesc.ne.0) segact ipiloc DO 1 I=LMNNOM,1,-1 IF(INOOB1(I).EQ.1 ) GOTO 1 IF(INOOB2(I).NE.CTYP ) GOTO 1 C IF(INOOB2(I).EQ.'ANNULE ') GOTO 1 C IF(INOOB1(I)(1:1).EQ.'#' ) GOTO 1 MM=MM+1 IF(MM.GT.M) THEN M=M+1000 SEGADJ MLNOMS ENDIF IP= INOOB1(I) IDEBCH=IPCHAR(IP) IFINCH=IPCHAR(IP+1)-1 LINOMS(MM)=ICHARA(IDEBCH:IFINCH) 1 CONTINUE if(nbesc.ne.0) SEGDES,IPILOC M=MM SEGADJ MLNOMS END
© Cast3M 2003 - Tous droits réservés.
Mentions légales