RouterFactory.F90

Go to the documentation of this file.

module routerfactorymodule
  use kindmodule, only: i4b
  use routerbasemodule
  use serialroutermodule, only: create_serial_router
#if defined(__WITH_MPI__)
  use mpiroutermodule, only: create_mpi_router
#endif
  implicit none
  private
 
  public :: create_router
 
contains
 
  !> @ Brief Create the proper router, depends on
  !! simulation mode (parallel or sequential) and type
  !! of build (with or without mpi)
  !<
  function create_router(sim_mode, nr_sols) result(router)
    character(len=*) :: sim_mode !< simulation mode: SEQUENTIAL or PARALLEL
    integer(I4B) :: nr_sols !< nr. of solutions
    class(routerbasetype), pointer :: router !< the router object
 
    if (sim_mode == 'SEQUENTIAL') then
      router => create_serial_router()
      router%nr_virt_solutions = nr_sols
#if defined(__WITH_MPI__)
    else if (sim_mode == 'PARALLEL') then
      router => create_mpi_router()
      router%nr_virt_solutions = nr_sols
#endif
    else
      router => null()
    end if
 
  end function create_router
 
end module routerfactorymodule