Esope source files

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