C MODE19    SOURCE    MB234859  25/08/26    21:15:08     12343          
      SUBROUTINE MODE19(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
C=======================================================================
C=  Objet MODELE  -  Cas de la formulation 'CHARGEMENT'                =
C=                                                                     =
C=   Definition des noms de modeles de CHARGEMENT                      =
C=           et des noms de types d'ELEMENTS FINIS                     =
C=======================================================================
C
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C
-INC PPARAM
-INC CCOPTIO
C
      CHARACTER*16 MOMODL(100)
      CHARACTER*16 LESPRO(*)
      CHARACTER*4 LESTEF(*)
C
C  NOMS DES MODELES DE CHARGEMENT
C  -------------------------------
      CALL MOCHAR(MOMODL,NMOD)
      DO 1 I=1,NMOD
         LESPRO(I)=MOMODL(I)
 1    CONTINUE
      NBPRO=NMOD
C
      IF(NBPRO.GT.N1MAX) GO TO 99
C
C  NOMS DE TYPES D'ELEMENTS FINIS
C  ------------------------------
C     -----------
C     Elements 1D
C     -----------
      IF (IFOMOD.GE.3.AND.IFOMOD.LE.5) THEN
        NBTEF=2
        IF (NBTEF.GT.N2MAX) GOTO 99
        LESTEF(1)='M1D2'
        LESTEF(2)='M1D3'
      ELSE
C       -----------------
C       Elements 2D et 3D
C       -----------------
        NBTEF=24
        IF (NBTEF.GT.N2MAX) GOTO 99
        LESTEF( 1)='POI1'
        LESTEF( 2)='SEG2'
        LESTEF( 3)='SEG3'
        LESTEF( 4)='TRI3'
        LESTEF( 5)='QUA4'
        LESTEF( 6)='TRI6'
        LESTEF( 7)='QUA8'
        LESTEF( 8)='CUB8'
        LESTEF( 9)='CU20'
        LESTEF(10)='PRI6'
        LESTEF(11)='PR15'
        LESTEF(12)='TET4'
        LESTEF(13)='TE10'
        LESTEF(14)='COQ3'
        LESTEF(15)='COQ4'
        LESTEF(16)='COQ6'
        LESTEF(17)='COQ8'
        LESTEF(18)='DKT '
        LESTEF(19)='DST '
        LESTEF(20)='BARR'
        LESTEF(21)='POUT'
        LESTEF(22)='TUYA'
        LESTEF(23)='TUYO'
        LESTEF(24)='TIMO'
        IF (IFOMOD.LT.2) THEN
          NBTEF=NBTEF+1
          IF (NBTEF.GT.N2MAX) GOTO 99
          LESTEF(NBTEF-1)='COQ2'
          LESTEF(NBTEF  )='POLY'
        ENDIF
      ENDIF
      RETURN
C
C Traitement des ERREURS
C -----------------------------
  99  CALL ERREUR(5)
      END