Télécharger permea.eso

Retour à la liste

Numérotation des lignes :

  1. C PERMEA SOURCE CB215821 16/09/30 21:15:14 9105
  2. SUBROUTINE PERMEA
  3. *______________________________________________________________________
  4. *
  5. * OPERATEUR PERMEABILITE ( MILIEUX POREUX )
  6. *
  7. * syntaxe :
  8. * ----------
  9. *
  10. * CHPER = PERM MODL1 CHMAT ;
  11. *
  12. * MODL1 Modele de calcul (type MMODEL)
  13. * CHMAT champ par element de materiau
  14. *
  15. *_______________________________________________________________________
  16. *
  17. IMPLICIT INTEGER(I-N)
  18. IMPLICIT REAL*8(A-H,O-Z)
  19. *
  20. -INC CCOPTIO
  21. *
  22. * Lecture du modele
  23. *
  24. CALL LIROBJ('MMODEL',IPMODL,1,IRETOU)
  25. IF (IERR.NE.0) RETURN
  26. *
  27. CALL LIROBJ('MCHAML',IPCHEI,1,IRETOU)
  28. IF(IERR.NE.0) RETURN
  29. *
  30. call reduaf ( IPCHEI,IPMODL,IPCHE1,1,iretr,kerre)
  31. if( iretr.ne.1) then
  32. call erreur (kerre)
  33. return
  34. endif
  35.  
  36. CALL PERMAB(IPMODL,IPCHE1,IPRIGI,IRET)
  37. *
  38. IF (IRET.EQ.1) CALL ECROBJ('RIGIDITE',IPRIGI)
  39. *
  40. RETURN
  41. END
  42.  
  43.  
  44.  
  45.  

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