Télécharger mode15.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  15.  
  16. CHARACTER*16 MOMODL(200)
  17. CHARACTER*16 LESPRO(*)
  18. CHARACTER*4 LESTEF(*)
  19.  
  20. C 1 - Noms des comportements LINEAIRES
  21. C --------------------------------------
  22. CALL MODLIA(MOMODL,NMOD)
  23. DO i=1,NMOD
  24. LESPRO(i)=MOMODL(i)
  25. ENDDO
  26. NBPRO=NMOD
  27. C
  28. C
  29. IF (NBPRO.GT.N1MAX) GOTO 99
  30.  
  31. C 11 - Noms de types d'ELEMENTS FINIS
  32. C -------------------------------------
  33. C DIMENSION 1 :
  34. C ---------------
  35. NBTEF=1
  36. IF (NBTEF.GT.N2MAX) GOTO 99
  37. LESTEF(1)='POI1'
  38.  
  39. RETURN
  40.  
  41. C 12 - Traitement des ERREURS
  42. C -----------------------------
  43. 99 CALL ERREUR(5)
  44. RETURN
  45.  
  46. END
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  

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