Esope source files

   1 : C MODE11    SOURCE    CHAT      05/01/13    01:47:45     5004           
   2 :       SUBROUTINE MODE11(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
   3 : C-----------------------------------------------------------------------
   4 : C Definition des noms de proprietes de materiau et du noms de
   5 : C type d'elements fini dans le cas d'une formulation NAVIER_STOKES
   6 : C-----------------------------------------------------------------------
   7 : C
   8 : C---------------------------
   9 : C Parametres Entree/Sortie :
  10 : C---------------------------
  11 : C
  12 : C  /S LESPRO  : Noms des proprietes du materiau autorises
  13 : C  /S NBPRO   : Nombre de noms contenus dans LESPRO.
  14 : C  /S LESTEF  : Noms des types d'elements finis autorises
  15 : C  /S NBTEF   : Nombre de noms contenus dans LESTEF.
  16 : C E/  N1MAX   : Taille maximale du vecteur LESPRO.
  17 : C E/  N2MAX   : Taille maximale du vecteur LESTEF.
  18 : C
  19 : C----------------------
  20 : C Variables en COMMON :
  21 : C----------------------
  22 : C
  23 : C     IDIM    : Dimension de l'espace (2 en 2D, 3 en 3D)
  24 : C
  25 : C-----------------------------------------------------------------------
  26 : C
  27 : C Langage : FORTRAN77
  28 : C
  29 : C Auteurs :
  30 : C
  31 : C-----------------------------------------------------------------------
  32 :       IMPLICIT INTEGER(I-N)
  33 : -INC CCOPTIO                                                                    
  34 : C
  35 :       CHARACTER*16 LESPRO(*)                                                    
  36 :       CHARACTER*4  LESTEF(*)
  37 : *                                                                               
  38 : *= Noms des proprietes de materiau autorisees
  39 : *                                                                               
  40 :       NBPRO = 3
  41 :       IF (NBPRO.GT.N1MAX) THEN
  42 :          GOTO 100
  43 :       ELSE
  44 :          LESPRO(1) = 'NEWTONIEN'
  45 :          LESPRO(2) = 'BINGHAM'
  46 :          LESPRO(3) = 'VISCOPLASTIQUE'
  47 :       ENDIF
  48 : *                                                                               
  49 : *= Noms des types d'elements finis autorises
  50 : *                                                                               
  51 :          NBTEF = 4
  52 :             LESTEF(1) = 'LINE'
  53 :             LESTEF(2) = 'MACR'
  54 :             LESTEF(3) = 'QUAF'
  55 :             LESTEF(4) = 'LINB'
  56 : *
  57 :       RETURN                                                                    
  58 : *                                                                               
  59 : *= ERREUR : Taille d'un des vecteurs LES... insuffisante.
  60 : *                                                                               
  60 :  100  CALL ERREUR(5)
  61 :       RETURN                                                                    
  62 :       END                                                                       
  63 :  
  64 :  
  65 :  
  66 :