Télécharger la plaquette Cast3M


fr en

Télécharger mode16.eso

Retour à la liste

Numérotation des lignes : 

mode16

  1. C MODE16    SOURCE    CHAT      08/10/02    21:15:34     6168
  2. C=======================================================================
  3. C=  Objet MODELE  -  Cas de la formulation 'THERMOHYDRIQUE'            =
  4. C=                                                                     =
  5. C=   Definition des noms de modeles de MATERIAU                        =
  6. C=           et des noms de types d'ELEMENTS FINIS                     =
  7. C=======================================================================
  8.  
  9.       SUBROUTINE MODE16 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  10.  
  11.       IMPLICIT INTEGER(I-N)
  12.       IMPLICIT REAL*8 (A-H,O-Z)
  13.  
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17.  
  18.       CHARACTER*16 LESPRO(*)
  19.       CHARACTER*4 LESTEF(*)
  20.  
  21.  
  22. C  1 - Noms de MODELES
  23. C ---------------------
  24.  
  25. *      IF (IDIM.EQ.1) THEN
  26. *        NBPRO=1
  27. *        IF (NBPRO.GT.N1MAX) GOTO 99
  28. *        LESPRO(1)='SCHREFLER'
  29. *      ELSE
  30.         NBPRO=1
  31.         IF (NBPRO.GT.N1MAX) GOTO 99
  32.         LESPRO(1)='SCHREFLER'
  33. *        LESPRO(2)='2eme choix'
  34. *      ENDIF
  35.  
  36. C  2 - Noms de types d'ELEMENTS FINIS
  37. C ------------------------------------
  38. *      IF (IDIM.EQ.1) THEN
  39. *        NBTEF=2
  40. *        IF (NBTEF.GT.N2MAX) GOTO 99
  41. *        LESTEF(1)='T1D2'
  42. *        LESTEF(2)='T1D3'
  43. *      ELSE IF (IDIM.EQ.2) THEN
  44.       IF (IDIM.EQ.2) THEN
  45.         NBTEF=6
  46.         IF (NBTEF.GT.N2MAX) GOTO 99
  47.         LESTEF(1)='SEG2'
  48.         LESTEF(2)='SEG3'
  49.         LESTEF(3)='TRI3'
  50.         LESTEF(4)='TRI6'
  51.         LESTEF(5)='QUA4'
  52.         LESTEF(6)='QUA8'
  53. C*    ELSE IF (IDIM.EQ.3) THEN
  54.       ELSE
  55.         NBTEF=8
  56.         IF (NBTEF.GT.N2MAX) GOTO 99
  57.         LESTEF( 1)='CUB8'
  58.         LESTEF( 2)='CU20'
  59.         LESTEF( 3)='PRI6'
  60.         LESTEF( 4)='PR15'
  61.         LESTEF( 5)='TET4'
  62.         LESTEF( 6)='TE10'
  63.         LESTEF( 7)='PYR5'
  64.         LESTEF( 8)='PY13'
  65.       ENDIF
  66.       RETURN
  67.  
  68. C  3 - Traitement des ERREURS
  69. C ----------------------------
  70.  99   CALL ERREUR(5)
  71.       RETURN
  72.  
  73.       END
  74.  
  75.  
  76.  
  77.  
  78.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales