Update to_csv.f90

helll craig