Lines Matching refs:ib
10 integer ia, ib, ic
37 if (linebracket(n,x,f,ia,ib,ic)) then
38 write(6,900) ib,x(ib),ia,x(ia),(f(ia)-f(ib)),
39 $ ic,x(ic),(f(ic)-f(ib))
50 if (ib.ne.n) then
51 if (g(ib).gt.0) then
52 step = (g(ia)*x(ib) - g(ib)*x(ia))/(g(ia) - g(ib))
53 write(6,771) step,ia,ib
55 step = (g(ic)*x(ib) - g(ib)*x(ic))/(g(ic) - g(ib))
56 write(6,771) step,ib,ic
64 prec = abs(sqrt(tol)*x(ib))
65 if (((step.lt.x(ia)).and.(abs(x(ib)-x(ia)).gt.prec).and.
66 $ (abs(f(ia)-f(ib)).gt.(tol*f(ib)))).or.
68 $ (abs(f(ic)-f(ib)).gt.(tol*f(ib))))) then
69 if (g(ib).gt.0) then
70 step = (x(ia)+x(ib))/2.d0
72 step = (x(ib)+x(ic))/2.d0
82 write(6,774) ib,x(ib),f(ib)
84 if ((ia.ne.0).and.(g(ib).lt.0.0d0)) then
85 dx = (g(ia) - g(ib))/(x(ia)-x(ib))
89 step = x(ib) + (x(ib) - x(1))
90 else if ((ic.ne.0).and.(g(ib).gt.0.d0)) then
91 dx = (g(ic) - g(ib))/(x(ic)-x(ib))
95 step = x(ib) - (x(1) - x(ib))
115 logical function linebracket(n,x,f,ia,ib,ic)
119 integer ia,ib,ic local
125 ib = 1
130 ib = i
136 del = x(i) - x(ib)