Lines Matching refs:RSCALE
176 $ RSCALE, WORK, INFO )
188 $ RSCALE( * ), WORK( * )
251 RSCALE( 1 ) = ONE
260 RSCALE( I ) = ONE
281 RSCALE( 1 ) = ONE
349 RSCALE( M ) = J
365 RSCALE( I ) = ONE
377 RSCALE( I ) = ZERO
499 RSCALE( I ) = RSCALE( I ) + COR
533 JC = RSCALE( I ) + SIGN( HALF, RSCALE( I ) )
535 RSCALE( I ) = SCLFAC**JC
548 CALL SSCAL( IHI, RSCALE( J ), A( 1, J ), 1 )
549 CALL SSCAL( IHI, RSCALE( J ), B( 1, J ), 1 )