Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,16 @@
+      SUBROUTINE polin2(x1a,x2a,ya,m,n,x1,x2,y,dy)
+      INTEGER m,n,NMAX,MMAX
+      REAL dy,x1,x2,y,x1a(m),x2a(n),ya(m,n)
+      PARAMETER (NMAX=20,MMAX=20)
+CU    USES polint
+      INTEGER j,k
+      REAL ymtmp(MMAX),yntmp(NMAX)
+      do 12 j=1,m
+        do 11 k=1,n
+          yntmp(k)=ya(j,k)
+11      continue
+        call polint(x2a,yntmp,n,x2,ymtmp(j),dy)
+12    continue
+      call polint(x1a,ymtmp,m,x1,y,dy)
+      return
+      END