rninit Subroutine

private subroutine rninit(me)

Initialize the random number generator with the input seed value.

Type Bound

pikaia_class

Arguments

Type IntentOptional Attributes Name
class(pikaia_class), intent(inout) :: me

Calls

proc~~rninit~~CallsGraph proc~rninit pikaia_class%rninit none~initialize mt19937%initialize proc~rninit->none~initialize proc~init_by_array64 mt19937%init_by_array64 none~initialize->proc~init_by_array64 proc~init_genrand64 mt19937%init_genrand64 none~initialize->proc~init_genrand64 proc~init_genrand64_i4 mt19937%init_genrand64_i4 none~initialize->proc~init_genrand64_i4 proc~init_by_array64->proc~init_genrand64 proc~init_genrand64_i4->none~initialize

Called by

proc~~rninit~~CalledByGraph proc~rninit pikaia_class%rninit proc~pikaia pikaia_class%pikaia proc~pikaia->proc~rninit proc~solve_with_pikaia pikaia_class%solve_with_pikaia proc~solve_with_pikaia->proc~pikaia program~test_algen test_algen program~test_algen->proc~solve_with_pikaia

Source Code

    subroutine rninit(me)

    implicit none

    class(pikaia_class),intent(inout) :: me

    call me%rand%initialize(me%iseed)

    end subroutine rninit