Lines Matching refs:BII
195 DOUBLE PRECISION BII local
348 BII = DBLE( BB( KB1, I ) )
349 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII
351 AB( I-J+KA1, J ) = AB( I-J+KA1, J ) / BII
354 AB( J-I+KA1, I ) = AB( J-I+KA1, I ) / BII
384 CALL ZDSCAL( N-M, ONE / BII, X( M+1, I ), 1 )
616 BII = DBLE( BB( 1, I ) )
617 AB( 1, I ) = ( DBLE( AB( 1, I ) ) / BII ) / BII
619 AB( J-I+1, I ) = AB( J-I+1, I ) / BII
622 AB( I-J+1, J ) = AB( I-J+1, J ) / BII
650 CALL ZDSCAL( N-M, ONE / BII, X( M+1, I ), 1 )
931 BII = DBLE( BB( KB1, I ) )
932 AB( KA1, I ) = ( DBLE( AB( KA1, I ) ) / BII ) / BII
934 AB( J-I+KA1, I ) = AB( J-I+KA1, I ) / BII
937 AB( I-J+KA1, J ) = AB( I-J+KA1, J ) / BII
967 CALL ZDSCAL( NX, ONE / BII, X( 1, I ), 1 )
1203 BII = DBLE( BB( 1, I ) )
1204 AB( 1, I ) = ( DBLE( AB( 1, I ) ) / BII ) / BII
1206 AB( I-J+1, J ) = AB( I-J+1, J ) / BII
1209 AB( J-I+1, I ) = AB( J-I+1, I ) / BII
1237 CALL ZDSCAL( NX, ONE / BII, X( 1, I ), 1 )