/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, 153 RESG = WG(8)*FC 171 RESG = RESG+WG(J)*FSUM 183 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | dqk15.f | 58 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK 137 RESG = FC*WG(4) 148 RESG = RESG+WG(J)*FSUM 171 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | dqk21.f | 58 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK 144 RESG = 0.0D+00 156 RESG = RESG+WG(J)*FSUM 179 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | dqk15w.f | 70 2 P1,P2,P3,P4,RESABS,RESASC,RESG,RESK,RESKH,RESULT,UFLOW,W,WG,WGK, 138 RESG = WG(4)*FC 151 RESG = RESG+WG(J)*FSUM 176 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | dqk31.f | 58 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK 154 RESG = WG(8)*FC 165 RESG = RESG+WG(J)*FSUM 188 ABSERR = ABS((RESK-RESG)*HLGTH)
|
/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 171 RESG = WG(8)*FC 189 RESG = RESG+WG(J)*FSUM 201 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | dqk15.f | 65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK local 145 RESG = FC*WG(4) 156 RESG = RESG+WG(J)*FSUM 179 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | dqk21.f | 65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK local 152 RESG = 0.0D+00 164 RESG = RESG+WG(J)*FSUM 187 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | dqk15w.f | 77 2 P1,P2,P3,P4,RESABS,RESASC,RESG,RESK,RESKH,RESULT,UFLOW,W,WG,WGK, local 146 RESG = WG(4)*FC 159 RESG = RESG+WG(J)*FSUM 184 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | dqk31.f | 65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK local 162 RESG = WG(8)*FC 173 RESG = RESG+WG(J)*FSUM 196 ABSERR = ABS((RESK-RESG)*HLGTH)
|
/dports/math/slatec/src/ |
H A D | dqk15.f | 65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK 145 RESG = FC*WG(4) 156 RESG = RESG+WG(J)*FSUM 179 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | dqk15i.f | 85 2 RESABS,RESASC,RESG,RESK,RESKH,RESULT,TABSC1,TABSC2,UFLOW,WG,WGK, 162 RESG = WG(8)*FC 180 RESG = RESG+WG(J)*FSUM 192 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | qk15.f | 64 1 FV1,FV2,HLGTH,RESABS,RESASC,RESG,RESK,RESKH,RESULT,R1MACH,UFLOW, 131 RESG = FC*WG(4) 142 RESG = RESG+WG(J)*FSUM 165 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | dqk21.f | 65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK 152 RESG = 0.0D+00 164 RESG = RESG+WG(J)*FSUM 187 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | qk21.f | 64 1 FV1,FV2,HLGTH,RESABS,RESG,RESK,RESKH,RESULT,R1MACH,UFLOW,WG,WGK, 140 RESG = 0.0E+00 152 RESG = RESG+WG(J)*FSUM 175 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | qk15i.f | 85 2 FV2,HLGTH,RESABS,RESASC,RESG,RESK,RESKH,RESULT,TABSC1,TABSC2, 164 RESG = WG(8)*FC 182 RESG = RESG+WG(J)*FSUM 194 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | qk31.f | 64 1 FV1,FV2,HLGTH,RESABS,RESASC,RESG,RESK,RESKH,RESULT,R1MACH,UFLOW, 143 RESG = WG(8)*FC 154 RESG = RESG+WG(J)*FSUM 177 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | dqk31.f | 65 2 RESG,RESK,RESKH,RESULT,UFLOW,WG,WGK,XGK 162 RESG = WG(8)*FC 173 RESG = RESG+WG(J)*FSUM 196 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | dqk15w.f | 77 2 P1,P2,P3,P4,RESABS,RESASC,RESG,RESK,RESKH,RESULT,UFLOW,W,WG,WGK, 146 RESG = WG(4)*FC 159 RESG = RESG+WG(J)*FSUM 184 ABSERR = ABS((RESK-RESG)*HLGTH)
|
/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, 121 RESG = FC*WG(4) 132 RESG = RESG+WG(J)*FSUM 155 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | qk21.f | 55 1 FV1,FV2,HLGTH,RESABS,RESG,RESK,RESKH,RESULT,R1MACH,UFLOW,WG,WGK, 130 RESG = 0.0E+00 142 RESG = RESG+WG(J)*FSUM 165 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | qk15i.f | 75 2 FV2,HLGTH,RESABS,RESASC,RESG,RESK,RESKH,RESULT,TABSC1,TABSC2, 153 RESG = WG(8)*FC 171 RESG = RESG+WG(J)*FSUM 183 ABSERR = ABS((RESK-RESG)*HLGTH)
|
H A D | qk31.f | 55 1 FV1,FV2,HLGTH,RESABS,RESASC,RESG,RESK,RESKH,RESULT,R1MACH,UFLOW, 133 RESG = WG(8)*FC 144 RESG = RESG+WG(J)*FSUM 167 ABSERR = ABS((RESK-RESG)*HLGTH)
|
/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 140 RESG = 0.0D+00 156 RESG = RESG+WG(J)*FSUM 181 ABSERR = DABS((RESK-RESG)*HLGTH)
|
H A D | dqk15i.f | 74 * RESABS,RESASC,RESG,RESK,RESKH,RESULT,TABSC1,TABSC2,UFLOW,WG,WGK, local 165 RESG = WG(8)*FC 193 RESG = RESG+WG(J)*FSUM 205 ABSERR = DABS((RESK-RESG)*HLGTH)
|