Initial import of htcd system 1.0

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>

1 files changed, 11 insertions, 0 deletions

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