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    OF166741  25/11/04    21:15:59     12349          
  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.  
  17. C-----------------------------------------------------------------------
  18. C-----DECLARATION GENERALES
  19. C-----------------------------------------------------------------------
  20.  
  21.          IMPLICIT INTEGER(I-N)
  22.          IMPLICIT REAL*8(A-H,O-Z)
  23.  
  24. C-----LISTE DES INCLUDES A CHARGER--------------------------------------
  25.  
  26. -INC PPARAM
  27. -INC CCOPTIO 
  28. -INC DECHE
  29.  
  30.          SEGMENT MWRKXE
  31.              REAL*8 XEL(3,3)
  32.          ENDSEGMENT
  33.          dimension xcar(1)
  34.  
  35.          CALL PBEFE1 (XMAT,VAR0,VARF,SIG0,SIGF,DEPST,XCAR,IB,XEL,
  36.      &    ISTEP)
  37.  
  38.          RETURN
  39.          END
  40.  
  41.  
  42.  

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