Télécharger la plaquette Cast3M


fr en

Télécharger model1.eso

Retour à la liste

Numérotation des lignes : 

model1

  1. C MODEL1    SOURCE    MB234859  25/08/26    21:15:10     12343          
  2. C=======================================================================
  3. C=  Objet MODELE  -  Cas de la formulation 'THERMIQUE'                 =
  4. C=                                                                     =
  5. C=   Definition des noms de modeles de MATERIAU                        =
  6. C=           et des noms de types d'ELEMENTS FINIS                     =
  7. C=======================================================================
  8. C
  9.       SUBROUTINE MODEL1 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  10. C
  11.       IMPLICIT INTEGER(I-N)
  12.       IMPLICIT REAL*8 (A-H,O-Z)
  13. C
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. C
  17.       CHARACTER*16 MOMODL(200)
  18.       CHARACTER*16 LESPRO(*)
  19.       CHARACTER*4  LESTEF(*)
  20. C
  21. C  1 - Noms de MODELES
  22. C ---------------------
  23.       CALL MODTHE(MOMODL,NMOD)
  24.       DO i=1,NMOD
  25.         LESPRO(i)=MOMODL(i)
  26.       ENDDO
  27.       NBPRO=NMOD
  28.       IF (NBPRO.GT.N1MAX) GOTO 99
  29. C
  30. C  2 - Noms des comportements THERMIQUE
  31. C -------------------------------------
  32.       CALL MOCOTH(MOMODL,NMOD)
  33.       DO i=NBPRO+1,NBPRO+NMOD
  34.         LESPRO(i)=MOMODL(i-NBPRO)
  35.       ENDDO
  36.       NBPRO=NBPRO+NMOD
  37.       IF (NBPRO.GT.N1MAX) GOTO 99
  38. C
  39. C  3 - Noms des comportements CONVECTION
  40. C --------------------------------------
  41.       CALL MODCON(MOMODL,NMOD)
  42.       DO i=NBPRO+1,NBPRO+NMOD
  43.         LESPRO(i)=MOMODL(i-NBPRO)
  44.       ENDDO
  45.       NBPRO=NBPRO+NMOD
  46.       IF (NBPRO.GT.N1MAX) GOTO 99
  47. C
  48. C  4 - Noms des comportements RAYONNEMENT
  49. C -------------------------------------
  50.       CALL MODRAY(MOMODL,NMOD)
  51.       DO i=NBPRO+1,NBPRO+NMOD
  52.         LESPRO(i)=MOMODL(i-NBPRO)
  53.       ENDDO
  54.       NBPRO=NBPRO+NMOD
  55.       IF (NBPRO.GT.N1MAX) GOTO 99
  56. C
  57. C  5 - Noms des comportements SOURCE
  58. C -------------------------------------
  59.       CALL MODSRC(MOMODL,NMOD)
  60.       DO i=NBPRO+1,NBPRO+NMOD
  61.         LESPRO(i)=MOMODL(i-NBPRO)
  62.       ENDDO
  63.       NBPRO=NBPRO+NMOD
  64.       IF (NBPRO.GT.N1MAX) GOTO 99
  65.  
  66. C  6 - Noms de types d'ELEMENTS FINIS
  67. C ------------------------------------
  68. C     -----------
  69. C     Elements 1D
  70. C     -----------
  71.       IF (IFOMOD.GE.3.AND.IFOMOD.LE.5) THEN
  72.         NBTEF=2
  73.         IF (NBTEF.GT.N2MAX) GOTO 99
  74.         LESTEF(1)='T1D2'
  75.         LESTEF(2)='T1D3'
  76.       ELSE
  77. C       -----------------
  78. C       Elements 2D et 3D
  79. C       -----------------
  80.         NBTEF=25
  81.         IF (NBTEF.GT.N2MAX) GOTO 99
  82.         LESTEF( 1)='POI1'
  83.         LESTEF( 2)='SEG2'
  84.         LESTEF( 3)='COQ2'
  85.         LESTEF( 4)='BARR'
  86.         LESTEF( 5)='BAR3'
  87.         LESTEF( 6)='TUY2'
  88.         LESTEF( 7)='JOI1'
  89.         LESTEF( 8)='SEG3'
  90.         LESTEF( 9)='TUY3'
  91.         LESTEF(10)='TRI3'
  92.         LESTEF(11)='COQ3'
  93.         LESTEF(12)='TRI6'
  94.         LESTEF(13)='COQ6'
  95.         LESTEF(14)='QUA4'
  96.         LESTEF(15)='COQ4'
  97.         LESTEF(16)='QUA8'
  98.         LESTEF(17)='COQ8'
  99.         LESTEF(18)='CUB8'
  100.         LESTEF(19)='CU20'
  101.         LESTEF(20)='PRI6'
  102.         LESTEF(21)='PR15'
  103.         LESTEF(22)='TET4'
  104.         LESTEF(23)='TE10'
  105.         LESTEF(24)='PYR5'
  106.         LESTEF(25)='PY13'
  107.         IF (IFOMOD.NE.3) THEN
  108.           NBTEF=26
  109.           IF (NBTEF.GT.N2MAX) GOTO 99
  110.           LESTEF(26)='POLY'
  111.         ENDIF
  112.       ENDIF
  113.       RETURN
  114.  
  115. C  7 - Traitement des ERREURS
  116. C ----------------------------
  117.  99   CALL ERREUR(5)
  118.  
  119.       END
  120.  
  121.  

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