Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,17 @@
+      SUBROUTINE qtrap(func,a,b,s)
+      INTEGER JMAX
+      REAL a,b,func,s,EPS
+      EXTERNAL func
+      PARAMETER (EPS=1.e-6, JMAX=20)
+CU    USES trapzd
+      INTEGER j
+      REAL olds
+      olds=-1.e30
+      do 11 j=1,JMAX
+        call trapzd(func,a,b,s,j)
+        if (abs(s-olds).lt.EPS*abs(olds)) return
+        if (s.eq.0..and.olds.eq.0..and.j.gt.6) return
+        olds=s
+11    continue
+      pause 'too many steps in qtrap'
+      END