Télécharger la plaquette Cast3M


fr en

Télécharger mode18.eso

Retour à la liste

Numérotation des lignes : 

mode18

  1. C MODE18    SOURCE    MB234859  25/08/26    21:15:08     12343          
  2.  
  3. C=======================================================================
  4. C=  Objet MODELE  -  Cas de la formulation 'DIFFUSION'                 =
  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 MODE18 (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  MOMODL(200)
  20.       CHARACTER*16  LESPRO(*)
  21.       CHARACTER*(*) LESTEF(*)
  22. C
  23. C  1 - Noms de MODELES
  24. C ---------------------
  25.       CALL MODTHE(MOMODL,NMOD)
  26.       DO i=1,NMOD
  27.         LESPRO(i)=MOMODL(i)
  28.       ENDDO
  29.       NBPRO=NMOD
  30. C
  31. C  2 - Noms des comportements DIFFUSION
  32. C -------------------------------------
  33.       CALL MODDIF(MOMODL,NMOD)
  34.       DO i=NBPRO+1,NBPRO+NMOD
  35.         LESPRO(i)=MOMODL(i-NBPRO)
  36.       ENDDO
  37.       NBPRO=NBPRO+NMOD
  38.  
  39. C  2 - Noms de types d'ELEMENTS FINIS
  40. C ------------------------------------
  41.       IF (IDIM.EQ.1) THEN
  42.         NBTEF=3
  43.         IF (NBTEF.GT.N2MAX) GOTO 99
  44. * En attendant le retour a la normale pour la diffusion, on ajoute une
  45. * enieme rustine en mettant les memes elements qu'en thermique.
  46. CC      LESTEF(1)='M1D2'
  47. CC      LESTEF(2)='M1D3'
  48.         LESTEF(1)='T1D2'
  49.         LESTEF(2)='T1D3'
  50.         LESTEF(3)='POI1'
  51.  
  52.       ELSEIF (IDIM.EQ.2) THEN
  53.         NBTEF=12
  54.         IF (NBTEF.GT.N2MAX) GOTO 99
  55.         LESTEF(1 )='TRI3'
  56.         LESTEF(2 )='TRI6'
  57.         LESTEF(3 )='QUA4'
  58.         LESTEF(4 )='QUA8'
  59.         LESTEF(5 )='POLY'
  60.         LESTEF(6 )='COQ2'
  61.         LESTEF(7 )='BARR'
  62.         LESTEF(8 )='BAR3'
  63.         LESTEF(9 )='TUY2'
  64.         LESTEF(10)='TUY3'
  65.         LESTEF(11)='JOI1'
  66.         LESTEF(12)='POI1'
  67.  
  68. C*    ELSE IF (IDIM.EQ.3) THEN
  69.       ELSE
  70.         NBTEF=18
  71.         IF (NBTEF.GT.N2MAX) GOTO 99
  72.         LESTEF(1 )='CUB8'
  73.         LESTEF(2 )='CU20'
  74.         LESTEF(3 )='PRI6'
  75.         LESTEF(4 )='PR15'
  76.         LESTEF(5 )='TET4'
  77.         LESTEF(6 )='TE10'
  78.         LESTEF(7 )='PYR5'
  79.         LESTEF(8 )='PY13'
  80.         LESTEF(9 )='COQ3'
  81.         LESTEF(10)='COQ4'
  82.         LESTEF(11)='COQ6'
  83.         LESTEF(12)='COQ8'
  84.         LESTEF(13)='BARR'
  85.         LESTEF(14)='BAR3'
  86.         LESTEF(15)='TUY2'
  87.         LESTEF(16)='TUY3'
  88.         LESTEF(17)='JOI1'
  89.         LESTEF(18)='POI1'
  90.       ENDIF
  91.       RETURN
  92.  
  93. C  3 - Traitement des ERREURS
  94. C ----------------------------
  95.  99   CALL ERREUR(5)
  96.       RETURN
  97.  
  98.       END
  99.  
  100.  
  101.  

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