write_data()

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

write test data

Examples:

tests/fortraniotest.cc.

Definition at line 139 of file fortraniotest.cc.

References tfxx::fortranio::FortranBinOutput::end_block(), tfxx::ioswap::file_magic_write(), and mymagic.

Referenced by main().

{
  if (verbose) cout << "write data to \'" << name << "\'" << endl;
  std::ofstream os(name.c_str());
  tfxx::ioswap::file_magic_write(os, mymagic, true);

  tfxx::fortranio::FortranBinOutput fo(os);
  const int nval=10;
  fo << nval;
  cout << "nval: " << nval << endl;
  for (int i=0; i<nval; i++)
  { 
    int val1=(i+1)*4;
    int val2=100*val1;
    fo << val1 << val2; 
    cout << "  val1/2: " << val1 << ", " << val2 << endl;
  }
  fo.end_block();
  for (int i=0; i<nval; i++)
  { 
    double val=(i+1)*15.; 
    cout << "  val: " << val << endl;
    fo << val; 
  }
  fo.end_block();
  long long int llint=1551;
  long int lint=2662;
  std::complex<double> dcplx(4.5,5.4);
  std::complex<float> scplx(14.5,15.4);
  fo << 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: