Fixed mismatched interface

MintonGroup · May 27, 2021 · 4e03579 · 4e03579
1 parent 80c2957
commit 4e03579
Showing 1 changed file with 3 additions and 3 deletions.
diff --git 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