Lines Matching refs:ABSW
149 DOUBLE PRECISION ABSW, ANORM, BNORM, CI11, CI12, CI22, CNORM,
174 ABSW = ABS( WRS ) + ABS( WIS )
182 TEMP = ( SAFMIN*BNORM )*ABSW + ( SAFMIN*ANORM )*SCALES
192 ABSW = ABS( WRS ) + ABS( WIS )
194 S1 = MAX( ULP*MAX( SCALES*ANORM, ABSW*BNORM ),
195 $ SAFMIN*MAX( SCALES, ABSW ) )
201 IF( SCALES.LT.SAFMIN .AND. ABSW.LT.SAFMIN ) THEN
209 TEMP = ONE / MAX( SCALES*ANORM+ABSW*BNORM, SAFMIN )
213 ABSW = ABS( WRS ) + ABS( WIS )
214 S1 = MAX( ULP*MAX( SCALES*ANORM, ABSW*BNORM ),
215 $ SAFMIN*MAX( SCALES, ABSW ) )