Télécharger replis.eso

Retour à la liste

Numérotation des lignes :

  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 CCOPTIO
  7. -INC TMLNOMS
  8. CHARACTER*(*) CTYP
  9. IF (LMNNOM .EQ. 0 .OR. CTYP.EQ.'ANNULE ') THEN
  10. M=0
  11. SEGINI MLNOMS
  12. RETURN
  13. ENDIF
  14. M=1000
  15. MM=0
  16. SEGINI MLNOMS
  17. if(nbesc.ne.0) segact ipiloc
  18. DO 1 I=LMNNOM,1,-1
  19. IF(INOOB1(I).EQ.1 ) GOTO 1
  20. IF(INOOB2(I).NE.CTYP ) GOTO 1
  21. C IF(INOOB2(I).EQ.'ANNULE ') GOTO 1
  22. C IF(INOOB1(I)(1:1).EQ.'#' ) GOTO 1
  23. MM=MM+1
  24. IF(MM.GT.M) THEN
  25. M=M+1000
  26. SEGADJ MLNOMS
  27. ENDIF
  28. IP= INOOB1(I)
  29. IDEBCH=IPCHAR(IP)
  30. IFINCH=IPCHAR(IP+1)-1
  31. LINOMS(MM)=ICHARA(IDEBCH:IFINCH)
  32. 1 CONTINUE
  33. if(nbesc.ne.0) SEGDES,IPILOC
  34. M=MM
  35. SEGADJ MLNOMS
  36. END
  37.  
  38.  

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