Home
last modified time | relevance | path

Searched refs:ERRSUM (Results 1 – 25 of 44) sorted by relevance

12

/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Ddqawfe.f212 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 Ddqagse.f163 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 Ddqagie.f164 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 Ddqagpe.f337 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 Ddqawoe.f219 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 Ddqawfe.f212 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 Dqawfe.f212 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 Ddqagse.f163 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 Ddqagie.f164 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 Ddqagpe.f337 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 Dqagpe.f341 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 Dqagie.f165 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 Dqagse.f163 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 Ddqawoe.f219 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 Dqawfe.f201 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 Dqagie.f154 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 Dqagse.f152 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 Dqagpe.f330 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 Ddqawfe.f203 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 Ddqagse.f154 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 Ddqagie.f156 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 Ddqagpe.f328 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 Ddqawoe.f211 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 Ddqagpe.f329 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 Ddqagie.f155 * 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 …]

12