From fed1f603448fe23c53ae35ef012a00158a4c39ea Mon Sep 17 00:00:00 2001 From: David A Minton Date: Fri, 18 Jun 2021 16:05:43 -0400 Subject: [PATCH] Fixed typo in unused subroutine that was preventing compiling --- src/symba/symba_collision.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/symba/symba_collision.f90 b/src/symba/symba_collision.f90 index 9f29859cc..1f614d54a 100644 --- a/src/symba/symba_collision.f90 +++ b/src/symba/symba_collision.f90 @@ -333,7 +333,7 @@ subroutine vector_adjust(mass, radius, x, v) vmag = 2 * sqrt((0.5_DP * vmag0**2 * mrat + mass(1) * mass(2) * (1.0_DP / rmag - 1.0_DP / rmag0)) / mrat) ! Use conservation of angular momentum to get the new impact parameter - call util_cross_product(x(:), v(:), h0(:)) + call util_crossproduct(x(:), v(:), h0(:)) B = norm2(h0) / (rmag * vmag)