Télécharger la plaquette Cast3M


fr en

Télécharger mode17.eso

Retour à la liste

Numérotation des lignes : 

mode17

  1. C MODE17    SOURCE    FANDEUR   10/12/17    21:18:03     6427
  2.  
  3. C=======================================================================
  4. C=  Objet MODELE  -  Cas de la formulation 'ELECTROSTATIQUE'           =
  5. C=                                                                     =
  6. C=   Definition des noms de modeles de MATERIAU                        =
  7. C=           et des noms de types d'ELEMENTS FINIS                     =
  8. C=======================================================================
  9.  
  10.       SUBROUTINE MODE17 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  11.  
  12.       IMPLICIT INTEGER(I-N)
  13.       IMPLICIT REAL*8 (A-H,O-Z)
  14.  
  15.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18.  
  19.       CHARACTER*16 LESPRO(*)
  20.       CHARACTER*4 LESTEF(*)
  21.  
  22. C  1 - Noms de MODELES
  23. C ---------------------
  24.       IF (IDIM.EQ.1) THEN
  25.         NBPRO=1
  26.         IF (NBPRO.GT.N1MAX) GOTO 99
  27.         LESPRO(1)='ISOTROPE        '
  28.       ELSE
  29.         NBPRO=3
  30.         IF (NBPRO.GT.N1MAX) GOTO 99
  31.         LESPRO(1)='ISOTROPE        '
  32.         LESPRO(2)='ORTHOTROPE      '
  33.         LESPRO(3)='ANISOTROPE      '
  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. C* En DIMEnsion 1, on s'appuie sur les elements mecaniques.
  42.         LESTEF(1)='M1D2'
  43.         LESTEF(2)='M1D3'
  44.       ELSE IF (IDIM.EQ.2) THEN
  45.         NBTEF=5
  46.         IF (NBTEF.GT.N2MAX) GOTO 99
  47.         LESTEF(1)='TRI3'
  48.         LESTEF(2)='TRI6'
  49.         LESTEF(3)='QUA4'
  50.         LESTEF(4)='QUA8'
  51.         LESTEF(5)='POLY'
  52. C*    ELSE IF (IDIM.EQ.3) THEN
  53.       ELSE
  54.         NBTEF=8
  55.         IF (NBTEF.GT.N2MAX) GOTO 99
  56.         LESTEF(1)='CUB8'
  57.         LESTEF(2)='CU20'
  58.         LESTEF(3)='PRI6'
  59.         LESTEF(4)='PR15'
  60.         LESTEF(5)='TET4'
  61.         LESTEF(6)='TE10'
  62.         LESTEF(7)='PYR5'
  63.         LESTEF(8)='PY13'
  64.       ENDIF
  65.       RETURN
  66.  
  67. C  3 - Traitement des ERREURS
  68. C ----------------------------
  69.  99   CALL ERREUR(5)
  70.       RETURN
  71.  
  72.       END
  73.  
  74.  
  75.  

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