Télécharger la plaquette Cast3M


fr en

Télécharger mode19.eso

Retour à la liste

Numérotation des lignes : 

mode19

  1. C MODE19    SOURCE    MB234859  16/10/13    21:15:15     9126           
  2.       SUBROUTINE MODE19(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. C=======================================================================
  4. C=  Objet MODELE  -  Cas de la formulation 'CHARGEMENT'                =
  5. C=                                                                     =
  6. C=   Definition des noms de modeles de CHARGEMENT                      =
  7. C=           et des noms de types d'ELEMENTS FINIS                     =
  8. C=======================================================================
  9. C
  10.       IMPLICIT INTEGER(I-N)
  11.       IMPLICIT REAL*8 (A-H,O-Z)
  12. C
  13.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. C
  17.       CHARACTER*16 MOMODL(100)
  18.       CHARACTER*16 LESPRO(*)
  19.       CHARACTER*4 LESTEF(*)
  20. C
  21. C  NOMS DES MODELES DE CHARGEMENT
  22. C  -------------------------------
  23.       CALL MOCHAR(MOMODL,NMOD)
  24.       DO 1 I=1,NMOD
  25.          LESPRO(I)=MOMODL(I)
  26.  1    CONTINUE
  27.       NBPRO=NMOD
  28. C
  29.       IF(NBPRO.GT.N1MAX) GO TO 99
  30. C
  31. C  NOMS DE TYPES D'ELEMENTS FINIS
  32. C  ------------------------------
  33. C  DIMENSION 1 :
  34. C ---------------
  35.       IF (IDIM.EQ.1) THEN
  36.         NBTEF=2
  37.         IF (NBTEF.GT.N2MAX) GOTO 99
  38.         LESTEF(1)='M1D2'
  39.         LESTEF(2)='M1D3'
  40. C  DIMENSION 2 :
  41. C ---------------
  42. C  Les EF sont definis suivant la valeur de IFOUR
  43.       ELSE IF (IDIM.EQ.2) THEN
  44.         IF (IFOUR.EQ.0.OR.IFOUR.EQ.1) THEN
  45.           NBTEF=6
  46.           IF (NBTEF.GT.N2MAX) GOTO 99
  47.           LESTEF(1)='TRI3'
  48.           LESTEF(2)='TRI6'
  49.           LESTEF(3)='QUA4'
  50.           LESTEF(4)='QUA8'
  51.           LESTEF(5)='COQ2'
  52.           LESTEF(6)='BARR'
  53.         ELSE
  54.           NBTEF=9
  55.           IF (NBTEF.GT.N2MAX) GOTO 99
  56.           LESTEF(1)='TRI3'
  57.           LESTEF(2)='TRI6'
  58.           LESTEF(3)='QUA4'
  59.           LESTEF(4)='QUA8'
  60.           LESTEF(5)='COQ2'
  61.           LESTEF(6)='BARR'
  62.           LESTEF(7)='POI1'
  63.           LESTEF(8)='TIMO'
  64.           LESTEF(9)='POUT'
  65.         ENDIF
  66. C  DIMENSION 3 :
  67. C ---------------
  68.       ELSE IF (IDIM.EQ.3) THEN
  69.         NBTEF=19
  70.         IF (NBTEF.GT.N2MAX) GOTO 99
  71.         LESTEF( 1)='CUB8'
  72.         LESTEF( 2)='CU20'
  73.         LESTEF( 3)='PRI6'
  74.         LESTEF( 4)='PR15'
  75.         LESTEF( 5)='TET4'
  76.         LESTEF( 6)='TE10'
  77.         LESTEF( 7)='COQ3'
  78.         LESTEF( 8)='COQ4'
  79.         LESTEF( 9)='COQ6'
  80.         LESTEF(10)='COQ8'
  81.         LESTEF(11)='DKT '
  82.         LESTEF(12)='BARR'
  83.         LESTEF(13)='POUT'
  84.         LESTEF(14)='TUYA'
  85.         LESTEF(15)='DST '
  86.         LESTEF(16)='TUYO'
  87.         LESTEF(17)='TIMO'
  88.         LESTEF(18)='POI1'
  89.         LESTEF(19)='JOI1'
  90.       ENDIF
  91.       RETURN
  92. C
  93. C Traitement des ERREURS
  94. C -----------------------------
  95.   99  CALL ERREUR(5)
  96.       RETURN
  97.       END
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  

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