From 4e03579045efec56da74b79da6d2a783ad41d283 Mon Sep 17 00:00:00 2001 From: David A Minton Date: Thu, 27 May 2021 16:10:58 -0400 Subject: [PATCH] Fixed mismatched interface --- src/modules/module_interfaces.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/modules/module_interfaces.f90 b/src/modules/module_interfaces.f90 index f543a5d6c..db2d8fa21 100644 --- a/src/modules/module_interfaces.f90 +++ b/src/modules/module_interfaces.f90 @@ -934,9 +934,9 @@ subroutine symba_frag_pos(param, symba_plA, family, x, v, L_spin, Ip, mass, radi real(DP), dimension(:,:), intent(inout) :: x, v, L_spin, Ip real(DP), dimension(:), intent(inout) :: mass, radius integer(I4B), intent(inout) :: nfrag - real(DP), dimension(:), intent(inout) :: m_frag, rad_frag - real(DP), dimension(:,:), intent(inout) :: Ip_frag - real(DP), dimension(:,:), intent(inout) :: xb_frag, vb_frag, rot_frag + real(DP), dimension(:), allocatable, intent(inout) :: m_frag, rad_frag + real(DP), dimension(:,:), allocatable, intent(inout) :: Ip_frag + real(DP), dimension(:,:), allocatable, intent(inout) :: xb_frag, vb_frag, rot_frag real(DP), intent(inout) :: Qloss logical, intent(out) :: lmerge end subroutine symba_frag_pos