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