Fixed typo in unused subroutine that was preventing compiling

MintonGroup · Jun 18, 2021 · fed1f60 · fed1f60
1 parent e3d1cf3
commit fed1f60
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)