src/IntRank2/IntQuadVec.cc
// ----------------------------------------------------------------------------
//     Output Quadrupolar Interaction Vector To ASCII From A Parmeter Set
// ----------------------------------------------------------------------------
Output Quadrupolar Interaction Vector To ASCII From A Parmeter Set
Output Quadrupolar Interaction Vector To ASCII From A Parmeter Set
int IntQuadVec::write(const string &filename, int idx, int warn) const
  {
  if(!size()) return 1;
  ofstream ofstr(filename.c_str());	
  int w2 = 0;                           
  if(warn) w2 = 1;
  if(!write(ofstr, idx, w2))		
    {
    IQVerror(1, filename, 1);		
    if(warn>1) IQVfatality(20);		
    return 0;
    }
  ofstr.close();                        
  return 1;
  }
int IntQuadVec :: write ( const string & filename , int idx , int warn ) const { if ( ! size ( ) ) return 1 ; ofstream ofstr ( filename . c_str ( ) ) ; int w2 = 0 ; if ( warn ) w2 = 1 ; if ( ! write ( ofstr , idx , w2 ) ) { IQVerror ( 1 , filename , 1 ) ; if ( warn > 1 ) IQVfatality ( 20 ) ; return 0 ; } ofstr . close ( ) ; return 1 ; }
Output Quadrupolar Interaction Vector To ASCII From A Parmeter Set
Output Quadrupolar Interaction Vector To ASCII From A Parmeter Set
// Input		IQV   	: Quadrupolar interaction vector (this) //			filename: Output file name //                      idx	: Parameter index value used for //				  prefix [#] in output names //                      warn    : Warning level // Output		none 	: Quadrupolar interaction vector is written //				  as a parameter set to file filename // Open filename for input // Added warning level // If file bad then exit // Filename problems // Fatal error // Close it now