Create io_singleton.f90