src/IntRank2/IntCSA.cc
/* These functions write the CSA interaction into an ASCII file in GAMMA
   Parameter Set format.  That is, the resulting ASCII file may be read into
   any GAMMA program to create a CSA interaction identical to that written. 

        // Input                SA	: Shift anisotropy interaction
        //                      filename: Output file name
        //                  or  ofstr   : Output file stream
        //                      idx     : Interaction index (default -1)
        //                      pfx     : Interaction 2nd indx (def -1)
        //                      warn    : Warning level
        // Output               none    : Interaction is written as a
        //                                parameter set to file filename
	//				  or into output file stream ofstr   */
These functions write the CSA interaction into an ASCII file in GAMMA
Parameter Set format.  That is, the resulting ASCII file may be read into
any GAMMA program to create a CSA interaction identical to that written.


These functions write the CSA interaction into an ASCII file in GAMMA Parameter Set format . That is the resulting ASCII file may be read into any GAMMA program to create a CSA interaction identical to that written .
int IntCSA::write(const string &filename, int idx, int pfx, int warn) const
  {
  ofstream ofstr(filename.c_str());	
  int w2 = 0;                           
  if(warn) w2 = 1;
  if(!write(ofstr, idx, pfx, w2))       
    {
    ICerror(1, filename, 1);		
    if(warn>1) ICfatal(20);		
    return 0;
    }
  ofstr.close();                        
  return 1;
  }
int IntCSA :: write ( const string & filename , int idx , int pfx , int warn ) const { ofstream ofstr ( filename . c_str ( ) ) ; int w2 = 0 ; if ( warn ) w2 = 1 ; if ( ! write ( ofstr , idx , pfx , w2 ) ) { ICerror ( 1 , filename , 1 ) ; if ( warn > 1 ) ICfatal ( 20 ) ; return 0 ; } ofstr . close ( ) ; return 1 ; }
These functions write the CSA interaction into an ASCII file in GAMMA
Parameter Set format.
These functions write the CSA interaction into an ASCII file in GAMMA Parameter Set format .
// Open filename for input // Added warning level // If file bad then exit // Filename problems // Fatal error // Close it now