Skip to content

Commit 031ecf7

Browse files
committed
revise case (6) comment in simps_x_*
1 parent 655693e commit 031ecf7

File tree

1 file changed

+1
-1
lines changed

1 file changed

+1
-1
lines changed

src/stdlib_experimental_quadrature_simps.fypp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -116,7 +116,7 @@ contains
116116
integral = a*y(1) + b*y(2) + c*y(3)
117117
case (4)
118118
integral = simps38(y, x)
119-
! case (6) unneeded?
119+
! case (6) unneeded; handled by default
120120
case default
121121
if (mod(n, 2) == 1) then
122122
integral = 0.0_${k1}$

0 commit comments

Comments
 (0)