-
Notifications
You must be signed in to change notification settings - Fork 128
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Feature/sunadjoint #559
base: feature/sunstepper
Are you sure you want to change the base?
Feature/sunadjoint #559
Conversation
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Partial review of a couple dozen source files
if (ark_mem->fixedstep) | ||
{ | ||
ark_mem->eta = ONE; | ||
break; | ||
if (!ark_mem->do_adjoint) { break; } |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Perhaps this will become clear later, but I don't understand why this extra if statement is needed. A comment might help.
/* h sum_{j=i}^{s} A_{ji}/b_i \Lambda_{j} */ | ||
if (step_mem->Be->b[is] > SUN_UNIT_ROUNDOFF) | ||
{ | ||
cvals[nvec] = -ark_mem->h * step_mem->Be->A[js][is] / step_mem->Be->b[is]; |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
This is using the form where it factors out the
https://sundials--559.org.readthedocs.build/en/559/arkode/Mathematics_link.html#equation-arkode-erk-adjoint
Co-authored-by: Steven Roberts <[email protected]>
No description provided.