random fortran code