Télécharger ajoun2.eso

Retour à la liste

Numérotation des lignes :

  1. C AJOUN2 SOURCE CHAT 05/01/12 21:20:01 5004
  2. SUBROUTINE AJOUN2(ITAB,IEL)
  3. C AJOUTE UN ELEMENT DANS UN SEGMENT EXTENSIBLE S IL N Y EST DEJA.
  4. C RENVOIE DANS IEL LA PLACE DE L OBJET
  5. IMPLICIT INTEGER(I-N)
  6. SEGMENT ITAB(0)
  7. L=ITAB(/1)
  8. DO 1 I=1,L
  9. IF(ITAB(I).EQ.IEL) GOTO 2
  10. 1 CONTINUE
  11. ITAB(**)=IEL
  12. I=L+1
  13. 2 CONTINUE
  14. IEL=I
  15. RETURN
  16. END
  17.  
  18.  
  19.  

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