Searched refs:hming (Results 1 – 3 of 3) sorted by relevance
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/ |
H A D | rchek.f | 15 double precision hming, t1, temp1, temp2, x local 69 hming = (dabs(tn) + dabs(h))*uround*100.0d0 84 temp1 = dsign(hming,h) 120 temp1 = dsign(hming,h) 165 call roots (ngc, hming, jflag, t0, t1, g0, g1, gx, x, jroot)
|
H A D | rchek2.f | 17 double precision hming, t1, x local 82 hming = (dabs(tn) + dabs(h))*uround*100.0d0 149 call roots2(ngc,hming, jflag, t0, t1, g0, g1, gx, x, jroot)
|
/dports/math/maxima/maxima-5.43.2/share/odepack/src/ |
H A D | drchek.lisp | 45 (t1 0.0d0) (hming 0.0d0) (zroot nil)) 47 (type (double-float) hming t1 temp1 temp2 x) 56 (setf hming (* (+ (abs tn) (abs h)) uround 100.0d0)) 78 (setf temp1 (f2cl-lib:sign hming h)) 138 (setf temp1 (f2cl-lib:sign hming h)) 218 (droots ngc hming jflag t0 t1 g0 g1 gx x jroot)
|