C
C  User subroutine to define fluid leak-off

      subroutine ufluidleakoff(perm,pgrad,dn,p_int,p_bot,p_top,
     $     anm,tang,time,dtime,temp,dtemp,predef,dpred,c_bot,c_top,
     $     dc_bot,dc_top,statev,nstatv,noel,npt,kstep,kinc)
c
      include 'aba_param.inc'
c
      character*80 cmname
      dimension perm(2),pgrad(2),anm(3),tang(3,2),time(2),predef(1),
     1     dpred(1),dc_bot(3),dc_top(3),statev(nstatv)
c
      parameter (cleakoff=5.879e-10)
C
      c_bot = cleakoff
      c_top = cleakoff
C
      return
      end