logical mcfio_out
      integer ostr_in,ostr_out
      character*256 mcf_file_out
      common/mcp_mcfio1/
     * mcfio_out,ostr_in(2),ostr_out,
     * mcf_file_out