get_registry.F90 Source File

#include "MAPL_Generic.h"

submodule (mapl3g_OuterMetaComponent) get_registry_smod
   implicit none

contains

   module function get_registry(this) result(registry)
      type(StateRegistry), pointer :: registry
      class(OuterMetaComponent), target, intent(in) :: this

      registry => this%registry
   end function get_registry


end submodule get_registry_smod