Sources Esope | Cast3M

listob
C LISTOB    SOURCE    CB215821  18/05/23    21:15:04     9825           
 
      SUBROUTINE LISTOB (ITYP,IA,ILISOB,ICLE)
C
C  ****  Si ICLE=0
C  ****    Renvoie dans IA le nombre max possible
C  ****  Sinon
C  ****    CREE la liste des OBJETS  DE TYPE ITYP
C  ****    et retourne leur nombre dans IA
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
-INC CCNOYAU
 
-INC PPARAM
-INC CCOPTIO
 
      DIMENSION ILISOB(*)
      CHARACTER*(*) ITYP
 
      IF(ICLE.EQ.0) THEN
         IA = LMNNOM
         RETURN
      ENDIF
 
      IA=0
      ILONG=LMNNOM
      IF(ILONG.EQ.0) RETURN
      DO 1 I=1,ILONG
        IF(INOOB1(I) .EQ. 1)          GOTO 1
        IF(INOOB2(I) .NE. ITYP)       GOTO 1
        IF(INOOB2(I) .EQ. 'ANNULE  ') GOTO 1
        IF(IOUEP2(I) .LE. 0 .AND. ITYP .NE. 'ENTIER') THEN
          write (6,*) ' incoherence listob ',ITYP,I,IOUEP2(I)
                                      GOTO 1
        ENDIF
        IA=IA+1
        ILISOB(IA)=IOUEP2(I)
   1  CONTINUE
      RETURN
      END