DistributedMeterNode.F90 Source File


Source Code

module MAP_DistributedMeterNode
   implicit none
   private

   public :: DistributedMeterNode


   interface DistributedMeterNode
      module procedure new_DistributedMeterNode
   end interface DistributedMeterNode


contains


   function new_DistributedMeterNode(meter_node, comm) result(distributed_meter_node)
      class (AbstractMeterNode), intent(in) :: meter_node
      integer, intent(in) :: comm ! mpi _communicator

   end function new_DistributedMeterNode
   
end module MAP_DistributedMeterNode