src/IntRank2/CoordFrame.cc
/* These functions try and set a coordinate frame from parameters found in
   a particular parameter set.  The initial and final axes names are input as

                 CoordFrmi  (2) : AxesName - Initial Coordinate Axes
                 CoordFrmf  (2) : AxesName - Final Coordinate Axes

   and individual obect rotations are defined by the Euler angles that take the
   final frame (associated with this coordinate frame) into the initial frame.

              FrmRot(#)  (3) : ( alpha, beta, gamma) - Axesf Into Axesi

   where the # is used to indicate the object that uses the rotation.

           Input        CFrm    : Coordinate Frame (this)
                        pset    : A parameter set
                        pfx     : Prefix on rotation parameters
                        warn    : Warning level
                                    0 - no warnings
                                    1 - warnings
                                   >1 - fatal warnings
       Output           TF      : Coordinate Frame is set
                                  from parameters in pset                    */
These functions try and set a coordinate frame from parameters found in
a particular parameter set.  The initial and final axes names are input as

CoordFrmi  (2) : AxesName - Initial Coordinate Axes
CoordFrmf  (2) : AxesName - Final Coordinate Axes

and individual obect rotations are defined by the Euler angles that take the
final frame (associated with this coordinate frame) into the initial frame.

FrmRot(#)  (3) : ( alpha, beta, gamma) - Axesf Into Axesi




These functions try and set a coordinate frame from parameters found in a particular parameter set . The initial and final axes names are input as CoordFrmi ( 2 ) : AxesName - Initial Coordinate Axes CoordFrmf ( 2 ) : AxesName - Final Coordinate Axes and individual obect rotations are defined by the Euler angles that take the final frame ( associated with this coordinate frame ) into the initial frame . FrmRot ( # ) ( 3 ) : ( alpha beta gamma ) - Axesf Into Axesi
bool CoordFrame::SetCoordFrm(const ParameterSet& pset, int pfx, int warn)
  {
  ParameterSet  subpset;                        
  if(pfx != -1) subpset = pset.strip(pfx);      
  else          subpset = pset;                 
  EAs.clear();					
  int i=0;					
  while(SetRotation(subpset, i)) { i++; }	
  if(!size())					
    {						
    CFRerror(11, 1);				
    if(warn>1) CFRfatal(12);			
    else       CFRerror(12, 1);
    }
  return false;
  }
bool CoordFrame :: SetCoordFrm ( const ParameterSet & pset , int pfx , int warn ) { ParameterSet subpset ; if ( pfx != -1 ) subpset = pset . strip ( pfx ) ; else subpset = pset ; EAs . clear ( ) ; int i = 0 ; while ( SetRotation ( subpset , i ) ) { i ++ ; } if ( ! size ( ) ) { CFRerror ( 11 , 1 ) ; if ( warn > 1 ) CFRfatal ( 12 ) ; else CFRerror ( 12 , 1 ) ; } return false ; }
These functions try and set a coordinate frame from parameters found in
a particular parameter set.
These functions try and set a coordinate frame from parameters found in a particular parameter set .
// Copy parameter set // to glean out those for // the specified prefix only // Remove all Euler angles // Temporary rotation index // Read successive rotations // If we found some, set the // as desired, perhaps stop //   Cant set any rotations //   Insufficient parameters