routerfactorymodule Module Reference

Functions/Subroutines
class(routerbasetype) function, pointer, public	create_router (sim_mode, nr_sols)
	@ Brief Create the proper router, depends on simulation mode (parallel or sequential) and type of build (with or without mpi) More...

Function/Subroutine Documentation

create_router()

class(routerbasetype) function, pointer, public routerfactorymodule::create_router	(	character(len=*)	sim_mode,
		integer(i4b)	nr_sols
	)

Parameters

sim_mode	simulation mode: SEQUENTIAL or PARALLEL
nr_sols	nr. of solutions

Returns

the router object

Definition at line 19 of file RouterFactory.F90.

    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
 

Here is the call graph for this function: