Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,13 @@
+      SUBROUTINE atimes(n,x,r,itrnsp)
+      INTEGER n,itrnsp,ija,NMAX
+      DOUBLE PRECISION x(n),r(n),sa
+      PARAMETER (NMAX=1000)
+      COMMON /mat/ sa(NMAX),ija(NMAX)
+CU    USES dsprsax,dsprstx
+      if (itrnsp.eq.0) then
+        call dsprsax(sa,ija,x,r,n)
+      else
+        call dsprstx(sa,ija,x,r,n)
+      endif
+      return
+      END