Télécharger replis.eso

Retour à la liste

Numérotation des lignes :

replis
  1. C REPLIS SOURCE CB215821 19/03/18 21:16:17 10161
  2. SUBROUTINE REPLIS( CTYP,MLNOMS)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCNOYAU
  5. -INC CCASSIS
  6. -INC PPARAM
  7. -INC CCOPTIO
  8. -INC TMLNOMS
  9. CHARACTER*(*) CTYP
  10. IF (LMNNOM .EQ. 0 .OR. CTYP.EQ.'ANNULE ') THEN
  11. M=0
  12. SEGINI MLNOMS
  13. RETURN
  14. ENDIF
  15. M=1000
  16. MM=0
  17. SEGINI MLNOMS
  18. if(nbesc.ne.0) segact ipiloc
  19. DO 1 I=LMNNOM,1,-1
  20. IF(INOOB1(I).EQ.1 ) GOTO 1
  21. IF(INOOB2(I).NE.CTYP ) GOTO 1
  22. C IF(INOOB2(I).EQ.'ANNULE ') GOTO 1
  23. C IF(INOOB1(I)(1:1).EQ.'#' ) GOTO 1
  24. MM=MM+1
  25. IF(MM.GT.M) THEN
  26. M=M+1000
  27. SEGADJ MLNOMS
  28. ENDIF
  29. IP= INOOB1(I)
  30. IDEBCH=IPCHAR(IP)
  31. IFINCH=IPCHAR(IP+1)-1
  32. LINOMS(MM)=ICHARA(IDEBCH:IFINCH)
  33. 1 CONTINUE
  34. if(nbesc.ne.0) SEGDES,IPILOC
  35. M=MM
  36. SEGADJ MLNOMS
  37. END
  38.  
  39.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales