public function spanning_probability(p, L, num_samples)
Calculate the probability of having a spanning/percolating cluster, given
a system size L and probability for a site to have transport p.
Arguments
Type
Intent
Optional
Attributes
Name
real(kind=dp),
intent(in)
::
p
Probability for a site to allow transport.
integer,
intent(in)
::
L
Size of the system.
integer,
intent(in)
::
num_samples
Number of Monte Carlo samples.
Return Value real(kind=dp)
The probability of having a percolating cluster, calculated as the number
of times a percolating cluster is found, divided by the number of attempts
(num_samples).
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.