init_constant_random Subroutine

public subroutine init_constant_random()

Arguments

None

Contents

Source Code


Source Code

  subroutine init_constant_random
    allocate(random_array(10000))
    call set_random_array
    counter = 0
  end subroutine init_constant_random