Télécharger pbefem.eso

Retour à la liste

Numérotation des lignes :

  1. C PBEFEM SOURCE BP208322 17/03/01 21:17:55 9325
  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 CCOPTIO
  29. -INC DECHE
  30.  
  31. SEGMENT MWRKXE
  32. REAL*8 XEL(3,3)
  33. ENDSEGMENT
  34.  
  35. CALL PBEFE1 (XMAT,VAR0,VARF,SIG0,SIGF,DEPST,XCAR,IB,XEL,
  36. & ISTEP)
  37.  
  38.  
  39. RETURN
  40. END
  41.  
  42.  
  43.  
  44.  

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