Lines Matching refs:ERRETM
172 $ EPS, ERRETM, ETA, MIDPT, PHI, PREW, PSI,
289 ERRETM = ZERO
294 ERRETM = ERRETM + PSI
296 ERRETM = ABS( ERRETM )
303 ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV +
310 IF( ABS( W ).LE.EPS*ERRETM ) THEN
366 ERRETM = ZERO
371 ERRETM = ERRETM + PSI
373 ERRETM = ABS( ERRETM )
380 ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV +
393 IF( ABS( W ).LE.EPS*ERRETM ) THEN
442 ERRETM = ZERO
447 ERRETM = ERRETM + PSI
449 ERRETM = ABS( ERRETM )
456 ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV +
553 ERRETM = ZERO
558 ERRETM = ERRETM + PSI
560 ERRETM = ABS( ERRETM )
570 ERRETM = ERRETM + PHI
593 ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV +
598 IF( ABS( W ).LE.EPS*ERRETM ) THEN
699 ERRETM = ZERO
704 ERRETM = ERRETM + PSI
706 ERRETM = ABS( ERRETM )
716 ERRETM = ERRETM + PHI
723 ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV +
745 IF( ABS( W ).LE.EPS*ERRETM ) THEN
866 ERRETM = ZERO
871 ERRETM = ERRETM + PSI
873 ERRETM = ABS( ERRETM )
883 ERRETM = ERRETM + PHI
890 ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV +