Lines Matching refs:AJJ
164 REAL AJJ
211 AJJ = AB( KD+1, J )
212 IF( AJJ.LE.ZERO )
214 AJJ = SQRT( AJJ )
215 AB( KD+1, J ) = AJJ
222 CALL SSCAL( KN, ONE / AJJ, AB( KD, J+1 ), KLD )
235 AJJ = AB( 1, J )
236 IF( AJJ.LE.ZERO )
238 AJJ = SQRT( AJJ )
239 AB( 1, J ) = AJJ
246 CALL SSCAL( KN, ONE / AJJ, AB( 2, J ), 1 )