random_init in Fortran Wiki