Télécharger la plaquette Cast3M


fr en

Télécharger model9.eso

Retour à la liste

Numérotation des lignes : 

model9

  1. C MODEL9    SOURCE    CHAT      12/06/07    21:15:38     7389
  2.  
  3. C=======================================================================
  4. C=  Objet MODELE  -  Cas de la formulation 'RAYONNEMENT'               =
  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 MODEL9(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  11.  
  12.       IMPLICIT INTEGER(I-N)
  13.       IMPLICIT REAL*8 (A-H,O-Z)
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17.       CHARACTER*16 LESPRO(*)
  18.       CHARACTER*4 LESTEF(*)
  19.  
  20. C  1 - Noms de MODELES :
  21. C -----------------------
  22.       NBPRO=9
  23.          LESPRO(1)='CAVITE'
  24.          LESPRO(2)='FAC_A_FAC'
  25.          LESPRO(3)='INFINI'
  26.          LESPRO(4)='CONVEXE'
  27.          LESPRO(5)='FERME'
  28.          LESPRO(6)='TRAYO'
  29.          LESPRO(7)='SYMETRIE'
  30.          lespro(8)='NGAU'
  31.          lespro(9)='DANG'
  32.  
  33. C  2 - Noms de types d'ELEMENTS FINIS :
  34. C --------------------------------------
  35.       IF (IDIM.EQ.1) THEN
  36.         NBTEF=2
  37.         IF (NBTEF.GT.N2MAX) GOTO 99
  38.         LESTEF(1)='POI1'
  39.         LESTEF(2)='SEG2'
  40.       ELSE IF (IDIM.EQ.2) THEN
  41.         NBTEF=3
  42.         IF (NBTEF.GT.N2MAX) GOTO 99
  43.         LESTEF(1)='SEG2'
  44.         LESTEF(2)='SEG3'
  45.         LESTEF(3)='COQ2'
  46. C**   ELSE IF (IDIM.EQ.3) THEN
  47.       ELSE
  48.         NBTEF=8
  49.         IF (NBTEF.GT.N2MAX) GOTO 99
  50.         LESTEF(1)='TRI3'
  51.         LESTEF(2)='TRI6'
  52.         LESTEF(3)='QUA4'
  53.         LESTEF(4)='QUA8'
  54.         LESTEF(5)='COQ3'
  55.         LESTEF(6)='COQ6'
  56.         LESTEF(7)='COQ4'
  57.         LESTEF(8)='COQ8'
  58.       ENDIF
  59.       RETURN
  60.  
  61. C  3 - Traitement des ERREURS
  62. C ----------------------------
  63.  99   CALL ERREUR(5)
  64.       RETURN
  65.  
  66.       END
  67.  
  68.  
  69.  
  70.  
  71.  

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