| /dports/math/octave/octave-6.4.0/liboctave/external/quadpack/ |
| H A D | dqk21.f | 1 SUBROUTINE DQK21(F,A,B,RESULT,ABSERR,RESABS,RESASC,IERR) subroutine
52 DOUBLE PRECISION A,ABSC,ABSERR,B,CENTR,DABS,DHLGTH,DMAX1,DMIN1,
53 * D1MACH,EPMACH,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC,
54 * RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK
55 INTEGER J,JTW,JTWM1
159 10 CONTINUE
172 15 CONTINUE
177 20 CONTINUE
|
| /dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
| H A D | dqk21.f | 2 SUBROUTINE DQK21 (F, A, B, RESULT, ABSERR, RESABS, RESASC) subroutine
63 DOUBLE PRECISION A,ABSC,ABSERR,B,CENTR,DHLGTH,
64 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC,
65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK
66 INTEGER J,JTW,JTWM1
167 10 CONTINUE
178 15 CONTINUE
183 20 CONTINUE
|
| /dports/math/cmlib/cmlib-3.0_8/src/quadpkd/ |
| H A D | dqk21.f | 1 SUBROUTINE DQK21(F,A,B,RESULT,ABSERR,RESABS,RESASC) subroutine
57 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC,
58 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK
159 10 CONTINUE
170 15 CONTINUE
175 20 CONTINUE
181 1 ABSERR = RESASC*MIN(0.1D+01,(0.2D+03*ABSERR/RESASC)**1.5D+00)
183 1 ((EPMACH*0.5D+02)*RESABS,ABSERR)
|
| /dports/math/slatec/src/ |
| H A D | dqk21.f | 2 SUBROUTINE DQK21 (F, A, B, RESULT, ABSERR, RESABS, RESASC) subroutine
64 1 D1MACH,EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC,
65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK
167 10 CONTINUE
178 15 CONTINUE
183 20 CONTINUE
189 1 ABSERR = RESASC*MIN(0.1D+01,(0.2D+03*ABSERR/RESASC)**1.5D+00)
191 1 ((EPMACH*0.5D+02)*RESABS,ABSERR)
|
| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
| H A D | dp33.F | 1798 SUBROUTINE DQK21(F,A,B,RESULT,ABSERR,RESABS,RESASC) subroutine
1861 1 EPMACH,F,FC,FSUM,FVAL1,FVAL2,FV1,FV2,HLGTH,RESABS,RESASC,
1862 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK
1963 10 CONTINUE
1974 15 CONTINUE
1979 20 CONTINUE
1985 1 ABSERR = RESASC*MIN(0.1D+01,(0.2D+03*ABSERR/RESASC)**1.5D+00)
1987 1 ((EPMACH*0.5D+02)*RESABS,ABSERR)
|