src/IntRank2/IntCSA.cc
// ---------------------------------------------------------------------------- 
//               Interactive Ask For All Kinds Interaction Info 
// ---------------------------------------------------------------------------- 
Interactive Ask For All Kinds Interaction Info
Interactive Ask For All Kinds Interaction Info
void IntCSA::ask(int argc, char* argv[], int& qn, double& CI,
            double& Csa, double& Ceta, double& Ctheta, double& Cphi, int Cflag)
  {                                                                   
  query_parameter(argc, argv, qn++,                     
    "\n\tI Spin Quantum Value (0.5, 1, 1.5, ..)? ", CI);
  query_parameter(argc, argv, qn++,                     
                   "\n\tShift Anisotropy(PPM)? ", Csa);
  query_parameter(argc, argv, qn++,                     
  "\n\tOrientation Down From PAS z [0, 180]? ", Ctheta);
  query_parameter(argc, argv, qn++,                     
   "\n\tOrientation Over From PAS x [0, 360]? ", Cphi);
  if(Cflag)
    query_parameter(argc, argv, qn++,                   
           "\n\tInteraction Asymmetry [0, 1]? ", Ceta);
  else Ceta = 0;
  }
void IntCSA :: ask ( int argc , char * argv [ ] , int & qn , double & CI , double & Csa , double & Ceta , double & Ctheta , double & Cphi , int Cflag ) { query_parameter ( argc , argv , qn ++ , " \n \t " , CI ) ; query_parameter ( argc , argv , qn ++ , " \n \t " , Csa ) ; query_parameter ( argc , argv , qn ++ , " \n \t " , Ctheta ) ; query_parameter ( argc , argv , qn ++ , " \n \t " , Cphi ) ; if ( Cflag ) query_parameter ( argc , argv , qn ++ , " \n \t " , Ceta ) ; else Ceta = 0 ; }
Interactive Ask For All Kinds Interaction Info
Interactive Ask For All Kinds Interaction Info
// Input                SA      : CSA interaction (this) //                      argc    : Number of arguments //                      argv    : Array of arguments //                      qn      : Query value //                      CI      : Spin quantum number //                      Csa     : Shift anisotropy (PPM) //                      Ceta    : SA asymmetry //                      Ctheta  : SA orientation angle //                      Cphi    : SA orientation angle //                      Cflag   : Flag is eta is requested // Output               none    : The values of qn, I, Csa, Ceta, //                                Ctheta, and Cphi are set herein // Note                         : This is INTERACTIVE! // Note                         : This does NOT construct SA! // Read in the I value // Read the anisotropy // Read in theta angle // Read in phi angle // Read in asymmetry