Télécharger ajou.eso

Retour à la liste

Numérotation des lignes :

  1. C AJOU SOURCE CHAT 05/01/12 21:19:52 5004
  2. C AJOUTE UN ELEMENT DANS UN SEGMENT EXTENSIBLE S'IL N'Y EST DEJA
  3. C
  4. SUBROUTINE AJOU(ITAB,IEL)
  5. IMPLICIT INTEGER(I-N)
  6. SEGMENT ITAB(0)
  7. IF (ITAB(/1).EQ.0) GOTO 1
  8. DO 2 I=1,ITAB(/1)
  9. IF (ITAB(I).EQ.IEL) RETURN
  10. 2 CONTINUE
  11. 1 ITAB(**)=IEL
  12. RETURN
  13. END
  14.  
  15.  

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