Lines Matching refs:ERRETM
103 $ EPS, ERRETM, ETA, MIDPT, PHI, PREW, PSI, local
220 ERRETM = ZERO
225 ERRETM = ERRETM + PSI
227 ERRETM = ABS( ERRETM )
234 ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV +
241 IF( ABS( W ).LE.EPS*ERRETM ) THEN
297 ERRETM = ZERO
302 ERRETM = ERRETM + PSI
304 ERRETM = ABS( ERRETM )
311 ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV +
324 IF( ABS( W ).LE.EPS*ERRETM ) THEN
373 ERRETM = ZERO
378 ERRETM = ERRETM + PSI
380 ERRETM = ABS( ERRETM )
387 ERRETM = EIGHT*( -PHI-PSI ) + ERRETM - PHI + RHOINV +
484 ERRETM = ZERO
489 ERRETM = ERRETM + PSI
491 ERRETM = ABS( ERRETM )
501 ERRETM = ERRETM + PHI
524 ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV +
529 IF( ABS( W ).LE.EPS*ERRETM ) THEN
631 ERRETM = ZERO
636 ERRETM = ERRETM + PSI
638 ERRETM = ABS( ERRETM )
648 ERRETM = ERRETM + PHI
655 ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV +
677 IF( ABS( W ).LE.EPS*ERRETM ) THEN
798 ERRETM = ZERO
803 ERRETM = ERRETM + PSI
805 ERRETM = ABS( ERRETM )
815 ERRETM = ERRETM + PHI
822 ERRETM = EIGHT*( PHI-PSI ) + ERRETM + TWO*RHOINV +