Télécharger ajoun0.eso

Retour à la liste

Numérotation des lignes :

  1. C AJOUN0 SOURCE PV 16/11/26 21:15:04 9205
  2. SUBROUTINE AJOUN0(ITAB,IEL,ILISSE,NUMLIS)
  3. C
  4. C elimine (remplace par 0) UN ELEMENT DANS UN SEGMENT EXTENSIBLE
  5. C
  6.  
  7. IMPLICIT INTEGER(I-N)
  8. -INC TMCOLAC
  9. SEGMENT ITAB(0)
  10. IF(NUMLIS.EQ.1) THEN
  11. LL = ILISEG(/1)
  12. IF((IEL-1)/npgcd.GT.LL)RETURN
  13. LL = ILISEG((IEL-1)/npgcd)
  14. IF(LL.GT.0.AND.LL.LE.ITAB(/1)) THEN
  15. ITAB(LL)=0
  16. ILISEG((IEL-1)/npgcd)=0
  17. ENDIF
  18. ELSE
  19. * ancienne programation
  20. L=ITAB(/1)
  21. DO 1 I=1,L
  22. IF(ITAB(I).EQ.IEL) GOTO 2
  23. 1 CONTINUE
  24. RETURN
  25. 2 CONTINUE
  26. ITAB(I)=0
  27. ENDIF
  28. RETURN
  29. END
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  

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