Lines Matching refs:ERRETM
175 $ EPS, ERRETM, ETA, MIDPT, PHI, PREW, PSI, local
292 ERRETM = ZERO
297 ERRETM = ERRETM + PSI
299 ERRETM = ABS( ERRETM )
306 ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV +
313 IF( ABS( W ).LE.EPS*ERRETM ) THEN
369 ERRETM = ZERO
374 ERRETM = ERRETM + PSI
376 ERRETM = ABS( ERRETM )
383 ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV +
396 IF( ABS( W ).LE.EPS*ERRETM ) THEN
445 ERRETM = ZERO
450 ERRETM = ERRETM + PSI
452 ERRETM = ABS( ERRETM )
459 ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV +
556 ERRETM = ZERO
561 ERRETM = ERRETM + PSI
563 ERRETM = ABS( ERRETM )
573 ERRETM = ERRETM + PHI
596 ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV +
601 IF( ABS( W ).LE.EPS*ERRETM ) THEN
702 ERRETM = ZERO
707 ERRETM = ERRETM + PSI
709 ERRETM = ABS( ERRETM )
719 ERRETM = ERRETM + PHI
726 ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV +
748 IF( ABS( W ).LE.EPS*ERRETM ) THEN
869 ERRETM = ZERO
874 ERRETM = ERRETM + PSI
876 ERRETM = ABS( ERRETM )
886 ERRETM = ERRETM + PHI
893 ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV +