C MODEL1    SOURCE    FANDEUR   12/07/05    21:16:02     7423           

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

      SUBROUTINE MODEL1 (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=5
c*      NBPRO=6
        IF (NBPRO.GT.N1MAX) GOTO 99
        LESPRO(1)='ISOTROPE'
        LESPRO(2)='CONDUCTION'
        LESPRO(3)='PHASE'
        LESPRO(4)='CONVECTION'
        LESPRO(5)='RAYONNEMENT'
c*      LESPRO(6)='ADVECTION'
      ELSE
        NBPRO=8
        IF (NBPRO.GT.N1MAX) GOTO 99
        LESPRO(1)='ISOTROPE'
        LESPRO(2)='ORTHOTROPE'
        LESPRO(3)='ANISOTROPE'
        LESPRO(4)='PHASE'
        LESPRO(5)='CONVECTION'
        LESPRO(6)='RAYONNEMENT'
        LESPRO(7)='ADVECTION'
        LESPRO(8)='CONDUCTION'
      ENDIF

C  2 - Noms de types d'ELEMENTS FINIS
C ------------------------------------
      IF (IDIM.EQ.1) THEN
        NBTEF=2
        IF (NBTEF.GT.N2MAX) GOTO 99
        LESTEF(1)='T1D2'
        LESTEF(2)='T1D3'
      ELSE IF (IDIM.EQ.2) THEN
        NBTEF=12
        IF (NBTEF.GT.N2MAX) GOTO 99
        LESTEF(1)='SEG2'
        LESTEF(2)='SEG3'
        LESTEF(3)='TRI3'
        LESTEF(4)='TRI6'
        LESTEF(5)='QUA4'
        LESTEF(6)='QUA8'
        LESTEF(7)='COQ2'
        LESTEF(8)='BARR'
        LESTEF(9)='BAR3'
        LESTEF(10)='POLY'
        LESTEF(11)='TUY2'
        LESTEF(12)='TUY3'
        
C*    ELSE IF (IDIM.EQ.3) THEN
      ELSE
        NBTEF=16
        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'
        LESTEF( 9)='COQ3'
        LESTEF(10)='COQ4'
        LESTEF(11)='COQ6'
        LESTEF(12)='COQ8'
        LESTEF(13)='BARR'
        LESTEF(14)='BAR3'
        LESTEF(15)='TUY2'
        LESTEF(16)='TUY3'
      ENDIF
      RETURN

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

      END