From c841b1c20427ac620133fccacb356307c11580cb Mon Sep 17 00:00:00 2001 From: David Minton Date: Fri, 14 May 2021 17:25:15 -0400 Subject: [PATCH] Formatting --- src/modules/module_interfaces.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)