Create grd_read.f90