Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,10 @@
+      SUBROUTINE asolve(n,b,x,itrnsp)
+      INTEGER n,itrnsp,ija,NMAX,i
+      DOUBLE PRECISION x(n),b(n),sa
+      PARAMETER (NMAX=1000)
+      COMMON /mat/ sa(NMAX),ija(NMAX)
+      do 11 i=1,n
+        x(i)=b(i)/sa(i)
+11    continue
+      return
+      END