/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/ |
H A D | dqawfe.f | 212 2 EPSABS,ERRSUM,F,FACT,OMEGA,P,PI,P1,PSUM,RESEPS,RESULT,RES3LA, local 297 ERRSUM = 0.0D+00 312 ERRSUM = ERRSUM+ERLST(LST) 317 IF((ERRSUM+DRL).LE.EPSABS.AND.LST.GE.6) GO TO 80 321 IF(IER.EQ.7.AND.(ERRSUM+DRL).LE.CORREC*0.1D+02.AND. 341 IF(KTMIN.GE.15.AND.ABSERR.LE.0.1D-02*(ERRSUM+DRL)) IER = 4 365 IF(ABSERR.GT.ERRSUM) GO TO 80 367 70 IF(ABSERR/ABS(RESULT).GT.(ERRSUM+DRL)/ABS(PSUM(NUMRL2))) 372 ABSERR = ERRSUM+DRL
|
H A D | dqagse.f | 163 3 ERROR1,ERROR2,ERRO12,ERRSUM,ERTEST,F,OFLOW,RESABS,RESEPS,RESULT, local 273 ERRSUM = ABSERR 308 ERRSUM = ERRSUM+ERRO12-ERRMAX 359 IF(ERRSUM.LE.ERRBND) GO TO 115 397 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 416 ERLARG = ERRSUM 419 ERLARG = ERRSUM 432 IF(ABSERR.GT.ERRSUM) GO TO 115 435 105 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA)) GO TO 115 442 1 .OR.ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | dqagie.f | 164 3 ERRBND,ERRMAX,ERROR1,ERROR2,ERRO12,ERRSUM,ERTEST,F,OFLOW,RESABS, local 284 ERRSUM = ABSERR 319 ERRSUM = ERRSUM+ERRO12-ERRMAX 369 IF(ERRSUM.LE.ERRBND) GO TO 115 405 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 423 ERLARG = ERRSUM 426 ERLARG = ERRSUM 439 IF(ABSERR.GT.ERRSUM)GO TO 115 442 105 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA))GO TO 115 449 1 .OR.ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | dqagpe.f | 337 ERRSUM = 0.0D+00 340 ERRSUM = ERRSUM+ELIST(I) 380 ERLARG = ERRSUM 416 ERRSUM = ERRSUM+ERRO12-ERRMAX 469 IF(ERRSUM.LE.ERRBND) GO TO 190 507 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 526 ERLARG = ERRSUM 538 IF(ABSERR.GT.ERRSUM)GO TO 190 541 175 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA))GO TO 190 548 1 ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | dqawoe.f | 219 3 ERRBND,ERRMAX,ERROR1,ERRO12,ERROR2,ERRSUM,ERTEST,F,OFLOW, local 333 ERRSUM = ABSERR 381 ERRSUM = ERRSUM+ERRO12-ERRMAX 434 IF(ERRSUM.LE.ERRBND) GO TO 170 483 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 502 ERLARG = ERRSUM 508 ERLARG = ERRSUM 519 IF(ABSERR.GT.ERRSUM) GO TO 170 522 160 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA)) GO TO 170 529 1 .OR.ERRSUM.GE.ABS(AREA)) IER = 6 [all …]
|
/dports/math/slatec/src/ |
H A D | dqawfe.f | 212 2 EPSABS,ERRSUM,F,FACT,OMEGA,P,PI,P1,PSUM,RESEPS,RESULT,RES3LA, 297 ERRSUM = 0.0D+00 312 ERRSUM = ERRSUM+ERLST(LST) 317 IF((ERRSUM+DRL).LE.EPSABS.AND.LST.GE.6) GO TO 80 321 IF(IER.EQ.7.AND.(ERRSUM+DRL).LE.CORREC*0.1D+02.AND. 341 IF(KTMIN.GE.15.AND.ABSERR.LE.0.1D-02*(ERRSUM+DRL)) IER = 4 365 IF(ABSERR.GT.ERRSUM) GO TO 80 367 70 IF(ABSERR/ABS(RESULT).GT.(ERRSUM+DRL)/ABS(PSUM(NUMRL2))) 372 ABSERR = ERRSUM+DRL
|
H A D | qawfe.f | 212 2 ERRSUM,FACT,OMEGA,P,PI,P1,PSUM,RESEPS,RESULT,RES3LA,RLIST,RSLST 298 ERRSUM = 0.0E+00 313 ERRSUM = ERRSUM+ERLST(LST) 318 IF(ERRSUM+DRL.LE.EPSABS.AND.LST.GE.6) GO TO 80 322 IF(IER.EQ.7.AND.(ERRSUM+DRL).LE.CORREC*0.1E+02.AND. 343 IF(KTMIN.GE.15.AND.ABSERR.LE.0.1E-02*(ERRSUM+DRL)) IER = 4 367 IF(ABSERR.GT.ERRSUM) GO TO 80 369 70 IF(ABSERR/ABS(RESULT).GT.(ERRSUM+DRL)/ABS(PSUM(NUMRL2))) 374 ABSERR = ERRSUM+DRL
|
H A D | dqagse.f | 163 3 ERROR1,ERROR2,ERRO12,ERRSUM,ERTEST,F,OFLOW,RESABS,RESEPS,RESULT, 273 ERRSUM = ABSERR 308 ERRSUM = ERRSUM+ERRO12-ERRMAX 359 IF(ERRSUM.LE.ERRBND) GO TO 115 397 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 416 ERLARG = ERRSUM 419 ERLARG = ERRSUM 432 IF(ABSERR.GT.ERRSUM) GO TO 115 435 105 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA)) GO TO 115 442 1 .OR.ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | dqagie.f | 164 3 ERRBND,ERRMAX,ERROR1,ERROR2,ERRO12,ERRSUM,ERTEST,F,OFLOW,RESABS, 284 ERRSUM = ABSERR 319 ERRSUM = ERRSUM+ERRO12-ERRMAX 369 IF(ERRSUM.LE.ERRBND) GO TO 115 405 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 423 ERLARG = ERRSUM 426 ERLARG = ERRSUM 439 IF(ABSERR.GT.ERRSUM)GO TO 115 442 105 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA))GO TO 115 449 1 .OR.ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | dqagpe.f | 337 ERRSUM = 0.0D+00 340 ERRSUM = ERRSUM+ELIST(I) 380 ERLARG = ERRSUM 416 ERRSUM = ERRSUM+ERRO12-ERRMAX 469 IF(ERRSUM.LE.ERRBND) GO TO 190 507 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 526 ERLARG = ERRSUM 538 IF(ABSERR.GT.ERRSUM)GO TO 190 541 175 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA))GO TO 190 548 1 ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | qagpe.f | 341 ERRSUM = 0.0E+00 344 ERRSUM = ERRSUM+ELIST(I) 385 ERLARG = ERRSUM 421 ERRSUM = ERRSUM+ERRO12-ERRMAX 476 IF(ERRSUM.LE.ERRBND) GO TO 190 515 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1E-02*ERRSUM) IER = 5 534 ERLARG = ERRSUM 546 IF(ABSERR.GT.ERRSUM)GO TO 190 549 175 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA))GO TO 190 556 1 ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | qagie.f | 165 3 ERRBND,ERRMAX,ERROR1,ERROR2,ERRO12,ERRSUM,ERTEST,F,OFLOW,RESABS, 286 ERRSUM = ABSERR 322 ERRSUM = ERRSUM+ERRO12-ERRMAX 374 IF(ERRSUM.LE.ERRBND) GO TO 115 411 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1E-02*ERRSUM) IER = 5 429 ERLARG = ERRSUM 432 ERLARG = ERRSUM 445 IF(ABSERR.GT.ERRSUM)GO TO 115 448 105 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA))GO TO 115 455 1 .OR.ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | qagse.f | 163 3 ERRMAX,ERROR1,ERROR2,ERRO12,ERRSUM,ERTEST,F,OFLOW,RESABS, 274 ERRSUM = ABSERR 309 ERRSUM = ERRSUM+ERRO12-ERRMAX 362 IF(ERRSUM.LE.ERRBND) GO TO 115 401 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1E-02*ERRSUM) IER = 5 420 ERLARG = ERRSUM 423 ERLARG = ERRSUM 436 IF(ABSERR.GT.ERRSUM) GO TO 115 439 105 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA)) GO TO 115 446 1 .OR.ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | dqawoe.f | 219 3 ERRBND,ERRMAX,ERROR1,ERRO12,ERROR2,ERRSUM,ERTEST,F,OFLOW, 333 ERRSUM = ABSERR 381 ERRSUM = ERRSUM+ERRO12-ERRMAX 434 IF(ERRSUM.LE.ERRBND) GO TO 170 483 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 502 ERLARG = ERRSUM 508 ERLARG = ERRSUM 519 IF(ABSERR.GT.ERRSUM) GO TO 170 522 160 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA)) GO TO 170 529 1 .OR.ERRSUM.GE.ABS(AREA)) IER = 6 [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/quadpks/ |
H A D | qawfe.f | 201 2 ERRSUM,FACT,OMEGA,P,PI,P1,PSUM,RESEPS,RESULT,RES3LA,RLIST,RSLST 286 ERRSUM = 0.0E+00 302 ERRSUM = ERRSUM+ERLST(LST) 307 IF(ERRSUM+DRL.LE.EPSABS.AND.LST.GE.6) GO TO 80 311 IF(IER.EQ.7.AND.(ERRSUM+DRL).LE.CORREC*0.1E+02.AND. 332 IF(KTMIN.GE.15.AND.ABSERR.LE.0.1E-02*(ERRSUM+DRL)) IER = 4 356 IF(ABSERR.GT.ERRSUM) GO TO 80 358 70 IF(ABSERR/ABS(RESULT).GT.(ERRSUM+DRL)/ABS(PSUM(NUMRL2))) 363 ABSERR = ERRSUM+DRL
|
H A D | qagie.f | 154 3 ERRBND,ERRMAX,ERROR1,ERROR2,ERRO12,ERRSUM,ERTEST,F,OFLOW,RESABS, 275 ERRSUM = ABSERR 311 ERRSUM = ERRSUM+ERRO12-ERRMAX 363 IF(ERRSUM.LE.ERRBND) GO TO 115 400 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1E-02*ERRSUM) IER = 5 418 ERLARG = ERRSUM 421 ERLARG = ERRSUM 434 IF(ABSERR.GT.ERRSUM)GO TO 115 437 105 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA))GO TO 115 444 1OR.ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | qagse.f | 152 3 ERRMAX,ERROR1,ERROR2,ERRO12,ERRSUM,ERTEST,F,OFLOW,RESABS, 263 ERRSUM = ABSERR 298 ERRSUM = ERRSUM+ERRO12-ERRMAX 351 IF(ERRSUM.LE.ERRBND) GO TO 115 390 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1E-02*ERRSUM) IER = 5 409 ERLARG = ERRSUM 412 ERLARG = ERRSUM 425 IF(ABSERR.GT.ERRSUM) GO TO 115 428 105 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA)) GO TO 115 435 1 .OR.ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | qagpe.f | 330 ERRSUM = 0.0E+00 333 ERRSUM = ERRSUM+ELIST(I) 374 ERLARG = ERRSUM 410 ERRSUM = ERRSUM+ERRO12-ERRMAX 465 IF(ERRSUM.LE.ERRBND) GO TO 190 504 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1E-02*ERRSUM) IER = 5 523 ERLARG = ERRSUM 535 IF(ABSERR.GT.ERRSUM)GO TO 190 538 175 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA))GO TO 190 545 1 ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
/dports/math/cmlib/cmlib-3.0_8/src/quadpkd/ |
H A D | dqawfe.f | 203 2 EPSABS,ERRSUM,F,FACT,OMEGA,P,PI,P1,PSUM,RESEPS,RESULT,RES3LA, 287 ERRSUM = 0.0D+00 303 ERRSUM = ERRSUM+ERLST(LST) 308 IF((ERRSUM+DRL).LE.EPSABS.AND.LST.GE.6) GO TO 80 312 IF(IER.EQ.7.AND.(ERRSUM+DRL).LE.CORREC*0.1D+02.AND. 332 IF(KTMIN.GE.15.AND.ABSERR.LE.0.1D-02*(ERRSUM+DRL)) IER = 4 356 IF(ABSERR.GT.ERRSUM) GO TO 80 358 70 IF(ABSERR/ABS(RESULT).GT.(ERRSUM+DRL)/ABS(PSUM(NUMRL2))) 363 ABSERR = ERRSUM+DRL
|
H A D | dqagse.f | 154 3 ERROR1,ERROR2,ERRO12,ERRSUM,ERTEST,F,OFLOW,RESABS,RESEPS,RESULT, 264 ERRSUM = ABSERR 299 ERRSUM = ERRSUM+ERRO12-ERRMAX 350 IF(ERRSUM.LE.ERRBND) GO TO 115 388 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 407 ERLARG = ERRSUM 410 ERLARG = ERRSUM 423 IF(ABSERR.GT.ERRSUM) GO TO 115 426 105 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA)) GO TO 115 433 1 .OR.ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | dqagie.f | 156 3 ERRBND,ERRMAX,ERROR1,ERROR2,ERRO12,ERRSUM,ERTEST,F,OFLOW,RESABS, 276 ERRSUM = ABSERR 311 ERRSUM = ERRSUM+ERRO12-ERRMAX 361 IF(ERRSUM.LE.ERRBND) GO TO 115 397 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 415 ERLARG = ERRSUM 418 ERLARG = ERRSUM 431 IF(ABSERR.GT.ERRSUM)GO TO 115 434 105 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA))GO TO 115 441 1OR.ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | dqagpe.f | 328 ERRSUM = 0.0D+00 331 ERRSUM = ERRSUM+ELIST(I) 371 ERLARG = ERRSUM 407 ERRSUM = ERRSUM+ERRO12-ERRMAX 460 IF(ERRSUM.LE.ERRBND) GO TO 190 498 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 517 ERLARG = ERRSUM 529 IF(ABSERR.GT.ERRSUM)GO TO 190 532 175 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA))GO TO 190 539 1 ERRSUM.GT.ABS(AREA)) IER = 6 [all …]
|
H A D | dqawoe.f | 211 3 ERRBND,ERRMAX,ERROR1,ERRO12,ERROR2,ERRSUM,ERTEST,F,OFLOW, 325 ERRSUM = ABSERR 373 ERRSUM = ERRSUM+ERRO12-ERRMAX 426 IF(ERRSUM.LE.ERRBND) GO TO 170 475 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 494 ERLARG = ERRSUM 500 ERLARG = ERRSUM 511 IF(ABSERR.GT.ERRSUM) GO TO 170 514 160 IF(ABSERR/ABS(RESULT).GT.ERRSUM/ABS(AREA)) GO TO 170 521 1 .OR.ERRSUM.GE.ABS(AREA)) IER = 6 [all …]
|
/dports/math/octave/octave-6.4.0/liboctave/external/quadpack/ |
H A D | dqagpe.f | 329 ERRSUM = 0.0D+00 332 ERRSUM = ERRSUM+ELIST(I) 372 ERLARG = ERRSUM 410 ERRSUM = ERRSUM+ERRO12-ERRMAX 463 IF(ERRSUM.LE.ERRBND) GO TO 190 501 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 520 ERLARG = ERRSUM 532 IF(ABSERR.GT.ERRSUM)GO TO 190 535 175 IF(ABSERR/DABS(RESULT).GT.ERRSUM/DABS(AREA))GO TO 190 542 * ERRSUM.GT.DABS(AREA)) IER = 6 [all …]
|
H A D | dqagie.f | 155 * ERRBND,ERRMAX,ERROR1,ERROR2,ERRO12,ERRSUM,ERTEST,OFLOW,RESABS, local 276 ERRSUM = ABSERR 313 ERRSUM = ERRSUM+ERRO12-ERRMAX 363 IF(ERRSUM.LE.ERRBND) GO TO 115 399 IF(KTMIN.GT.5.AND.ABSERR.LT.0.1D-02*ERRSUM) IER = 5 417 ERLARG = ERRSUM 420 ERLARG = ERRSUM 433 IF(ABSERR.GT.ERRSUM)GO TO 115 436 105 IF(ABSERR/DABS(RESULT).GT.ERRSUM/DABS(AREA))GO TO 115 443 *OR.ERRSUM.GT.DABS(AREA)) IER = 6 [all …]
|