Télécharger la plaquette Cast3M


fr en

Télécharger mode12.eso

Retour à la liste

Numérotation des lignes : 

mode12

  1. C MODE12    SOURCE    CHAT      05/01/13    01:47:48     5004
  2.       SUBROUTINE MODE12(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. *----------------------------------------------------------------------
  4. *    OBJET MODELE  -  CAS DE LA FORMULATION 'MELANGE'
  5.       IMPLICIT INTEGER(I-N)
  6.  
  7. *    DEFINITION DES NOMS DE MODELES DE MATERIAU
  8. *            ET DES NOMS DE TYPES D'ELEMENTS FINIS
  9. *----------------------------------------------------------------------
  10.  
  11. -INC PPARAM
  12. -INC CCOPTIO
  13.       CHARACTER*16 MOMODL(100)
  14.       CHARACTER*16 LESPRO(*)
  15. *
  16.       CHARACTER*4 LESTEF(*)
  17. *
  18. *  NOMS DES approches
  19. *
  20.       CALL MODMEL (MOMODL,NMOD)
  21.       DO 1 I=1,NMOD
  22.          LESPRO(I)=MOMODL(I)
  23.  1    CONTINUE
  24.       NBPRO=NMOD
  25.  
  26. *
  27. *  NOMS DE TYPES D'ELEMENTS FINIS
  28. *
  29.       IF(IDIM.EQ.2) THEN
  30.       NBTEF=9
  31.       IF(NBTEF.GT.N2MAX) GO TO 99
  32.       LESTEF(1)='SEG2'
  33.       LESTEF(2)='SEG3'
  34.       LESTEF(3)='TRI3'
  35.       LESTEF(4)='TRI6'
  36.       LESTEF(5)='QUA4'
  37.       LESTEF(6)='QUA8'
  38.       LESTEF(7)='COQ2'
  39.       LESTEF(8)='BARR'
  40.       LESTEF(9)='POLY'
  41.       ELSE
  42.       NBTEF=13
  43.       IF(NBTEF.GT.N2MAX) GO TO 99
  44.       LESTEF(1)='CUB8'
  45.       LESTEF(2)='CU20'
  46.       LESTEF(3)='PRI6'
  47.       LESTEF(4)='PR15'
  48.       LESTEF(5)='TET4'
  49.       LESTEF(6)='TE10'
  50.       LESTEF(7)='PYR5'
  51.       LESTEF(8)='PY13'
  52.       LESTEF(9)='COQ3'
  53.       LESTEF(10)='COQ4'
  54.       LESTEF(11)='COQ6'
  55.       LESTEF(12)='COQ8'
  56.       LESTEF(13)='BARR'
  57.       ENDIF
  58.       RETURN
  59.  99   CALL ERREUR(5)
  60.       RETURN
  61.       END
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  

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