Télécharger snom2.eso

Retour à la liste

Numérotation des lignes :

snom2
  1. C SNOM2 SOURCE CHAT 05/01/13 03:21:14 5004
  2. SUBROUTINE SNOM2(IP1,ITLACC,IRET)
  3. C=======================================================================
  4. C BUT : CHERCHE SI UN POINTEUR EST DANS UNE PILE
  5. C SI OUI IRET = INDICE DANS LA PILE
  6. C
  7. C .
  8. C ECRIT PAR FARVACQUE -LENA
  9. C APPELE PAR FNOMOB
  10. C=======================================================================
  11. IMPLICIT INTEGER(I-N)
  12.  
  13. -INC PPARAM
  14. -INC CCOPTIO
  15. SEGMENT/ITLACC/(ITLAC(0))
  16. C
  17. IRET=0
  18. C
  19. IF (ITLACC.EQ.0) GO TO 2
  20. N=ITLAC(/1)
  21. IF (N.EQ.0) GO TO 3
  22. DO 1 J=1,N
  23. IF(ITLAC(J).NE.IP1) GOTO 1
  24. IRET=J
  25. GO TO 3
  26. 1 CONTINUE
  27. 3 CONTINUE
  28. 2 RETURN
  29. END
  30.  
  31.  

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