Télécharger la plaquette Cast3M


fr en

Télécharger mode23.eso

Retour à la liste

Numérotation des lignes : 

mode23

  1. C MODE23    SOURCE    SP204843  24/03/29    21:15:04     11878          
  2.       SUBROUTINE MODE23(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3.  
  4. C=======================================================================
  5. C=  Objet MODELE  -  Cas de la formulation 'SOURCE'                    =
  6. C=                                                                     =
  7. C=  Definition des noms de modeles de MATERIAU                         =
  8. C=          et des noms de types d'ELEMENTS FINIS                      =
  9. C=======================================================================
  10.  
  11.       IMPLICIT INTEGER(I-N)
  12.       IMPLICIT REAL*8 (A-H,O-Z)
  13.  
  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.       NBPRO=4
  24.       IF (NBPRO.GT.N1MAX) GOTO 99
  25.       LESPRO(1)='GAUSSIENNE'
  26.       LESPRO(2)='SPHERIQUE'
  27.       LESPRO(3)='ELLIPTIQUE'
  28.       LESPRO(4)='ELARGIE'
  29.  
  30. C  2 - Noms de types d'ELEMENTS FINIS :
  31. C --------------------------------------
  32.       IF (IDIM.EQ.1) THEN
  33.         NBTEF=2
  34.         IF (NBTEF.GT.N2MAX) GOTO 99
  35.         LESTEF(1)='T1D2'
  36.         LESTEF(2)='T1D3'
  37.       ELSE IF (IDIM.EQ.2) THEN
  38.         NBTEF=12
  39.         IF (NBTEF.GT.N2MAX) GOTO 99
  40.         LESTEF(1)='SEG2'
  41.         LESTEF(2)='SEG3'
  42.         LESTEF(3)='TRI3'
  43.         LESTEF(4)='TRI6'
  44.         LESTEF(5)='QUA4'
  45.         LESTEF(6)='QUA8'
  46.         LESTEF(7)='COQ2'
  47.         LESTEF(8)='BARR'
  48.         LESTEF(9)='BAR3'
  49.         LESTEF(10)='POLY'
  50.         LESTEF(11)='TUY2'
  51.         LESTEF(12)='TUY3'
  52. C*    ELSE IF (IDIM.EQ.3) THEN
  53.       ELSE
  54.         NBTEF=16
  55.         IF (NBTEF.GT.N2MAX) GOTO 99
  56.         LESTEF( 1)='CUB8'
  57.         LESTEF( 2)='CU20'
  58.         LESTEF( 3)='PRI6'
  59.         LESTEF( 4)='PR15'
  60.         LESTEF( 5)='TET4'
  61.         LESTEF( 6)='TE10'
  62.         LESTEF( 7)='PYR5'
  63.         LESTEF( 8)='PY13'
  64.         LESTEF( 9)='COQ3'
  65.         LESTEF(10)='COQ4'
  66.         LESTEF(11)='COQ6'
  67.         LESTEF(12)='COQ8'
  68.         LESTEF(13)='BARR'
  69.         LESTEF(14)='BAR3'
  70.         LESTEF(15)='TUY2'
  71.         LESTEF(16)='TUY3'
  72.       ENDIF
  73.       RETURN
  74.  
  75. C  3 - Traitement des ERREURS
  76. C ----------------------------
  77.  99   CALL ERREUR(5)
  78.       RETURN
  79.  
  80.       END
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  

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