Sources Esope | Cast3M

nomree
C NOMREE    SOURCE    PV090527  24/01/09    21:15:19     11817          
      SUBROUTINE NOMREE(NAM,XVAL)
      IMPLICIT INTEGER(I-N)
-INC CCNOYAU
-INC SMBLOC
      CHARACTER*(*) NAM
      REAL*8 XVAL
      call posree(xval,ii)
C RECHERCHE DU NOM DANS LA PILE DES NOMS
      IL=LEN(NAM)
      DO 765 I=IL,1,-1
      IF(NAM(I:I).NE.' ') GO TO 764
  765 CONTINUE
      I=1
  764 IL=I
      CALL POSCHA(NAM(1:IL),IPOSCH)
      IO=INOOB1(/1)
      IF(IO.EQ.0) GO TO 11
      DO 3 I =MDEOBJ,LMNNOM
      IF(IPOSCH.EQ.INOOB1(I)) THEN
C ON A TROUVE
          INOOB2(I)='FLOTTANT'
          IOUEP2(I)=II
          RETURN
      ENDIF
   3  CONTINUE
  11  CONTINUE
C IL FAUT CREER LE NOM
      LMNNOM=LMNNOM+1
      IF(LMNNOM.GT.IO) THEN
         N=LMNNOM+50
         SEGADJ ITABOB,ITABOC,ITABOD
      ENDIF
      N=LMNNOM
      INOOB1(N)=IPOSCH
      INOOB2(N)='FLOTTANT'
      IOUEP2(N)=II
      RETURN
      END