H A D | dsp_blas2.c | 91 double *Lval, *Uval; in sp_dtrsv() local 115 Lval = Lstore->nzval; in sp_dtrsv() 144 x[irow] -= x[fsupc] * Lval[luptr]; in sp_dtrsv() 155 dtrsv_("L", "N", "U", &nsupc, &Lval[luptr], &nsupr, in sp_dtrsv() 162 dlsolve ( nsupr, nsupc, &Lval[luptr], &x[fsupc]); in sp_dtrsv() 192 x[fsupc] /= Lval[luptr]; in sp_dtrsv() 203 dtrsv_("U", "N", "N", &nsupc, &Lval[luptr], &nsupr, in sp_dtrsv() 207 dusolve ( nsupr, nsupc, &Lval[luptr], &x[fsupc] ); in sp_dtrsv() 242 x[jcol] -= x[irow] * Lval[i]; in sp_dtrsv() 256 dtrsv_("L", "T", "U", &nsupc, &Lval[luptr], &nsupr, in sp_dtrsv() [all …]
|