Initial commit

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