Lines Matching refs:wr
440 PetscScalar *ws = glee->swork, *wr = glee->rwork; in TSEvaluateStep_GLEE() local
463 for (j = 0; j < r; j++) wr[j] = V[i * r + j]; in TSEvaluateStep_GLEE()
464 PetscCall(VecMAXPY(Y[i], r, wr, glee->X)); in TSEvaluateStep_GLEE()
469 for (j = 0; j < r; j++) wr[j] = F[j]; in TSEvaluateStep_GLEE()
470 PetscCall(VecMAXPY(X, r, wr, Y)); in TSEvaluateStep_GLEE()
478 for (j = 0; j < r; j++) wr[j] = V[i * r + j]; in TSEvaluateStep_GLEE()
479 PetscCall(VecMAXPY(Y[i], r, wr, glee->X)); in TSEvaluateStep_GLEE()
484 for (j = 0; j < r; j++) wr[j] = Fembed[j]; in TSEvaluateStep_GLEE()
485 PetscCall(VecMAXPY(X, r, wr, Y)); in TSEvaluateStep_GLEE()
503 PetscScalar *ws = glee->swork, *wr = glee->rwork; in TSStep_GLEE() local
531 for (j = 0; j < r; j++) wr[j] = U[i * r + j]; in TSStep_GLEE()
532 PetscCall(VecMAXPY(YStage[i], r, wr, X)); in TSStep_GLEE()
539 for (j = 0; j < r; j++) wr[j] = U[i * r + j]; in TSStep_GLEE()
540 PetscCall(VecMAXPY(W, r, wr, X)); in TSStep_GLEE()
578 for (j = 0; j < r; j++) wr[j] = F[j]; in TSStep_GLEE()
579 PetscCall(VecMAXPY(ts->vec_sol, r, wr, X)); in TSStep_GLEE()
945 PetscScalar *wr = glee->rwork; in TSGetAuxSolution_GLEE() local
950 for (i = 0; i < r; i++) wr[i] = F[i]; in TSGetAuxSolution_GLEE()
951 PetscCall(VecMAXPY(*X, r, wr, Y)); in TSGetAuxSolution_GLEE()
962 PetscScalar *wr = glee->rwork; in TSGetTimeError_GLEE() local
968 for (i = 0; i < r; i++) wr[i] = F[i]; in TSGetTimeError_GLEE()
969 PetscCall(VecMAXPY(*X, r, wr, Y)); in TSGetTimeError_GLEE()