integer         ior,iow
      common /iofile/ ior,iow