Sources Esope | Cast3M

jbgp3d
C JBGP3D    SOURCE    FD218221  24/02/07    21:15:16     11834          
       subroutine jbgp3d(NBRINC,NINC,NDIMG,NDIMPL,FRAC,GCH,Mbg,bg,
     # Jsgep,AFFICHE,ERR1)
 
c     calcul de Jsgep(i,j)=d (-bgpg(i-1)) / d eps_plastique(j) dans l espace
c     de minimisation de R
 
      implicit real*8 (a-h,o-z)
      implicit integer (i-n)
 
c     dimension de la base des variables generalisees      
      integer NDIMG,ERR1
c     nbr max inclusion, nbr reel inclusion, nbr de type de criteres de plast      
      integer NBRINC,NINC,NBTYPL
c     fractions volumiques des phases      
      real*8 FRAC(0:NBRINC)
c     indicateur de diffusion produits chimiques dans fissure
      real*8 GCH(0:NBRINC)
c     module de Biot du gel
      real*8 Mbg(0:NBRINC,0:1) 
c     coeff de biot des gels
      real*8 bg(0:NBRINC,0:1)
c     Jacobienne des pressions / deformation plastiques  
      real*8 Jsgep(NDIMG,NDIMPL) 
c     fraction inclusion 
      real*8 f     
 
 
      logical affiche,affiche_local
      if(NBRINC.ne.1) then
        print*,'Nbr inc inattendu ds jbgp3d'