From 9b08f2f095a07a668e918d73d9fe78326e6817b0 Mon Sep 17 00:00:00 2001
From: Tom Clune <thomas.l.clune@nasa.gov>
Date: Mon, 17 Jun 2024 09:45:21 -0400
Subject: [PATCH] Fixes #2872

---
 generic3g/OuterMetaComponent.F90 | 18 ++++++++----------
 1 file changed, 8 insertions(+), 10 deletions(-)

diff --git a/generic3g/OuterMetaComponent.F90 b/generic3g/OuterMetaComponent.F90
index a0d159ec7973..3189540ca4b4 100644
--- a/generic3g/OuterMetaComponent.F90
+++ b/generic3g/OuterMetaComponent.F90
@@ -136,7 +136,14 @@ module mapl3g_OuterMetaComponent
 
    character(len=*), parameter :: OUTER_META_PRIVATE_STATE = "MAPL::OuterMetaComponent::private"
 
-
+   abstract interface
+      subroutine I_child_op(this, child_meta, rc)
+         import OuterMetaComponent
+         class(OuterMetaComponent), target, intent(inout) :: this
+         type(OuterMetaComponent), target, intent(inout) :: child_meta
+         integer, optional, intent(out) :: rc
+      end subroutine I_child_Op
+   end interface
 
    ! Submodule interfaces
    interface
@@ -404,15 +411,6 @@ end subroutine set_entry_point
    end interface OuterMetaComponent
 
 
-   abstract interface
-      subroutine I_child_op(this, child_meta, rc)
-         import OuterMetaComponent
-         class(OuterMetaComponent), target, intent(inout) :: this
-         type(OuterMetaComponent), target, intent(inout) :: child_meta
-         integer, optional, intent(out) :: rc
-      end subroutine I_child_Op
-   end interface
-
    interface recurse
       module procedure recurse_
    end interface recurse