Lines Matching refs:LSCALE
175 SUBROUTINE ZGGBAL( JOB, N, A, LDA, B, LDB, ILO, IHI, LSCALE, argument
187 DOUBLE PRECISION LSCALE( * ), RSCALE( * ), WORK( * )
259 LSCALE( 1 ) = ONE
268 LSCALE( I ) = ONE
291 LSCALE( 1 ) = 1
349 LSCALE( M ) = I
373 LSCALE( I ) = ONE
387 LSCALE( I ) = ZERO
508 LSCALE( I ) = LSCALE( I ) + COR
538 IR = INT(LSCALE( I ) + SIGN( HALF, LSCALE( I ) ))
540 LSCALE( I ) = SCLFAC**IR
554 CALL ZDSCAL( N-ILO+1, LSCALE( I ), A( I, ILO ), LDA )
555 CALL ZDSCAL( N-ILO+1, LSCALE( I ), B( I, ILO ), LDB )