Skip to content
Merged
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
7 changes: 3 additions & 4 deletions include/xsf/amos/amos.h
Original file line number Diff line number Diff line change
Expand Up @@ -1140,7 +1140,7 @@ namespace amos {
return nz;
}
ck = std::exp(cz);
for (int i = 0; i < (nn + 1); i++) {
for (int i = 0; i < nn; i++) {

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

y[i] *= ck;
}
/* 90 */
Expand Down Expand Up @@ -5622,7 +5622,7 @@ namespace amos {
return -1;
}
nz = n;
for (i = 0; i < (n + 1); i++) {
for (i = 0; i < n; i++) {

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

y[i] = 0.0;
}
return nz;
Expand Down Expand Up @@ -6067,8 +6067,7 @@ namespace amos {
// REFINE ESTIMATE AND TEST
//
aphi = std::abs(phid);
aarg = std::abs(argd);
rs1 += std::log(aphi) - 0.25 * std::log(aarg) - aic;
rs1 += std::log(aphi);

Copy link
Copy Markdown
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

if (std::fabs(rs1) < elim) {
goto L120;
}
Expand Down
Loading