Télécharger la plaquette Cast3M


fr en

Télécharger model4.eso

Retour à la liste

Numérotation des lignes : 

model4

  1. C MODEL4    SOURCE    MB234859  25/08/26    21:15:12     12343          
  2. C=======================================================================
  3. C=  Objet MODELE  -  Cas de la formulation 'CONVECTION'                =
  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 MODEL4 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  10.  
  11.       IMPLICIT INTEGER(I-N)
  12.       IMPLICIT REAL*8 (A-H,O-Z)
  13.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16.  
  17.       CHARACTER*16 LESPRO(*)
  18.       CHARACTER*4 LESTEF(*)
  19.  
  20. C  1 - Noms de MODELES :
  21. C -----------------------
  22.       CALL MODCON(LESPRO,NBPRO)
  23.  
  24. C  2 - Noms de types d'ELEMENTS FINIS :
  25. C --------------------------------------
  26.       IF (IFOMOD.GE.3.AND.IFOMOD.LE.5) THEN
  27.         NBTEF=2
  28.         IF (NBTEF.GT.N2MAX) GOTO 99
  29.         LESTEF(1)='POI1'
  30.         LESTEF(2)='SEG2'
  31.       ELSE
  32. C       -----------------
  33. C       Elements 2D et 3D
  34. C       -----------------
  35.         NBTEF=6
  36.         IF (NBTEF.GT.N2MAX) GOTO 99
  37.         LESTEF(1)='POI1'
  38.         LESTEF(2)='SEG2'
  39.         LESTEF(3)='SEG3'
  40.         LESTEF(4)='COQ2'
  41.         LESTEF(5)='RAC2'
  42.         LESTEF(6)='RAC3'
  43.         IF (IFOMOD.EQ.2) THEN
  44.           NBTEF=NBTEF+12
  45.           IF (NBTEF.GT.N2MAX) GOTO 99
  46.           LESTEF(NBTEF-11)='TRI3'
  47.           LESTEF(NBTEF-10)='TRI6'
  48.           LESTEF(NBTEF- 9)='QUA4'
  49.           LESTEF(NBTEF- 8)='QUA8'
  50.           LESTEF(NBTEF- 7)='COQ3'
  51.           LESTEF(NBTEF- 6)='COQ6'
  52.           LESTEF(NBTEF- 5)='COQ4'
  53.           LESTEF(NBTEF- 4)='COQ8'
  54.           LESTEF(NBTEF- 3)='LIA3'
  55.           LESTEF(NBTEF- 2)='LIA4'
  56.           LESTEF(NBTEF- 1)='LIA6'
  57.           LESTEF(NBTEF   )='LIA8'
  58.         ENDIF
  59.       ENDIF
  60.       RETURN
  61.  
  62. C  3 - Traitement des ERREURS
  63. C ----------------------------
  64.  99   CALL ERREUR(5)
  65.  
  66.       END
  67.  
  68.  

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