Skip to content
This repository was archived by the owner on Aug 28, 2024. It is now read-only.

Commit

Permalink
Formatting
Browse files Browse the repository at this point in the history
  • Loading branch information
daminton committed May 14, 2021
1 parent fd19724 commit c841b1c
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions src/modules/module_interfaces.f90
Original file line number Diff line number Diff line change
Expand Up @@ -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)
Expand Down

0 comments on commit c841b1c

Please sign in to comment.