Lines Matching refs:dlen
189 PetscBLASInt i1 = 1, dlen; in xxt_generate() local
292 PetscCall(PetscBLASIntCast(len, &dlen)); in xxt_generate()
293 PetscCallBLAS("BLASdot", uu[k] = BLASdot_(&dlen, u + off, &i1, x_ptr, &i1)); in xxt_generate()
307 PetscCall(PetscBLASIntCast(len, &dlen)); in xxt_generate()
308 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &uu[k], x_ptr, &i1, z + off, &i1)); in xxt_generate()
314 PetscCall(PetscBLASIntCast(n, &dlen)); in xxt_generate()
315 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &dm1, z, &i1, v, &i1)); in xxt_generate()
323 PetscCall(PetscBLASIntCast(n, &dlen)); in xxt_generate()
324 PetscCallBLAS("BLASdot", alpha = BLASdot_(&dlen, u, &i1, v, &i1)); in xxt_generate()
419 PetscBLASInt i1 = 1, dlen; in do_xxt_solve() local
430 PetscCall(PetscBLASIntCast(len, &dlen)); in do_xxt_solve()
431 PetscCallBLAS("BLASdot", *uu_ptr++ = BLASdot_(&dlen, uc + off, &i1, x_ptr, &i1)); in do_xxt_solve()
444 PetscCall(PetscBLASIntCast(len, &dlen)); in do_xxt_solve()
445 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, uu_ptr++, x_ptr, &i1, uc + off, &i1)); in do_xxt_solve()