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)
|