/dports/math/cmlib/cmlib-3.0_8/src/quadpkd/ |
H A D | dqawce.f | 142 DOUBLE PRECISION A,AA,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1,A2, 264 AREA12 = AREA1+AREA2 267 AREA = AREA+AREA12-RLIST(MAXERR) 268 IF(ABS(RLIST(MAXERR)-AREA12).LT.0.1D-04*ABS(AREA12)
|
H A D | dqawse.f | 164 DOUBLE PRECISION A,ABSERR,ALFA,ALIST,AREA,AREA1,AREA12,AREA2,A1, 301 AREA12 = AREA1+AREA2 304 AREA = AREA+AREA12-RLIST(MAXERR) 310 IF(ABS(RLIST(MAXERR)-AREA12).LT.0.1D-04*ABS(AREA12)
|
H A D | dqage.f | 149 DOUBLE PRECISION A,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1,A2,B, 276 AREA12 = AREA1+AREA2 279 AREA = AREA+AREA12-RLIST(MAXERR) 281 IF(ABS(RLIST(MAXERR)-AREA12).LE.0.1D-04*ABS(AREA12)
|
H A D | dqagse.f | 151 DOUBLE PRECISION A,ABSEPS,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1, 297 AREA12 = AREA1+AREA2 300 AREA = AREA+AREA12-RLIST(MAXERR) 302 IF(ABS(RLIST(MAXERR)-AREA12).GT.0.1D-04*ABS(AREA12)
|
H A D | dqagie.f | 153 DOUBLE PRECISION ABSEPS,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1, 309 AREA12 = AREA1+AREA2 312 AREA = AREA+AREA12-RLIST(MAXERR) 314 IF(ABS(RLIST(MAXERR)-AREA12).GT.0.1D-04*ABS(AREA12)
|
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | dqawce.f | 151 DOUBLE PRECISION A,AA,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1,A2, local 273 AREA12 = AREA1+AREA2 276 AREA = AREA+AREA12-RLIST(MAXERR) 277 IF(ABS(RLIST(MAXERR)-AREA12).LT.0.1D-04*ABS(AREA12)
|
H A D | dqawse.f | 173 DOUBLE PRECISION A,ABSERR,ALFA,ALIST,AREA,AREA1,AREA12,AREA2,A1, local 310 AREA12 = AREA1+AREA2 313 AREA = AREA+AREA12-RLIST(MAXERR) 319 IF(ABS(RLIST(MAXERR)-AREA12).LT.0.1D-04*ABS(AREA12)
|
H A D | dqage.f | 159 DOUBLE PRECISION A,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1,A2,B, local 286 AREA12 = AREA1+AREA2 289 AREA = AREA+AREA12-RLIST(MAXERR) 291 IF(ABS(RLIST(MAXERR)-AREA12).LE.0.1D-04*ABS(AREA12)
|
H A D | dqagse.f | 160 DOUBLE PRECISION A,ABSEPS,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1, local 306 AREA12 = AREA1+AREA2 309 AREA = AREA+AREA12-RLIST(MAXERR) 311 IF(ABS(RLIST(MAXERR)-AREA12).GT.0.1D-04*ABS(AREA12)
|
H A D | dqagie.f | 161 DOUBLE PRECISION ABSEPS,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1, local 317 AREA12 = AREA1+AREA2 320 AREA = AREA+AREA12-RLIST(MAXERR) 322 IF(ABS(RLIST(MAXERR)-AREA12).GT.0.1D-04*ABS(AREA12)
|
/dports/math/slatec/src/ |
H A D | dqawce.f | 151 DOUBLE PRECISION A,AA,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1,A2, 273 AREA12 = AREA1+AREA2 276 AREA = AREA+AREA12-RLIST(MAXERR) 277 IF(ABS(RLIST(MAXERR)-AREA12).LT.0.1D-04*ABS(AREA12)
|
H A D | qawce.f | 151 REAL A,AA,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1,A2,B,BB,BLIST, 273 AREA12 = AREA1+AREA2 276 AREA = AREA+AREA12-RLIST(MAXERR) 277 IF(ABS(RLIST(MAXERR)-AREA12).LT.0.1E-04*ABS(AREA12)
|
H A D | dqawse.f | 173 DOUBLE PRECISION A,ABSERR,ALFA,ALIST,AREA,AREA1,AREA12,AREA2,A1, 310 AREA12 = AREA1+AREA2 313 AREA = AREA+AREA12-RLIST(MAXERR) 319 IF(ABS(RLIST(MAXERR)-AREA12).LT.0.1D-04*ABS(AREA12)
|
H A D | qawse.f | 173 REAL A,ABSERR,ALFA,ALIST,AREA,AREA1,AREA12, 312 AREA12 = AREA1+AREA2 315 AREA = AREA+AREA12-RLIST(MAXERR) 321 IF(ABS(RLIST(MAXERR)-AREA12).LT.0.1E-04*ABS(AREA12)
|
H A D | qage.f | 158 REAL A,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1,A2,B,BLIST, 286 AREA12 = AREA1+AREA2 289 AREA = AREA+AREA12-RLIST(MAXERR) 291 IF(ABS(RLIST(MAXERR)-AREA12).LE.0.1E-04*ABS(AREA12)
|
H A D | dqage.f | 159 DOUBLE PRECISION A,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1,A2,B, 286 AREA12 = AREA1+AREA2 289 AREA = AREA+AREA12-RLIST(MAXERR) 291 IF(ABS(RLIST(MAXERR)-AREA12).LE.0.1D-04*ABS(AREA12)
|
H A D | dqagse.f | 160 DOUBLE PRECISION A,ABSEPS,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1, 306 AREA12 = AREA1+AREA2 309 AREA = AREA+AREA12-RLIST(MAXERR) 311 IF(ABS(RLIST(MAXERR)-AREA12).GT.0.1D-04*ABS(AREA12)
|
H A D | dqagie.f | 161 DOUBLE PRECISION ABSEPS,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1, 317 AREA12 = AREA1+AREA2 320 AREA = AREA+AREA12-RLIST(MAXERR) 322 IF(ABS(RLIST(MAXERR)-AREA12).GT.0.1D-04*ABS(AREA12)
|
H A D | qagie.f | 162 REAL ABSEPS,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1, 320 AREA12 = AREA1+AREA2 323 AREA = AREA+AREA12-RLIST(MAXERR) 325 IF(ABS(RLIST(MAXERR)-AREA12).GT.0.1E-04*ABS(AREA12)
|
/dports/math/cmlib/cmlib-3.0_8/src/quadpks/ |
H A D | qawce.f | 140 REAL A,AA,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1,A2,B,BB,BLIST, 262 AREA12 = AREA1+AREA2 265 AREA = AREA+AREA12-RLIST(MAXERR) 266 IF(ABS(RLIST(MAXERR)-AREA12).LT.0.1E-04*ABS(AREA12)
|
H A D | qawse.f | 162 REAL A,ABSERR,ALFA,ALIST,AREA,AREA1,AREA12, 301 AREA12 = AREA1+AREA2 304 AREA = AREA+AREA12-RLIST(MAXERR) 310 IF(ABS(RLIST(MAXERR)-AREA12).LT.0.1E-04*ABS(AREA12)
|
H A D | qage.f | 147 REAL A,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1,A2,B,BLIST, 275 AREA12 = AREA1+AREA2 278 AREA = AREA+AREA12-RLIST(MAXERR) 280 IF(ABS(RLIST(MAXERR)-AREA12).LE.0.1E-04*ABS(AREA12)
|
H A D | qagie.f | 151 REAL ABSEPS,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1, 309 AREA12 = AREA1+AREA2 312 AREA = AREA+AREA12-RLIST(MAXERR) 314 IF(ABS(RLIST(MAXERR)-AREA12).GT.0.1E-04*ABS(AREA12)
|
H A D | qagse.f | 149 REAL A,ABSEPS,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1, 296 AREA12 = AREA1+AREA2 299 AREA = AREA+AREA12-RLIST(MAXERR) 301 IF(ABS(RLIST(MAXERR)-AREA12).GT.0.1E-04*ABS(AREA12)
|
/dports/math/octave/octave-6.4.0/liboctave/external/quadpack/ |
H A D | dqagie.f | 152 DOUBLE PRECISION ABSEPS,ABSERR,ALIST,AREA,AREA1,AREA12,AREA2,A1, local 311 AREA12 = AREA1+AREA2 314 AREA = AREA+AREA12-RLIST(MAXERR) 316 IF(DABS(RLIST(MAXERR)-AREA12).GT.0.1D-04*DABS(AREA12)
|