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