Create mat_file_singleton.f90