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 chder(a,b,c,cder,n)
+      INTEGER n
+      REAL a,b,c(n),cder(n)
+      INTEGER j
+      REAL con
+      cder(n)=0.
+      cder(n-1)=2*(n-1)*c(n)
+      do 11 j=n-2,1,-1
+        cder(j)=cder(j+2)+2*j*c(j+1)
+11    continue
+      con=2./(b-a)
+      do 12 j=1,n
+        cder(j)=cder(j)*con
+12    continue
+      return
+      END