C MODE18    SOURCE    FANDEUR   10/12/17    21:18:03     6427           

C=======================================================================
C=  Objet MODELE  -  Cas de la formulation 'DIFFUSION'                 =
C=                                                                     =
C=   Definition des noms de modeles de MATERIAU                        =
C=           et des noms de types d'ELEMENTS FINIS                     =
C=======================================================================

      SUBROUTINE MODE18 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)

      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)

-INC CCOPTIO

      CHARACTER*16 LESPRO(*)
      CHARACTER*4 LESTEF(*)

C  1 - Noms de MODELES
C ---------------------
      IF (IDIM.EQ.1) THEN
        NBPRO=4
        IF (NBPRO.GT.N1MAX) GOTO 99
        LESPRO(1)='ISOTROPE        '
        LESPRO(2)='FICK            '
        LESPRO(3)='SORET           '
        LESPRO(4)='UTILISATEUR     '
      ELSE
        NBPRO=6
        IF (NBPRO.GT.N1MAX) GOTO 99
        LESPRO(1)='ISOTROPE        '
        LESPRO(2)='ORTHOTROPE      '
        LESPRO(3)='ANISOTROPE      '
        LESPRO(4)='FICK            '
        LESPRO(5)='SORET           '
        LESPRO(6)='UTILISATEUR     '
      ENDIF

C  2 - Noms de types d'ELEMENTS FINIS
C ------------------------------------
      IF (IDIM.EQ.1) THEN
        NBTEF=2
        IF (NBTEF.GT.N2MAX) GOTO 99
C* En DIMEnsion 1, on s'appuie sur les elements mecaniques.
        LESTEF(1)='M1D2'
        LESTEF(2)='M1D3'
      ELSE IF (IDIM.EQ.2) THEN
        NBTEF=5
        IF (NBTEF.GT.N2MAX) GOTO 99
        LESTEF(1)='TRI3'
        LESTEF(2)='TRI6'
        LESTEF(3)='QUA4'
        LESTEF(4)='QUA8'
        LESTEF(5)='POLY'
C*    ELSE IF (IDIM.EQ.3) THEN
      ELSE
        NBTEF=8
        IF (NBTEF.GT.N2MAX) GOTO 99
        LESTEF(1)='CUB8'
        LESTEF(2)='CU20'
        LESTEF(3)='PRI6'
        LESTEF(4)='PR15'
        LESTEF(5)='TET4'
        LESTEF(6)='TE10'
        LESTEF(7)='PYR5'
        LESTEF(8)='PY13'
      ENDIF
      RETURN

C  3 - Traitement des ERREURS
C ----------------------------
 99   CALL ERREUR(5)
      RETURN

      END