C PBEFEM SOURCE PV 22/04/22 21:15:12 11344 SUBROUTINE PBEFEM (wrk52,wrk53,wrk54,nvari,iecou,mwrkxe) C C====&===1=========2=========3=========4=========5=========6=========7== C COMMENTAIRES : SUBROUTINE PERMETTANT DE METTRE EN OEUVRE LE C MODELE PBEFEM C C TRAITS : C C C C AUTEUR : E. KISHTA - CEA/DEN/DANS/DM2S/SEMT/EMSI C F. RICCARDI - CEA/DEN/DANS/DM2S/SEMT/EMSI C B. RICHARD - CEA/DEN/DANS/DM2S/SEMT/EMSI C====&===1=========2=========3=========4=========5=========6=========7== C C----------------------------------------------------------------------- C-----DECLARATION GENERALES C----------------------------------------------------------------------- IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) C-----LISTE DES INCLUDES A CHARGER-------------------------------------- -INC PPARAM -INC CCOPTIO -INC DECHE SEGMENT MWRKXE REAL*8 XEL(3,3) ENDSEGMENT dimension xcar(1) CALL PBEFE1 (XMAT,VAR0,VARF,SIG0,SIGF,DEPST,XCAR,IB,XEL, & ISTEP) RETURN END