path: root/src/labat/laplac2.f

      subroutine laplac2(r,gradup,graddn,i,imin,imax,done,
     j     lapl,laplup,lapldn)
      implicit logical (a-z)
      logical done
      double precision r,gradup,graddn,lapl,laplup,lapldn
      integer i,imin,imax
      dimension r(561),gradup(561),graddn(561)
      call laplac(r,gradup,graddn,i+1,imin,imax,done,lapl,laplup,
     j     lapldn)
      return
      end