From b13ff694f6688506af6f05e702204239bd997ecc Mon Sep 17 00:00:00 2001 From: David Minton Date: Fri, 21 May 2021 14:42:26 -0400 Subject: [PATCH] Fixed mismatched interfaces for real this time --- src/symba/symba_frag_pos.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/symba/symba_frag_pos.f90 b/src/symba/symba_frag_pos.f90 index 760ec0e5a..9264fe8a7 100644 --- a/src/symba/symba_frag_pos.f90 +++ b/src/symba/symba_frag_pos.f90 @@ -93,7 +93,7 @@ end function ke_objective_func_eval end module symba_frag_pos_lambda_implementation subroutine symba_frag_pos (param, symba_plA, family, x, v, L_spin, Ip, mass, radius, & - nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, lmerge, Qloss) + nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lmerge) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Places the collision fragments on a circle oriented with a plane defined