From 022f7a4eff4f6c6a40f7f8b52ba8186e2639051e Mon Sep 17 00:00:00 2001 From: Jacob Williams Date: Fri, 16 Dec 2022 10:53:06 -0600 Subject: [PATCH] fixed bug in dqnc79. err argument should be intent(in) --- src/quadpack_generic.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/quadpack_generic.F90 b/src/quadpack_generic.F90 index 131126e..1f57bfd 100644 --- 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: