Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,14 @@
+      FUNCTION fredin(x,n,a,b,t,f,w,g,ak)
+      INTEGER n
+      REAL fredin,a,b,x,f(n),t(n),w(n),g,ak
+      EXTERNAL ak,g
+CU    USES ak,g
+      INTEGER i
+      REAL sum
+      sum=0.
+      do 11 i=1,n
+        sum=sum+ak(x,t(i))*w(i)*f(i)
+11    continue
+      fredin=g(x)+sum
+      return
+      END