| /dports/math/slatec/src/ |
| H A D | qk15.f | 64 1 FV1,FV2,HLGTH,RESABS,RESASC,RESG,RESK,RESKH,RESULT,R1MACH,UFLOW,
121 UFLOW = R1MACH(1)
169 IF(RESABS.GT.UFLOW/(0.5E+02*EPMACH)) ABSERR = MAX
|
| H A D | dqk21.f | 65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK
143 UFLOW = D1MACH(1)
190 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX
|
| H A D | qk21.f | 64 1 FV1,FV2,HLGTH,RESABS,RESG,RESK,RESKH,RESULT,R1MACH,UFLOW,WG,WGK,
131 UFLOW = R1MACH(1)
179 IF(RESABS.GT.UFLOW/(0.5E+02*EPMACH)) ABSERR = MAX
|
| H A D | qk15i.f | 86 3 UFLOW,WG,WGK,XGK
151 UFLOW = R1MACH(1)
197 IF(RESABS.GT.UFLOW/(0.5E+02*EPMACH)) ABSERR = MAX
|
| H A D | qk31.f | 64 1 FV1,FV2,HLGTH,RESABS,RESASC,RESG,RESK,RESKH,RESULT,R1MACH,UFLOW,
133 UFLOW = R1MACH(1)
181 IF(RESABS.GT.UFLOW/(0.5E+02*EPMACH)) ABSERR = MAX
|
| H A D | dqk31.f | 65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK
152 UFLOW = D1MACH(1)
199 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX
|
| H A D | dqk15w.f | 77 2 P1,P2,P3,P4,RESABS,RESASC,RESG,RESK,RESKH,RESULT,UFLOW,W,WG,WGK,
136 UFLOW = D1MACH(1)
187 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX((EPMACH*
|
| /dports/math/slatec/ |
| H A D | cdqaws.f | 21 * RESULT,UFLOW,WORK
65 UFLOW = D1MACH(1)
66 CALL DQAWS(DF0WS,A,B,ALFA,BETA,INTEGR,UFLOW,0.0D+00,RESULT,ABSERR,
|
| H A D | cdqag.f | 20 *EXACT1,EXACT2,EXACT3,DF1G,DF2G,DF3G,PI,RESULT,UFLOW,WORK
68 UFLOW = D1MACH(1)
71 CALL DQAG(DF2G,A,B,UFLOW,0.0D+00,KEY,RESULT,ABSERR,NEVAL,IER,
|
| H A D | cqag.f | 20 * EXACT2,EXACT3,F1G,F2G,F3G,PI,RESULT,UFLOW,WORK
68 UFLOW = R1MACH(1)
71 CALL QAG(F2G,A,B,UFLOW,0.0E+00,KEY,RESULT,ABSERR,NEVAL,IER,
|
| H A D | cqawf.f | 20 * ERROR,EXACT0,F0F,F1F,OMEGA,PI,RESULT,UFLOW,WORK
70 UFLOW = R1MACH(1)
71 CALL QAWF(F1F,A,0.0E+00,1,UFLOW,RESULT,ABSERR,NEVAL,
|
| H A D | cdqawf.f | 20 * ERROR,EXACT0,DF0F,DF1F,OMEGA,PI,RESULT,UFLOW,WORK
70 UFLOW = D1MACH(1)
71 CALL DQAWF(DF1F,A,0.0D+00,1,UFLOW,RESULT,ABSERR,NEVAL,
|
| H A D | cqaws.f | 20 * RESULT,UFLOW,WORK
64 UFLOW = R1MACH(1)
65 CALL QAWS(F0WS,A,B,ALFA,BETA,INTEGR,UFLOW,0.0E+00,RESULT,ABSERR,
|
| /dports/math/cmlib/cmlib-3.0_8/src/quadpkd/ |
| H A D | dqk15w.f | 70 2 P1,P2,P3,P4,RESABS,RESASC,RESG,RESK,RESKH,RESULT,UFLOW,W,WG,WGK,
128 UFLOW = D1MACH(1)
179 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX((EPMACH*
|
| H A D | dqk31.f | 58 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK
144 UFLOW = D1MACH(1)
191 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX
|
| H A D | dqk41.f | 59 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK
160 UFLOW = D1MACH(1)
207 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX
|
| /dports/math/cmlib/cmlib-3.0_8/src/quadpks/ |
| H A D | qk21.f | 55 1 FV1,FV2,HLGTH,RESABS,RESG,RESK,RESKH,RESULT,R1MACH,UFLOW,WG,WGK,
121 UFLOW = R1MACH(1)
169 IF(RESABS.GT.UFLOW/(0.5E+02*EPMACH)) ABSERR = AMAX1
|
| H A D | qk15i.f | 76 3 UFLOW,WG,WGK,XGK
140 UFLOW = R1MACH(1)
186 IF(RESABS.GT.UFLOW/(0.5E+02*EPMACH)) ABSERR = AMAX1
|
| H A D | qk31.f | 55 1 FV1,FV2,HLGTH,RESABS,RESASC,RESG,RESK,RESKH,RESULT,R1MACH,UFLOW,
123 UFLOW = R1MACH(1)
171 IF(RESABS.GT.UFLOW/(0.5E+02*EPMACH)) ABSERR = AMAX1
|
| H A D | qk15w.f | 68 2 HLGTH,P1,P2,P3,P4,RESABS,RESASC,RESG,RESK,RESKH,RESULT,UFLOW,
128 UFLOW = R1MACH(1)
180 IF(RESABS.GT.UFLOW/(0.5E+02*EPMACH)) ABSERR = AMAX1((EPMACH*
|
| /dports/math/octave/octave-6.4.0/liboctave/external/quadpack/ |
| H A D | dqk21.f | 54 * RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK local
131 UFLOW = D1MACH(1)
184 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = DMAX1
|
| H A D | dqk15i.f | 74 * RESABS,RESASC,RESG,RESK,RESKH,RESULT,TABSC1,TABSC2,UFLOW,WG,WGK, local
146 UFLOW = D1MACH(1)
208 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = DMAX1
|
| /dports/math/cmlib/cmlib-3.0_8/test/ |
| H A D | quadpkd.f% | 220 UFLOW = D2MACH(1)
307 UFLOW = D2MACH(1)
381 * UFLOW,WORK
433 UFLOW = D2MACH(1)
545 UFLOW = D2MACH(1)
616 * RESULT,UFLOW,WORK
656 UFLOW = D2MACH(1)
745 UFLOW = D2MACH(1)
836 UFLOW = D2MACH(1)
939 UFLOW = D2MACH(1)
[all …]
|
| /dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
| H A D | dqk15w.f | 77 2 P1,P2,P3,P4,RESABS,RESASC,RESG,RESK,RESKH,RESULT,UFLOW,W,WG,WGK, local
136 UFLOW = D1MACH(1)
187 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX((EPMACH*
|
| H A D | dqk31.f | 65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK local
152 UFLOW = D1MACH(1)
199 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX
|