Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,23 @@
+      SUBROUTINE ddpoly(c,nc,x,pd,nd)
+      INTEGER nc,nd
+      REAL x,c(nc),pd(nd)
+      INTEGER i,j,nnd
+      REAL const
+      pd(1)=c(nc)
+      do 11 j=2,nd
+        pd(j)=0.
+11    continue
+      do 13 i=nc-1,1,-1
+        nnd=min(nd,nc+1-i)
+        do 12 j=nnd,2,-1
+          pd(j)=pd(j)*x+pd(j-1)
+12      continue
+        pd(1)=pd(1)*x+c(i)
+13    continue
+      const=2.
+      do 14 i=3,nd
+        pd(i)=const*pd(i)
+        const=const*i
+14    continue
+      return
+      END