From 5df79c53745fde5d6c3340a2979b1429cd5892c1 Mon Sep 17 00:00:00 2001 From: Henrik Rydberg Date: Sat, 8 Oct 2011 20:30:28 +0200 Subject: Initial import of htcd system 1.0 Signed-off-by: Henrik Rydberg --- src/labat/laplac2.f | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 src/labat/laplac2.f (limited to 'src/labat/laplac2.f') diff --git a/src/labat/laplac2.f b/src/labat/laplac2.f new file mode 100644 index 0000000..f2cce8b --- /dev/null +++ b/src/labat/laplac2.f @@ -0,0 +1,11 @@ + 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 -- cgit v1.2.3