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    MB234859  25/08/26    21:15:13     12343          
  2. C=======================================================================
  3. C=  Objet MODELE  -  Cas de la formulation 'RAYONNEMENT'               =
  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 MODEL9(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.       CHARACTER*16 LESPRO(*)
  17.       CHARACTER*4 LESTEF(*)
  18.  
  19. C  1 - Noms de MODELES :
  20. C -----------------------
  21.       CALL MODRAY(LESPRO,NBPRO)
  22.  
  23. C  2 - Noms de types d'ELEMENTS FINIS :
  24. C --------------------------------------
  25.       IF (IDIM.EQ.1) THEN
  26.         NBTEF=2
  27.         IF (NBTEF.GT.N2MAX) GOTO 99
  28.         LESTEF(1)='POI1'
  29.         LESTEF(2)='SEG2'
  30.       ELSE IF (IDIM.EQ.2) THEN
  31.         NBTEF=3
  32.         IF (NBTEF.GT.N2MAX) GOTO 99
  33.         LESTEF(1)='SEG2'
  34.         LESTEF(2)='SEG3'
  35.         LESTEF(3)='COQ2'
  36. C**   ELSE IF (IDIM.EQ.3) THEN
  37.       ELSE
  38.         NBTEF=8
  39.         IF (NBTEF.GT.N2MAX) GOTO 99
  40.         LESTEF(1)='TRI3'
  41.         LESTEF(2)='TRI6'
  42.         LESTEF(3)='QUA4'
  43.         LESTEF(4)='QUA8'
  44.         LESTEF(5)='COQ3'
  45.         LESTEF(6)='COQ6'
  46.         LESTEF(7)='COQ4'
  47.         LESTEF(8)='COQ8'
  48.       ENDIF
  49.       RETURN
  50.  
  51. C  3 - Traitement des ERREURS
  52. C ----------------------------
  53.  99   CALL ERREUR(5)
  54.  
  55.       END
  56.  
  57.  

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