Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,27 @@
+      SUBROUTINE chebpc(c,d,n)
+      INTEGER n,NMAX
+      REAL c(n),d(n)
+      PARAMETER (NMAX=50)
+      INTEGER j,k
+      REAL sv,dd(NMAX)
+      do 11 j=1,n
+        d(j)=0.
+        dd(j)=0.
+11    continue
+      d(1)=c(n)
+      do 13 j=n-1,2,-1
+        do 12 k=n-j+1,2,-1
+          sv=d(k)
+          d(k)=2.*d(k-1)-dd(k)
+          dd(k)=sv
+12      continue
+        sv=d(1)
+        d(1)=-dd(1)+c(j)
+        dd(1)=sv
+13    continue
+      do 14 j=n,2,-1
+        d(j)=d(j-1)-dd(j)
+14    continue
+      d(1)=-dd(1)+0.5*c(1)
+      return
+      END