MockServer.F90 Source File


This file depends on

sourcefile~~mockserver.f90~~EfferentGraph sourcefile~mockserver.f90 MockServer.F90 sourcefile~abstractdatareference.f90 AbstractDataReference.F90 sourcefile~mockserver.f90->sourcefile~abstractdatareference.f90 sourcefile~baseserver.f90 BaseServer.F90 sourcefile~mockserver.f90->sourcefile~baseserver.f90 sourcefile~mapl_exceptionhandling.f90 MAPL_ExceptionHandling.F90 sourcefile~abstractdatareference.f90->sourcefile~mapl_exceptionhandling.f90 sourcefile~pfio_constants.f90 pFIO_Constants.F90 sourcefile~abstractdatareference.f90->sourcefile~pfio_constants.f90 sourcefile~pfio_utilities.f90 pFIO_Utilities.F90 sourcefile~abstractdatareference.f90->sourcefile~pfio_utilities.f90 sourcefile~baseserver.f90->sourcefile~abstractdatareference.f90 sourcefile~abstractdatamessage.f90 AbstractDataMessage.F90 sourcefile~baseserver.f90->sourcefile~abstractdatamessage.f90 sourcefile~abstractmessage.f90 AbstractMessage.F90 sourcefile~baseserver.f90->sourcefile~abstractmessage.f90 sourcefile~abstractserver.f90 AbstractServer.F90 sourcefile~baseserver.f90->sourcefile~abstractserver.f90 sourcefile~abstractsocket.f90 AbstractSocket.F90 sourcefile~baseserver.f90->sourcefile~abstractsocket.f90 sourcefile~abstractsocketvector.f90 AbstractSocketVector.F90 sourcefile~baseserver.f90->sourcefile~abstractsocketvector.f90 sourcefile~collectivestagedatamessage.f90 CollectiveStageDataMessage.F90 sourcefile~baseserver.f90->sourcefile~collectivestagedatamessage.f90 sourcefile~donemessage.f90 DoneMessage.F90 sourcefile~baseserver.f90->sourcefile~donemessage.f90 sourcefile~dummymessage.f90 DummyMessage.F90 sourcefile~baseserver.f90->sourcefile~dummymessage.f90 sourcefile~baseserver.f90->sourcefile~mapl_exceptionhandling.f90 sourcefile~messagevector.f90 MessageVector.F90 sourcefile~baseserver.f90->sourcefile~messagevector.f90 sourcefile~mpisocket.f90 MpiSocket.F90 sourcefile~baseserver.f90->sourcefile~mpisocket.f90 sourcefile~baseserver.f90->sourcefile~pfio_constants.f90 sourcefile~baseserver.f90->sourcefile~pfio_utilities.f90 sourcefile~rdmareference.f90 RDMAReference.F90 sourcefile~baseserver.f90->sourcefile~rdmareference.f90 sourcefile~serverthread.f90 ServerThread.F90 sourcefile~baseserver.f90->sourcefile~serverthread.f90 sourcefile~serverthreadvector.f90 ServerThreadVector.F90 sourcefile~baseserver.f90->sourcefile~serverthreadvector.f90 sourcefile~shmemreference.f90 ShmemReference.F90 sourcefile~baseserver.f90->sourcefile~shmemreference.f90 sourcefile~simplesocket.f90 SimpleSocket.F90 sourcefile~baseserver.f90->sourcefile~simplesocket.f90

Files dependent on this one

sourcefile~~mockserver.f90~~AfferentGraph sourcefile~mockserver.f90 MockServer.F90 sourcefile~test_directoryservice.pf Test_DirectoryService.pf sourcefile~test_directoryservice.pf->sourcefile~mockserver.f90 sourcefile~test_serverthread.pf Test_ServerThread.pf sourcefile~test_serverthread.pf->sourcefile~mockserver.f90

Source Code

#include "unused_dummy.H"
module MockServerMod

   use pFIO_BaseServerMod
   use pFIO_AbstractDataReferenceMod

   implicit none
   private

   public :: MockServer

   type,extends (BaseServer) :: MockServer
      character(len=16) :: port_name
   contains
      procedure :: start
   end type MockServer


   interface MockServer
      module procedure new_MockServer
   end interface MockServer


contains

   function new_MockServer(comm) result(s)
      type (MockServer) :: s
      integer, optional, intent(in) :: comm

      if (present(comm)) s%comm = comm
      allocate(s%serverthread_done_msgs(1))
      s%serverthread_done_msgs(:) = .true.

   end function new_MockServer

   subroutine start(this, rc)
      class (MockServer),target, intent(inout) :: this
      integer, optional, intent(out) :: rc
   end subroutine

end module MockServerMod