Create read_ptr5.f90