t_random Interface

public interface t_random

Module Procedures

private function t_random_initialize(zseed) result(self)

Create the t_random object with a seed value zseed. If zseed=0, a new seed is generated based on system_clock values.

Call as:

 type( t_random ), pointer :: rnd
 integer :: zseed

 ! with specified value for zseed:
 rnd => t_random( zseed )

 ! or without zseed (this is equivalent to zseed=0)
 rnd => t_random()

Arguments

Type IntentOptional Attributes Name
integer, intent(in), optional :: zseed

if not present, new seed is generated

Return Value type(t_random), pointer