Télécharger la plaquette Cast3M


fr en

Télécharger pbefem.eso

Retour à la liste

Numérotation des lignes : 

pbefem

  1. C PBEFEM    SOURCE    PV        22/04/22    21:15:12     11344          
  2.       SUBROUTINE PBEFEM (wrk52,wrk53,wrk54,nvari,iecou,mwrkxe)
  3. C
  4. C====&===1=========2=========3=========4=========5=========6=========7==
  5. C COMMENTAIRES :   SUBROUTINE PERMETTANT DE METTRE EN OEUVRE LE 
  6. C                           MODELE PBEFEM 
  7. C
  8. C TRAITS       : 
  9. C
  10. C
  11. C
  12. C AUTEUR       : E. KISHTA   - CEA/DEN/DANS/DM2S/SEMT/EMSI
  13. C                F. RICCARDI - CEA/DEN/DANS/DM2S/SEMT/EMSI
  14. C                B. RICHARD  - CEA/DEN/DANS/DM2S/SEMT/EMSI
  15. C====&===1=========2=========3=========4=========5=========6=========7==
  16. C
  17.  
  18. C-----------------------------------------------------------------------
  19. C-----DECLARATION GENERALES
  20. C-----------------------------------------------------------------------
  21.  
  22.          IMPLICIT INTEGER(I-N)
  23.          IMPLICIT REAL*8(A-H,O-Z)
  24.  
  25.  
  26. C-----LISTE DES INCLUDES A CHARGER--------------------------------------
  27.  
  28. -INC PPARAM
  29. -INC CCOPTIO 
  30. -INC DECHE
  31.  
  32.          SEGMENT MWRKXE
  33.              REAL*8 XEL(3,3)
  34.          ENDSEGMENT
  35.          dimension xcar(1)
  36.  
  37.          CALL PBEFE1 (XMAT,VAR0,VARF,SIG0,SIGF,DEPST,XCAR,IB,XEL,
  38.      &    ISTEP)
  39.  
  40.  
  41.          RETURN
  42.          END
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  

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