Sources Esope | Cast3M

snom2
C SNOM2     SOURCE    CHAT      05/01/13    03:21:14     5004
      SUBROUTINE SNOM2(IP1,ITLACC,IRET)
C=======================================================================
C   BUT :  CHERCHE SI UN POINTEUR EST DANS UNE PILE
C          SI OUI IRET = INDICE DANS LA PILE
C
C   .
C    ECRIT PAR FARVACQUE -LENA
C    APPELE PAR FNOMOB
C=======================================================================
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
      SEGMENT/ITLACC/(ITLAC(0))
C
      IRET=0
C
      IF (ITLACC.EQ.0) GO TO 2
      N=ITLAC(/1)
      IF (N.EQ.0) GO TO 3
      DO 1 J=1,N
      IF(ITLAC(J).NE.IP1) GOTO 1
      IRET=J
      GO TO 3
   1  CONTINUE
   3  CONTINUE
   2  RETURN
      END