Lines Matching refs:AJJ
174 REAL AJJ
225 AJJ = AB( KD+1, J )
226 IF( AJJ.LE.ZERO )
228 AJJ = SQRT( AJJ )
229 AB( KD+1, J ) = AJJ
235 CALL SSCAL( KM, ONE / AJJ, AB( KD+1-KM, J ), 1 )
246 AJJ = AB( KD+1, J )
247 IF( AJJ.LE.ZERO )
249 AJJ = SQRT( AJJ )
250 AB( KD+1, J ) = AJJ
257 CALL SSCAL( KM, ONE / AJJ, AB( KD, J+1 ), KLD )
270 AJJ = AB( 1, J )
271 IF( AJJ.LE.ZERO )
273 AJJ = SQRT( AJJ )
274 AB( 1, J ) = AJJ
280 CALL SSCAL( KM, ONE / AJJ, AB( KM+1, J-KM ), KLD )
291 AJJ = AB( 1, J )
292 IF( AJJ.LE.ZERO )
294 AJJ = SQRT( AJJ )
295 AB( 1, J ) = AJJ
302 CALL SSCAL( KM, ONE / AJJ, AB( 2, J ), 1 )