Sources Esope | Cast3M

snom1
C SNOM1     SOURCE    JC220346  18/12/04    21:16:16     9991           
      SUBROUTINE SNOM1(CNOM,ISGTR,IRET)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C=======================================================================
C
C   BUT :  CHERCHE SI LE NOM EST DANS UN SEGMENT
C          EN AVANCANT DE INC EN INC
C        . SI L'OBJET (I1-I2-) EST  DANS LA PILE NOMMEE,IRET=J
C        . SI NON    IRET =0
C    ECRIT PAR FARVACQUE-LENA
C    APPELE PAR FNOMOB
C=======================================================================
 
-INC PPARAM
-INC CCOPTIO
-INC CCNOYAU
      CHARACTER*(LONOM) CNOM
      SEGMENT ISGTR
        CHARACTER*(LONOM) ISGTRC(KS)
        INTEGER ISGTRI(KS)
      ENDSEGMENT
C
      IRET=0
      IF (ISGTR.EQ.0) GO TO 1
      N=ISGTRI(/1)
      DO 2 J=1,N
      IF(ISGTRC(J).NE.CNOM) GOTO 2
      IRET=J
      GO TO 3
   2  CONTINUE
   3  CONTINUE
   1  RETURN
      END