Lines Matching refs:ABSW
146 DOUBLE PRECISION ABSW, ANORM, BNORM, CI11, CI12, CI22, CNORM,
171 ABSW = ABS( WRS ) + ABS( WIS )
179 TEMP = ( SAFMIN*BNORM )*ABSW + ( SAFMIN*ANORM )*SCALES
189 ABSW = ABS( WRS ) + ABS( WIS )
191 S1 = MAX( ULP*MAX( SCALES*ANORM, ABSW*BNORM ),
192 $ SAFMIN*MAX( SCALES, ABSW ) )
198 IF( SCALES.LT.SAFMIN .AND. ABSW.LT.SAFMIN ) THEN
206 TEMP = ONE / MAX( SCALES*ANORM+ABSW*BNORM, SAFMIN )
210 ABSW = ABS( WRS ) + ABS( WIS )
211 S1 = MAX( ULP*MAX( SCALES*ANORM, ABSW*BNORM ),
212 $ SAFMIN*MAX( SCALES, ABSW ) )