Merge pull request #22 from jacobwilliams/21-bug-fix

fixed bug in dqnc79.
jacobwilliams · Dec 16, 2022 · 7761a6e · 7761a6e
2 parents a83a344 + 022f7a4
commit 7761a6e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/quadpack_generic.F90 b/src/quadpack_generic.F90
@@ -7827,8 +7827,8 @@ subroutine dqnc79(fun,a,b,err,ans,ierr,k)
     procedure(func) :: fun !! function subprogram defining the integrand function `f(x)`.
     real(wp),intent(in) :: a !! lower limit of integration
     real(wp),intent(in) :: b !! upper limit of integration (may be less than `A`)
-    real(wp),intent(out) :: err !! a requested error tolerance.  Normally, pick a value
-                                !! `0 < ERR < 1.0e-8`.
+    real(wp),intent(in) :: err !! a requested error tolerance.  Normally, pick a value
+                               !! `0 < ERR < 1.0e-8`.
     real(wp),intent(out) :: ans !! computed value of the integral.  Hopefully, `ANS` is
                                 !! accurate to within `ERR *` integral of `ABS(FUN(X))`.
     integer,intent(out) :: ierr !! a status code: