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 splin2(x1a,x2a,ya,y2a,m,n,x1,x2,y)
+      INTEGER m,n,NN
+      REAL x1,x2,y,x1a(m),x2a(n),y2a(m,n),ya(m,n)
+      PARAMETER (NN=100)
+CU    USES spline,splint
+      INTEGER j,k
+      REAL y2tmp(NN),ytmp(NN),yytmp(NN)
+      do 12 j=1,m
+        do 11 k=1,n
+          ytmp(k)=ya(j,k)
+          y2tmp(k)=y2a(j,k)
+11      continue
+        call splint(x2a,ytmp,y2tmp,n,x2,yytmp(j))
+12    continue
+      call spline(x1a,yytmp,m,1.e30,1.e30,y2tmp)
+      call splint(x1a,yytmp,y2tmp,m,x1,y)
+      return
+      END