read_data()

void read_data	(	const std::string &	name,
		const bool &	verbose = false
	)

read test data

Examples:

tests/fortraniotest.cc.

Definition at line 176 of file fortraniotest.cc.

References tfxx::ioswap::file_magic_test(), tfxx::ioswap::magic_match, tfxx::ioswap::magic_nomatch, tfxx::ioswap::magic_swap, and mymagic.

Referenced by main().

{
  if (verbose) cout << "read data from \'" << name << "\'" << endl;
  std::ifstream is(name.c_str());
  tfxx::ioswap::Emagic_type 
    match=tfxx::ioswap::file_magic_test(is, mymagic, true);
  if (verbose) {
    switch(match) {
      case tfxx::ioswap::magic_match:
        cout << "Bytesex matches" << endl;
        break;
      case tfxx::ioswap::magic_swap:
        cout << "Magic number found, byte data has to be swapped" << endl;
        break;
      case tfxx::ioswap::magic_nomatch:
        cout << "Magic number not found" << endl;
        break;
      default:
        cerr << "ERROR: illegal return value from " <<
          "tfxx::ioswap::file_magic_test()" << endl;
        break;
    }
  }
  if ((match==tfxx::ioswap::magic_match)
      || (match==tfxx::ioswap::magic_swap))
  {
    tfxx::fortranio::FortranBinInput fi(is, (match==tfxx::ioswap::magic_swap));
    int nval;
    fi >> nval;
    cout << "nval: " << nval << endl;
    for (int i=0; i<nval; i++)
    { 
      int val1,val2;
      fi >> val1 >> val2; 
      cout << "  val1/2: " << val1 << ", " << val2 << endl;
    }
    for (int i=0; i<nval; i++)
    { 
      double val;
      fi >> val; 
      cout << "  val: " << val << endl;
    }
    long long int llint;
    long int lint;
    std::complex<double> dcplx;
    std::complex<float> scplx;
    fi >> llint >> lint >> dcplx >> scplx;
    cout << "extra: " << llint << ", " << lint << ", " 
      << dcplx << ", " << scplx << endl;;
  }
}

Here is the call graph for this function:

Here is the caller graph for this function: