Lines Matching refs:dlen
245 PetscBLASInt i1 = 1, dlen; in xyt_generate() local
361 PetscCall(PetscBLASIntCast(len, &dlen)); in xyt_generate()
362 PetscCallBLAS("BLASdot", uu[k] = BLASdot_(&dlen, u + off, &i1, y_ptr, &i1)); in xyt_generate()
376 PetscCall(PetscBLASIntCast(len, &dlen)); in xyt_generate()
377 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &uu[k], x_ptr, &i1, z + off, &i1)); in xyt_generate()
383 PetscCall(PetscBLASIntCast(n, &dlen)); in xyt_generate()
384 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, &dm1, z, &i1, v, &i1)); in xyt_generate()
392 PetscCall(PetscBLASIntCast(n, &dlen)); in xyt_generate()
393 PetscCallBLAS("BLASdot", alpha = BLASdot_(&dlen, u, &i1, u, &i1)); in xyt_generate()
530 PetscBLASInt i1 = 1, dlen; in do_xyt_solve() local
541 PetscCall(PetscBLASIntCast(len, &dlen)); in do_xyt_solve()
542 PetscCallBLAS("BLASdot", *uu_ptr++ = BLASdot_(&dlen, uc + off, &i1, y_ptr, &i1)); in do_xyt_solve()
554 PetscCall(PetscBLASIntCast(len, &dlen)); in do_xyt_solve()
555 PetscCallBLAS("BLASaxpy", BLASaxpy_(&dlen, uu_ptr++, x_ptr, &i1, uc + off, &i1)); in do_xyt_solve()