added ran num gen to init.f