src/IntRank2/IntDipVec.cc
// ----------------------------------------------------------------------------
//       Interactive Read of Dipole Interaction Vector From An ASCII File
// ----------------------------------------------------------------------------
Interactive Read of Dipole Interaction Vector From An ASCII File
Interactive Read of Dipole Interaction Vector From An ASCII File
string IntDipVec::ask_read(int argc, char* argv[], int argn)
  {
  string filename;				
  query_parameter(argc, argv, argn,		
   "\n\tDipolar Interaction Vector Filename? ", 
                                      filename);
  read(filename);		           	
  return filename;
  }
string IntDipVec :: ask_read ( int argc , char * argv [ ] , int argn ) { string filename ; query_parameter ( argc , argv , argn , " \n \t " , filename ) ; read ( filename ) ; return filename ; }
Interactive Read of Dipole Interaction Vector From An ASCII File
Interactive Read of Dipole Interaction Vector From An ASCII File
// Input		IDV    : Dipole interaction vector (this) //                      argc    : Number of arguments //                      argv    : Vector of argc arguments //                      argn    : Argument index // Output               void    : The parameter argn of array argc //                                is used to supply a filename //                                from which the spin system is read //                                If the argument argn is not in argv, //                                the user is asked to supply a filename // Note                         : The file should be an ASCII file //                                containing recognized sys parameters // Note                         : The spin system is modifed (filled) // Name of spin system file   // Get filename from command // Read system from filename