C MODE11    SOURCE    CHAT      05/01/13    01:47:45     5004           
      SUBROUTINE MODE11(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
C-----------------------------------------------------------------------
C Definition des noms de proprietes de materiau et du noms de
C type d'elements fini dans le cas d'une formulation NAVIER_STOKES
C-----------------------------------------------------------------------
C
C---------------------------
C Parametres Entree/Sortie :
C---------------------------
C
C  /S LESPRO  : Noms des proprietes du materiau autorises
C  /S NBPRO   : Nombre de noms contenus dans LESPRO.
C  /S LESTEF  : Noms des types d'elements finis autorises
C  /S NBTEF   : Nombre de noms contenus dans LESTEF.
C E/  N1MAX   : Taille maximale du vecteur LESPRO.
C E/  N2MAX   : Taille maximale du vecteur LESTEF.
C
C----------------------
C Variables en COMMON :
C----------------------
C
C     IDIM    : Dimension de l'espace (2 en 2D, 3 en 3D)
C
C-----------------------------------------------------------------------
C
C Langage : FORTRAN77
C
C Auteurs :
C
C-----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
C
      CHARACTER*16 LESPRO(*)                                                    
      CHARACTER*4  LESTEF(*)
*                                                                               
*= Noms des proprietes de materiau autorisees
*                                                                               
      NBPRO = 3
      IF (NBPRO.GT.N1MAX) THEN
         GOTO 100
      ELSE
         LESPRO(1) = 'NEWTONIEN'
         LESPRO(2) = 'BINGHAM'
         LESPRO(3) = 'VISCOPLASTIQUE'
      ENDIF
*                                                                               
*= Noms des types d'elements finis autorises
*                                                                               
         NBTEF = 4
            LESTEF(1) = 'LINE'
            LESTEF(2) = 'MACR'
            LESTEF(3) = 'QUAF'
            LESTEF(4) = 'LINB'
*
      RETURN                                                                    
*                                                                               
*= ERREUR : Taille d'un des vecteurs LES... insuffisante.
*                                                                               
 100  CALL ERREUR(5)
      RETURN                                                                    
      END