Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,20 @@
+      SUBROUTINE qromo(func,a,b,ss,choose)
+      INTEGER JMAX,JMAXP,K,KM
+      REAL a,b,func,ss,EPS
+      EXTERNAL func,choose
+      PARAMETER (EPS=1.e-6, JMAX=14, JMAXP=JMAX+1, K=5, KM=K-1)
+CU    USES polint
+      INTEGER j
+      REAL dss,h(JMAXP),s(JMAXP)
+      h(1)=1.
+      do 11 j=1,JMAX
+        call choose(func,a,b,s(j),j)
+        if (j.ge.K) then
+          call polint(h(j-KM),s(j-KM),K,0.,ss,dss)
+          if (abs(dss).le.EPS*abs(ss)) return
+        endif
+        s(j+1)=s(j)
+        h(j+1)=h(j)/9.
+11    continue
+      pause 'too many steps in qromo'
+      END