Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,26 @@
+      FUNCTION rtbis(func,x1,x2,xacc)
+      INTEGER JMAX
+      REAL rtbis,x1,x2,xacc,func
+      EXTERNAL func
+      PARAMETER (JMAX=40)
+      INTEGER j
+      REAL dx,f,fmid,xmid
+      fmid=func(x2)
+      f=func(x1)
+      if(f*fmid.ge.0.) pause 'root must be bracketed in rtbis'
+      if(f.lt.0.)then
+        rtbis=x1
+        dx=x2-x1
+      else
+        rtbis=x2
+        dx=x1-x2
+      endif
+      do 11 j=1,JMAX
+        dx=dx*.5
+        xmid=rtbis+dx
+        fmid=func(xmid)
+        if(fmid.le.0.)rtbis=xmid
+        if(abs(dx).lt.xacc .or. fmid.eq.0.) return
+11    continue
+      pause 'too many bisections in rtbis'
+      END