Télécharger la plaquette Cast3M


fr en

Télécharger mode15.eso

Retour à la liste

Numérotation des lignes : 

mode15

  1. C MODE15    SOURCE    KICH      07/12/10    21:16:50     5994
  2. C=======================================================================
  3. C=  Objet MODELE  -  Cas de la formulation 'LIAISON_MATERIELLE'        =
  4. C=                                                                     =
  5. C=   Definition des noms de modeles de MATERIAU                        =
  6. C=           et des noms de types d'ELEMENTS FINIS                     =
  7. C=======================================================================
  8.  
  9.       SUBROUTINE MODE15 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  10.  
  11.       IMPLICIT INTEGER(I-N)
  12.       IMPLICIT REAL*8 (A-H,O-Z)
  13.  
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17.  
  18.       CHARACTER*16 MOMODL(200)
  19.       CHARACTER*16 LESPRO(*)
  20.       CHARACTER*4 LESTEF(*)
  21.  
  22. C  1 - Noms des comportements LINEAIRES
  23. C --------------------------------------
  24.       CALL MODLIA(MOMODL,NMOD)
  25.       DO i=1,NMOD
  26.         LESPRO(i)=MOMODL(i)
  27.       ENDDO
  28.       NBPRO=NMOD
  29. C
  30. C
  31.       IF (NBPRO.GT.N1MAX) GOTO 99
  32.  
  33. C  11 - Noms de types d'ELEMENTS FINIS
  34. C -------------------------------------
  35. C  DIMENSION 1 :
  36. C ---------------
  37.         NBTEF=1
  38.         IF (NBTEF.GT.N2MAX) GOTO 99
  39.         LESTEF(1)='POI1'
  40.  
  41.       RETURN
  42.  
  43. C  12 - Traitement des ERREURS
  44. C -----------------------------
  45.   99  CALL ERREUR(5)
  46.       RETURN
  47.  
  48.       END
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  

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