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