Télécharger la plaquette Cast3M


fr en

Télécharger model5.eso

Retour à la liste

Numérotation des lignes : 

model5

  1. C MODEL5    SOURCE    CHAT      05/01/13    01:48:26     5004
  2.       SUBROUTINE MODEL5(NBPRO,LESTEF,NBTEF,N2MAX)
  3. *----------------------------------------------------------------------
  4. *    OBJET MODELE  -  CAS DE LA FORMULATION 'LIQUIDE ' + 'MECANIQUE'
  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*4 LESTEF(*)
  13. *
  14. *  NOMS DE MODELES
  15. *
  16.       NBPRO=0
  17. *
  18. *  NOMS DE TYPES D'ELEMENTS FINIS
  19. *
  20.       IF(IDIM.EQ.2) THEN
  21.          NBTEF=2
  22.          IF(NBTEF.GT.N2MAX) GO TO 99
  23.          LESTEF(1)='RAC2'
  24.          LESTEF(2)='RACO'
  25.       ELSE
  26.          NBTEF=5
  27.          IF(NBTEF.GT.N2MAX) GO TO 99
  28.          LESTEF(1)='LIA3'
  29.          LESTEF(2)='LIA4'
  30.          LESTEF(3)='LICO'
  31.          LESTEF(4)='LIC4'
  32.          LESTEF(5)='LITU'
  33.       ENDIF
  34.       RETURN
  35.   99  CALL ERREUR(5)
  36.       RETURN
  37.       END
  38.  
  39.  

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