hyperSIS_program_common_mod Module

Uses

- hyperSIS_network_mod
- hyperSIS_network_io_mod
- rndgen_mod
- hyperSIS_dynamics_mod
- hyperSIS_kinds_mod
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Interfaces

interface

public subroutine proc_net_state_gen(net, state, gen)

Arguments

Type	Intent	Optional	Attributes		Name
class(network_t),	intent(in)			::	net
class(net_state_base_t),	intent(inout)			::	state
class(rndgen),	intent(inout)			::	gen

interface

public subroutine proc_export_states(net, state, nodes_filename, edges_filename)

Arguments

Type	Intent	Optional	Attributes		Name
class(network_t),	intent(in)			::	net
class(net_state_base_t),	intent(inout)			::	state
character(len=*),	intent(in)			::	nodes_filename
character(len=*),	intent(in)			::	edges_filename

Functions

public function get_path_prefix(tmp_prefix, remove_files) result(prefix)

Build the prefix and remove old files

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	tmp_prefix
logical,	intent(in)			::	remove_files

Return Value character(len=:), allocatable

Subroutines

public subroutine check_export_nodes_and_edges_state(export_states, input_export_states)

Arguments

Type	Intent	Optional	Attributes		Name
procedure(proc_export_states),			pointer	::	export_states
logical,	intent(in)			::	input_export_states

public subroutine check_qs_method(after_dynamics_step, input_use_qs)

Check which method to use after dynamics step

Arguments

Type	Intent	Optional	Attributes		Name
procedure(proc_net_state_gen),			pointer	::	after_dynamics_step
logical,	intent(in)			::	input_use_qs

public subroutine set_dyn_params(net, dyn_params, par_b, par_theta)

Arguments

Type	Intent	Optional	Attributes		Name
class(network_t),	intent(in)			::	net
type(dyn_parameters_t),	intent(inout)			::	dyn_params
real(kind=dp),	intent(in)			::	par_b
real(kind=dp),	intent(in)			::	par_theta

public subroutine read_network(net, edges_filename)

Arguments

Type	Intent	Optional	Attributes		Name
type(network_t),	intent(inout)			::	net
character(len=*),	intent(in)			::	edges_filename

public subroutine set_initial_number_of_infected_nodes(net, inf_fraction, initial_number)

Arguments

Type	Intent	Optional	Attributes		Name
class(network_t),	intent(in)			::	net
real(kind=dp),	intent(inout)			::	inf_fraction
integer(kind=i4),	intent(inout)			::	initial_number