Télécharger la plaquette Cast3M


fr en

Télécharger permea.eso

Retour à la liste

Numérotation des lignes : 

permea

  1. C PERMEA    SOURCE    PV        20/03/31    14:33:48     10567          
  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.  
  21. -INC PPARAM
  22. -INC CCOPTIO
  23. -INC SMCOORD
  24. *
  25.       segact mcoord
  26. *
  27. *     Lecture du modele
  28. *
  29.       CALL LIROBJ('MMODEL  ',IPMODL,1,IRETOU)
  30.       CALL ACTOBJ('MMODEL  ',IPMODL,1)
  31.       IF (IERR.NE.0) RETURN
  32. *
  33.       CALL LIROBJ('MCHAML  ',IPCHEI,1,IRETOU)
  34.       CALL ACTOBJ('MCHAML  ',IPCHEI,1)
  35.       IF(IERR.NE.0) RETURN
  36. *
  37.       call reduaf ( IPCHEI,IPMODL,IPCHE1,1,iretr,kerre)
  38.       if( iretr.ne.1) then
  39.         call erreur (kerre)
  40.         return
  41.       endif
  42.  
  43.       CALL PERMAB(IPMODL,IPCHE1,IPRIGI,IRET)
  44. *
  45.       IF (IRET.EQ.1) CALL ECROBJ('RIGIDITE',IPRIGI)
  46.  
  47.       END
  48.  
  49.  
  50.  
  51.  

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