Symbol Description Uses
tupper 7



File Line number Procedure Code
./lsopt/cubic.F 2 CUBIC
      subroutine CUBIC( t, f, fp, ta, fa, fpa, tlower, tupper )
./lsopt/cubic.F 30 CUBIC
            if (fp.lt.0.) t = tupper
./lsopt/cubic.F 45 CUBIC
            if (fp.lt.0.) t = tupper
./lsopt/cubic.F 65 CUBIC
         if (abs((t-ta)*anum).lt.(tupper-tlower)*abs(den)) then
./lsopt/cubic.F 68 CUBIC
            t = tupper
./lsopt/cubic.F 73 CUBIC
      t = min( t, tupper )
./lsopt/cubic.F 7 CUBIC
      double precision    t, f, fp, ta, fa, fpa, tlower, tupper