added module random.f90 and subroutine white_noise