/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 …]
|
H A D | quadpks.f | 219 UFLOW = R2MACH(1) 306 UFLOW = R2MACH(1) 377 * UFLOW,WORK 429 UFLOW = R2MACH(1) 541 UFLOW = R2MACH(1) 614 * RESULT,UFLOW,WORK 654 UFLOW = R2MACH(1) 743 UFLOW = R2MACH(1) 833 UFLOW = R2MACH(1) 935 UFLOW = R2MACH(1) [all …]
|
/dports/math/slatec/ |
H A D | cdqawc.f | 21 * RESULT,UFLOW,WORK 63 UFLOW = D1MACH(1) 64 CALL DQAWC(DF0C,A,B,C,UFLOW,0.0D+00,RESULT,ABSERR, 75 CALL DQAWC(DF1C,0.0D+00,B,C,UFLOW,0.0D+00,RESULT,ABSERR,
|
H A D | cqawc.f | 21 * RESULT,UFLOW,WORK 63 UFLOW = R1MACH(1) 64 CALL QAWC(F0C,A,B,C,UFLOW,0.0E+00,RESULT,ABSERR, 75 CALL QAWC(F1C,0.0E+00,B,C,UFLOW,0.0E+00,RESULT,ABSERR,
|
H A D | cdqng.f | 20 * ERROR,EXACT2,DF1N,DF2N,RESULT,UFLOW 34 UFLOW = D1MACH(1) 51 CALL DQNG(DF2N,A,B,UFLOW,0.0D+00,RESULT,ABSERR,NEVAL,IER)
|
H A D | cqng.f | 20 * EXACT2,F1N,F2N,RESULT,UFLOW 34 UFLOW = R1MACH(1) 50 CALL QNG(F2N,A,B,UFLOW,0.0E+00,RESULT,ABSERR,NEVAL,IER)
|
H A D | cdqawo.f | 21 * OFLOW,OMEGA,PI,RESULT,D1MACH,UFLOW,WORK 68 UFLOW = D1MACH(1) 71 CALL DQAWO(DF0O,A,B,OMEGA,INTEGR,UFLOW,0.0D+00,RESULT,ABSERR, 86 CALL DQAWO(DF1O,A,B,OMEGA,INTEGR,UFLOW,0.0D+00,RESULT,ABSERR,
|
H A D | cdqagi.f | 22 * OFLOW,RESULT,DT0,DT1,DT2,DT3,DT4,DT5,UFLOW,WORK 65 UFLOW = D1MACH(1) 66 CALL DQAGI(DT2,BOUND,INF,UFLOW,0.0D+00,RESULT,ABSERR,NEVAL,IER, 78 CALL DQAGI(DT3,BOUND,INF,UFLOW,0.0D+00,RESULT,ABSERR,NEVAL,IER,
|
H A D | cdqagp.f | 22 * UFLOW,WORK 76 UFLOW = D1MACH(1) 78 CALL DQAGP(DF2P,A,B,NPTS2,POINTS,UFLOW,0.0D+00,RESULT,ABSERR, 96 CALL DQAGP(DF3P,A,B,NPTS2,POINTS,UFLOW,0.0D+00,RESULT,ABSERR,
|
H A D | cqags.f | 22 * F0S,F1S,F2S,F3S,F4S,F5S,OFLOW,RESULT,UFLOW,WORK 66 UFLOW = R1MACH(1) 68 CALL QAGS(F2S,A,B,UFLOW,0.0E+00,RESULT,ABSERR,NEVAL,IER, 82 CALL QAGS(F3S,A,B,UFLOW,0.0E+00,RESULT,ABSERR,NEVAL,IER,
|
H A D | cdqags.f | 23 * DF0S,DF1S,DF2S,DF3S,DF4S,DF5S,OFLOW,RESULT,UFLOW,WORK 67 UFLOW = D1MACH(1) 69 CALL DQAGS(DF2S,A,B,UFLOW,0.0D+00,RESULT,ABSERR,NEVAL,IER, 83 CALL DQAGS(DF3S,A,B,UFLOW,0.0D+00,RESULT,ABSERR,NEVAL,IER,
|
H A D | cqawo.f | 21 * OFLOW,OMEGA,PI,RESULT,R1MACH,UFLOW,WORK 68 UFLOW = R1MACH(1) 71 CALL QAWO(F0O,A,B,OMEGA,INTEGR,UFLOW,0.0E+00,RESULT,ABSERR,NEVAL, 86 CALL QAWO(F1O,A,B,OMEGA,INTEGR,UFLOW,0.0E+00,RESULT,ABSERR,NEVAL,
|
H A D | cqagi.f | 22 * OFLOW,RESULT,T0,T1,T2,T3,T4,T5,UFLOW,WORK 65 UFLOW = R1MACH(1) 66 CALL QAGI(T2,BOUND,INF,UFLOW,0.0E+00,RESULT,ABSERR,NEVAL,IER, 78 CALL QAGI(T3,BOUND,INF,UFLOW,0.0E+00,RESULT,ABSERR,NEVAL,IER,
|
H A D | cqagp.f | 21 * UFLOW,WORK 75 UFLOW = R1MACH(1) 77 CALL QAGP(F2P,A,B,NPTS2,POINTS,UFLOW,0.0E+00,RESULT,ABSERR,NEVAL, 95 CALL QAGP(F3P,A,B,NPTS2,POINTS,UFLOW,0.0E+00,RESULT,ABSERR,NEVAL,
|
/dports/math/cmlib/cmlib-3.0_8/src/q1da/ |
H A D | gl15t.f | 68 SAVE EPMACH,UFLOW 70 * FV1,FV2,HLGTH,RA,RASC,RESG,RESK,RESKH,R,R1MACH,UFLOW, 127 DATA EPMACH,UFLOW/0.0,0.0/ 130 UFLOW=R1MACH(1) 215 IF(RA.GT.UFLOW/(0.5E+02*EPMACH)) AE = AMAX1
|
H A D | q1dax.f | 177 UFLOW = R1MACH(1) 190 EB=AMAX1(100.*UFLOW,AMAX1(EPS,50.*EPMACH)*ABS(R)) 263 EB=AMAX1(100.*UFLOW,AMAX1(EPS,50.*EPMACH)*ABS(R)) 281 1 ((1.+100.*EPMACH)*(ABS(XM)+0.1E+04*UFLOW)))
|
/dports/math/cmlib/cmlib-3.0_8/src/quadpkd/ |
H A D | dqk15i.f | 77 2 RESABS,RESASC,RESG,RESK,RESKH,RESULT,TABSC1,TABSC2,UFLOW,WG,WGK, 140 UFLOW = D1MACH(1) 186 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX
|
H A D | dqk15.f | 58 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK 127 UFLOW = D1MACH(1) 174 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX
|
H A D | dqk21.f | 58 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK 135 UFLOW = D1MACH(1) 182 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | dqk15i.f | 85 2 RESABS,RESASC,RESG,RESK,RESKH,RESULT,TABSC1,TABSC2,UFLOW,WG,WGK, local 158 UFLOW = D1MACH(1) 204 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX
|
H A D | dqk15.f | 65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK local 135 UFLOW = D1MACH(1) 182 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX
|
H A D | dqk21.f | 65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK local 143 UFLOW = D1MACH(1) 190 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX
|
/dports/math/slatec/src/ |
H A D | dqk15.f | 65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK 135 UFLOW = D1MACH(1) 182 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX
|
H A D | dqk15i.f | 85 2 RESABS,RESASC,RESG,RESK,RESKH,RESULT,TABSC1,TABSC2,UFLOW,WG,WGK, 149 UFLOW = D1MACH(1) 195 IF(RESABS.GT.UFLOW/(0.5D+02*EPMACH)) ABSERR = MAX
|
/dports/math/cmlib/cmlib-3.0_8/src/quadpks/ |
H A D | qk15.f | 55 1 FV1,FV2,HLGTH,RESABS,RESASC,RESG,RESK,RESKH,RESULT,R1MACH,UFLOW, 111 UFLOW = R1MACH(1) 159 IF(RESABS.GT.UFLOW/(0.5E+02*EPMACH)) ABSERR = AMAX1
|