Lines Matching refs:AJJ
110 DOUBLE PRECISION AJJ
161 AJJ = DBLE( AB( KD+1, J ) )
162 IF( AJJ.LE.ZERO ) THEN
163 AB( KD+1, J ) = AJJ
166 AJJ = SQRT( AJJ )
167 AB( KD+1, J ) = AJJ
173 CALL ZDSCAL( KM, ONE / AJJ, AB( KD+1-KM, J ), 1 )
184 AJJ = DBLE( AB( KD+1, J ) )
185 IF( AJJ.LE.ZERO ) THEN
186 AB( KD+1, J ) = AJJ
189 AJJ = SQRT( AJJ )
190 AB( KD+1, J ) = AJJ
197 CALL ZDSCAL( KM, ONE / AJJ, AB( KD, J+1 ), KLD )
212 AJJ = DBLE( AB( 1, J ) )
213 IF( AJJ.LE.ZERO ) THEN
214 AB( 1, J ) = AJJ
217 AJJ = SQRT( AJJ )
218 AB( 1, J ) = AJJ
224 CALL ZDSCAL( KM, ONE / AJJ, AB( KM+1, J-KM ), KLD )
237 AJJ = DBLE( AB( 1, J ) )
238 IF( AJJ.LE.ZERO ) THEN
239 AB( 1, J ) = AJJ
242 AJJ = SQRT( AJJ )
243 AB( 1, J ) = AJJ
250 CALL ZDSCAL( KM, ONE / AJJ, AB( 2, J ), 1 )