Télécharger la plaquette Cast3M


fr en

Télécharger model3.eso

Retour à la liste

Numérotation des lignes : 

model3

  1. C MODEL3    SOURCE    CHAT      05/01/13    01:48:11     5004
  2.       SUBROUTINE MODEL3(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. *----------------------------------------------------------------------
  4. *    OBJET MODELE  -  CAS DE LA FORMULATION 'LIQUIDE '
  5. *    DEFINITION DES NOMS DE MODELES DE MATERIAU
  6. *            ET DES NOMS DE TYPES D'ELEMENTS FINIS
  7. *----------------------------------------------------------------------
  8.       IMPLICIT INTEGER(I-N)
  9.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12.       CHARACTER*16 LESPRO(*)
  13.       CHARACTER*4 LESTEF(*)
  14. *
  15. *  NOMS DE MODELES
  16. *
  17.       NBPRO=1
  18.       IF(NBPRO.GT.N1MAX) GO TO 99
  19.       LESPRO( 1)='ISOTROPE'
  20. *
  21. *  NOMS DE TYPES D'ELEMENTS FINIS
  22. *
  23.       IF(IDIM.EQ.2) THEN
  24.       NBTEF=3
  25.       IF(NBTEF.GT.N2MAX) GO TO 99
  26.       LESTEF(1)='LTR3'
  27.       LESTEF(2)='LQU4'
  28.       LESTEF(3)='LSU2'
  29.       ELSE
  30.       NBTEF=7
  31.       IF(NBTEF.GT.N2MAX) GO TO 99
  32.       LESTEF(1)='LCU8'
  33.       LESTEF(2)='LPR6'
  34.       LESTEF(3)='LPY5'
  35.       LESTEF(4)='LTE4'
  36.       LESTEF(5)='LSU3'
  37.       LESTEF(6)='LSU4'
  38.       LESTEF(7)='LSE2'
  39.       ENDIF
  40.       RETURN
  41.   99  CALL ERREUR(5)
  42.       RETURN
  43.       END
  44.  
  45.  

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