Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,9 @@
+      SUBROUTINE slvsml(u,rhs)
+      DOUBLE PRECISION rhs(3,3),u(3,3)
+CU    USES fill0
+      DOUBLE PRECISION h
+      call fill0(u,3)
+      h=.5d0
+      u(2,2)=-h*h*rhs(2,2)/4.d0
+      return
+      END