Sources Esope | Cast3M

entnom
C ENTNOM    SOURCE    JC220346  18/12/04    21:15:17     9991           
      SUBROUTINE ENTNOM(IBAND,NOBJN,NOMM1,NOMM2,IRETOU,IFORM)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C-------------------------------------------------------------------
C     LECTURE DES NOBJN NOMS D OBETS ( SI NOBJN NON NUL)
C
C   Entrée :
C     IBAND - l'unité de lecture
C     NOBJN - le nombre de noms à lire
C     IFORM - flag décrivant le format du fichier
C
C   Sortie :
C     NOMM1 - SEGMENT QUI CONTIENT LES NUMEROS DES OBJETS DS LEUR PILE
C     NOMM2 - SEGMENT QUI CONTIENT LE NOM DE CES OBJETS
C     IRETOU =0 SI TOUT S'EST BIEN PASSE. IRETOU=1 SINON.
C
C     APPELE     LFCDIE LFCDIM
C     APPELE PAR LIPIL
C     ECRIT PAR FARVACQUE     - REPRIS PAR LENA
C
C-------------------------------------------------------------------
-INC CCNOYAU
 
-INC PPARAM
-INC CCOPTIO
-INC SMLENTI
      SEGMENT/NOMM1/(NOM1(NOBJN1))
      SEGMENT NOMM2
      CHARACTER*(LONOM) NOM2(NOBJN1)
      ENDSEGMENT
C-------------------------------------------------------------------
      IRETOU=0
      SEGACT NOMM1
      SEGACT NOMM2
      NOBJN1=NOBJN
      SEGADJ NOMM1
      SEGADJ NOMM2
 
      IF (NOBJN.EQ.0) GO TO 1
 
      IF(IONIVE.LE.2) THEN
         JG=NOBJN1*2
         SEGINI MLENTI
         CALL LFANC(IBAND,NOBJN1,LECT,IRETOU,IFORM,NOM2)
         SEGSUP MLENTI
      ELSE
         CALL LFNOMS(IBAND,NOBJN1,NOM2,IRETOU,IFORM)
      ENDIF
      IF(IRETOU.NE.0) GO TO 1
 
      CALL LFCDIE(IBAND,NOBJN1,NOM1,IRETOU,IFORM)
      IF(IRETOU.NE.0)GO TO 1
 
C -------------------------
      IF(IIMPI.EQ.5) THEN
         WRITE(IOIMP,101)
         DO 2 I=1,NOBJN
            WRITE(IOIMP,100) NOM2(I),NOM1(I)
   2     CONTINUE
      ENDIF
C -------------------------
   1  CONTINUE
      SEGDES NOMM1
      SEGDES NOMM2
      RETURN
 100  FORMAT(2X,A24,2X,I6)
 101  FORMAT('  OBJETS NOMMES ET LEUR RANG DANS LA PILE   :  ')
      END