Searched refs:ajnorm (Results 1 – 1 of 1) sorted by relevance
808 double ajnorm, sum, temp; in lm_qrfac() local848 ajnorm = lm_enorm(m-j, &A[j*m+j]); in lm_qrfac()849 if (ajnorm == 0) { in lm_qrfac()857 ajnorm = -ajnorm; in lm_qrfac()859 A[j*m+i] /= ajnorm; in lm_qrfac()892 Rdiag[j] = -ajnorm; in lm_qrfac()