Télécharger replis.eso

Retour à la liste

Numérotation des lignes :

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

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