From cd7bb38c24a840fd78757a1d9fe3b2a750258134 Mon Sep 17 00:00:00 2001 From: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com> Date: Sun, 6 Feb 2022 17:04:57 +0100 Subject: [PATCH] Fix typo Co-authored-by: Ivan Pribec --- src/minpack.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/minpack.f90 b/src/minpack.f90 index 513655f..562d886 100644 --- a/src/minpack.f90 +++ b/src/minpack.f90 @@ -97,7 +97,7 @@ subroutine fcn_lmstr(m, n, x, fvec, fjrow, iflag) !! the value of iflag should not be changed by fcn unless !! the user wants to terminate execution of lmstr. !! in this case set iflag to a negative integer. - real(wp), intent(in) :: x(n) !! independant variable vector + real(wp), intent(in) :: x(n) !! independent variable vector real(wp), intent(inout) :: fvec(m) !! value of function at `x` real(wp), intent(inout) :: fjrow(n) !! jacobian row end subroutine fcn_lmstr