6 MYBOOL LU1U0(LUSOLrec *LUSOL, LUSOLmat **mat, int *inform)  in LU1U0()  argument
20   NUMU = LUSOL->luparm[LUSOL_IP_RANK_U];  in LU1U0()
21   LENU = LUSOL->luparm[LUSOL_IP_NONZEROS_U];  in LU1U0()
23      (LUSOL->luparm[LUSOL_IP_ACCELERATION] == LUSOL_BASEORDER) ||  in LU1U0()
24      ((LUSOL->luparm[LUSOL_IP_ACCELERATION] & LUSOL_ACCELERATE_U) == 0))  in LU1U0()
28   lsumc = (int *) LUSOL_CALLOC((LUSOL->n+1), sizeof(*lsumc));  in LU1U0()
36     J = LUSOL->indr[L];  in LU1U0()
41   if((LUSOL->luparm[LUSOL_IP_ACCELERATION] & LUSOL_AUTOORDER) &&  in LU1U0()
42      ((REAL) sqrt((REAL) NUMU/LENU) > LUSOL->parmlu[LUSOL_RP_SMARTRATIO]))  in LU1U0()
46   *mat = LUSOL_matcreate(LUSOL->n, LENU);  in LU1U0()
55   for(K = 1; K <= LUSOL->n; K++) {  in LU1U0()
65     J = LUSOL->indr[L];  in LU1U0()
67     (*mat)->a[LL] = LUSOL->a[L];  in LU1U0()
69     (*mat)->indc[LL] = LUSOL->indc[L];  in LU1U0()
74   for(L = 1; L <= LUSOL->n; L++) {  in LU1U0()
75     K = LUSOL->iq[L];  in LU1U0()
95 void LU6U0_v(LUSOLrec *LUSOL, LUSOLmat *mat, REAL V[], REAL W[], int NZidx[], int *INFORM)  in LU6U0_v()  argument
110   NRANK = LUSOL->luparm[LUSOL_IP_RANK_U];  in LU6U0_v()
111   SMALL = LUSOL->parmlu[LUSOL_RP_ZEROTOLERANCE];  in LU6U0_v()
116     I = LUSOL->ip[KLAST];  in LU6U0_v()
120   L = LUSOL->n;  in LU6U0_v()
122   for(K = KLAST+1, jptr = LUSOL->iq+K; K <= L; K++, jptr++)  in LU6U0_v()
126     J = LUSOL->iq[K];  in LU6U0_v()
167   for(K = NRANK1; K <= LUSOL->m; K++) {  in LU6U0_v()
168     I = LUSOL->ip[K];  in LU6U0_v()
174   LUSOL->luparm[LUSOL_IP_INFORM]     = *INFORM;  in LU6U0_v()
175   LUSOL->parmlu[LUSOL_RP_RESIDUAL_U] = (REAL) T;  in LU6U0_v()