C
C     User routines for prescribing flows across element boundaries
      subroutine flow(h,sink,u,jstep,jinc,time,noel,npt,coords,jltyp,
     1     sname)
      include 'aba_param.inc'
c     
      dimension coords(3),time(2)
      character*80 sname
c     
c     
      return
      end
C     
C     User routine for prescribing pore water flows
      subroutine dflow(flow,u,jstep,jinc,time,noel,npt,coords,jltyp,
     1     sname)
c
C
      include 'aba_param.inc'
c
      dimension coords(3),time(2)
      character*80 sname
c
c
      return
      end