Create ran1.f90