Function Hosten_Sturmfels

IntegerProgramming/IP_algorithms.cc:1224–1623

int Hosten_Sturmfels(INPUT_FILE MATRIX,
                     const int& version,
                     const int& S_pair_criteria,
                     const float& interred_percentage,
                     const BOOLEAN& verbose)
{


/////////////////////////// input /////////////////////////////////////////

  char format_string[128]; // to verify file format
  int constraints;       // number of equality constraints
  int variables;         // number of variables

  ifstream input(MATRIX);

  // verfifie existence of file

  if(!input)
  {
    cerr<<"ERROR: int Hosten_Sturmfels(INPUT_FILE, const BOOLEAN&):\n"
      "cannot read from input file, possibly not found"<<endl;
    return 0;
  }

  // read format specification

  input>>format_string;

  if(!input)
  {
    cerr<<"ERROR: int Hosten_Sturmfels(INPUT_FILE, const BOOLEAN&):\n"
      "input failure when reading format specification,\n"
      "input format not accepted"<<endl;
    return 0;
  }

  if(strcmp(format_string,"MATRIX"))
    cerr<<"Warning: int Hosten_Sturmfels(INPUT_FILE, const BOOLEAN&):\n"
      "input file has suspicious format"<<endl;

  // read number of variables

  input>>format_string;

  if(!input)
  {
    cerr<<"ERROR: int Hosten_Sturmfels(INPUT_FILE, const BOOLEAN&):\n"
      "input failure before reading number of variables / matrix columns,\n"
      "input format not accepted"<<endl;
    return 0;
  }

  if(strcmp(format_string,"columns:"))
    cerr<<"WARNING: int Hosten_Sturmfels(INPUT_FILE, const BOOLEAN&):\n"
      "input file has suspicious format"<<endl;

  input>>variables;