diff --git a/src/modules/module_interfaces.f90 b/src/modules/module_interfaces.f90 index 43553ce56..aa4d9704b 100644 --- a/src/modules/module_interfaces.f90 +++ b/src/modules/module_interfaces.f90 @@ -1572,11 +1572,11 @@ FUNCTION util_kahan_sum(xsum_current, xi, xerror) function util_solve_linear_system(A,b,n,lerr) result(x) use swiftest_globals implicit none - real(DP), dimension(:,:), intent(in) :: A - real(DP), dimension(:), intent(in) :: b - integer(I4B), intent(in) :: n + real(DP), dimension(:,:), intent(in) :: A + real(DP), dimension(:), intent(in) :: b + integer(I4B), intent(in) :: n logical, intent(out) :: lerr - real(DP), dimension(n) :: x + real(DP), dimension(n) :: x end function util_solve_linear_system function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1)