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  25/08/26    21:15:08     12343          
  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. -INC PPARAM
  14. -INC CCOPTIO
  15. C
  16.       CHARACTER*16 MOMODL(100)
  17.       CHARACTER*16 LESPRO(*)
  18.       CHARACTER*4 LESTEF(*)
  19. C
  20. C  NOMS DES MODELES DE CHARGEMENT
  21. C  -------------------------------
  22.       CALL MOCHAR(MOMODL,NMOD)
  23.       DO 1 I=1,NMOD
  24.          LESPRO(I)=MOMODL(I)
  25.  1    CONTINUE
  26.       NBPRO=NMOD
  27. C
  28.       IF(NBPRO.GT.N1MAX) GO TO 99
  29. C
  30. C  NOMS DE TYPES D'ELEMENTS FINIS
  31. C  ------------------------------
  32. C     -----------
  33. C     Elements 1D
  34. C     -----------
  35.       IF (IFOMOD.GE.3.AND.IFOMOD.LE.5) THEN
  36.         NBTEF=2
  37.         IF (NBTEF.GT.N2MAX) GOTO 99
  38.         LESTEF(1)='M1D2'
  39.         LESTEF(2)='M1D3'
  40.       ELSE
  41. C       -----------------
  42. C       Elements 2D et 3D
  43. C       -----------------
  44.         NBTEF=24
  45.         IF (NBTEF.GT.N2MAX) GOTO 99
  46.         LESTEF( 1)='POI1'
  47.         LESTEF( 2)='SEG2'
  48.         LESTEF( 3)='SEG3'
  49.         LESTEF( 4)='TRI3'
  50.         LESTEF( 5)='QUA4'
  51.         LESTEF( 6)='TRI6'
  52.         LESTEF( 7)='QUA8'
  53.         LESTEF( 8)='CUB8'
  54.         LESTEF( 9)='CU20'
  55.         LESTEF(10)='PRI6'
  56.         LESTEF(11)='PR15'
  57.         LESTEF(12)='TET4'
  58.         LESTEF(13)='TE10'
  59.         LESTEF(14)='COQ3'
  60.         LESTEF(15)='COQ4'
  61.         LESTEF(16)='COQ6'
  62.         LESTEF(17)='COQ8'
  63.         LESTEF(18)='DKT '
  64.         LESTEF(19)='DST '
  65.         LESTEF(20)='BARR'
  66.         LESTEF(21)='POUT'
  67.         LESTEF(22)='TUYA'
  68.         LESTEF(23)='TUYO'
  69.         LESTEF(24)='TIMO'
  70.         IF (IFOMOD.LT.2) THEN
  71.           NBTEF=NBTEF+1
  72.           IF (NBTEF.GT.N2MAX) GOTO 99
  73.           LESTEF(NBTEF-1)='COQ2'
  74.           LESTEF(NBTEF  )='POLY'
  75.         ENDIF
  76.       ENDIF
  77.       RETURN
  78. C
  79. C Traitement des ERREURS
  80. C -----------------------------
  81.   99  CALL ERREUR(5)
  82.       END
  83.  
  84.  

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