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    CHAT      12/06/07    21:15:37     7389
  2.  
  3. C=======================================================================
  4. C=  Objet MODELE  -  Cas de la formulation 'CONVECTION'                =
  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 MODEL4 (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.  
  18.       CHARACTER*16 LESPRO(*)
  19.       CHARACTER*4 LESTEF(*)
  20.  
  21. C  1 - Noms de MODELES :
  22. C -----------------------
  23.       IF (IDIM.EQ.1) THEN
  24.         NBPRO=0
  25.       ELSE
  26.         NBPRO=2
  27.         IF (NBPRO.GT.N1MAX) GOTO 99
  28.         LESPRO(1)='INFERIEURE'
  29.         LESPRO(2)='SUPERIEURE'
  30.       ENDIF
  31.  
  32. C  2 - Noms de types d'ELEMENTS FINIS :
  33. C --------------------------------------
  34.       IF (IDIM.EQ.1) THEN
  35.         NBTEF=2
  36.         IF (NBTEF.GT.N2MAX) GOTO 99
  37.         LESTEF(1)='POI1'
  38.         LESTEF(2)='SEG2'
  39.       ELSE IF (IDIM.EQ.2) THEN
  40.         NBTEF=3
  41.         IF (NBTEF.GT.N2MAX) GOTO 99
  42.         LESTEF(1)='SEG2'
  43.         LESTEF(2)='SEG3'
  44.         LESTEF(3)='COQ2'
  45. C*    ELSE IF (IDIM.EQ.3) THEN
  46.       ELSE
  47.         NBTEF=8
  48.         IF (NBTEF.GT.N2MAX) GOTO 99
  49.         LESTEF(1)='TRI3'
  50.         LESTEF(2)='TRI6'
  51.         LESTEF(3)='QUA4'
  52.         LESTEF(4)='QUA8'
  53.         LESTEF(5)='COQ3'
  54.         LESTEF(6)='COQ6'
  55.         LESTEF(7)='COQ4'
  56.         LESTEF(8)='COQ8'
  57.       ENDIF
  58.       RETURN
  59.  
  60. C  3 - Traitement des ERREURS
  61. C ----------------------------
  62.  99   CALL ERREUR(5)
  63.       RETURN
  64.  
  65.       END
  66.  
  67.  
  68.  
  69.  
  70.  

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