Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,18 @@
+      SUBROUTINE splie2(x1a,x2a,ya,m,n,y2a)
+      INTEGER m,n,NN
+      REAL x1a(m),x2a(n),y2a(m,n),ya(m,n)
+      PARAMETER (NN=100)
+CU    USES spline
+      INTEGER j,k
+      REAL y2tmp(NN),ytmp(NN)
+      do 13 j=1,m
+        do 11 k=1,n
+          ytmp(k)=ya(j,k)
+11      continue
+        call spline(x2a,ytmp,n,1.e30,1.e30,y2tmp)
+        do 12 k=1,n
+          y2a(j,k)=y2tmp(k)
+12      continue
+13    continue
+      return
+      END