src/Level1/SpaceT.cc
// ____________________________________________________________________________
// ii                   SPACE TENSOR PRIVATE AUXILIARY FUNCTIONS
// ____________________________________________________________________________
ii                   SPACE TENSOR PRIVATE AUXILIARY FUNCTIONS
ii SPACE TENSOR PRIVATE AUXILIARY FUNCTIONS
void space_T::updatePAS()
  {
  double Aiso=0;
  double delzz=0;
  double eta=0;
  if(vx[0])				
    { 					
    complex A00 = (*(vx[0]))(0);
    Aiso = -zRe(A00)/sqrt(3.0);
    }
  if(vx[2])				
    { 					
    complex A20 = (*(vx[2]))(2);
    complex A22 = (*(vx[2]))(4);
    delzz = zRe(A20)/sqrt(1.5);
    eta   = zRe(A22)/(0.5*delzz);
    }
  PAS = coord(Aiso, delzz, eta);
  return;	
  }
void space_T :: updatePAS ( ) { double Aiso = 0 ; double delzz = 0 ; double eta = 0 ; if ( vx [ 0 ] ) { complex A00 = ( * ( vx [ 0 ] ) ) ( 0 ) ; Aiso = - zRe ( A00 ) / sqrt ( 3.0 ) ; } if ( vx [ 2 ] ) { complex A20 = ( * ( vx [ 2 ] ) ) ( 2 ) ; complex A22 = ( * ( vx [ 2 ] ) ) ( 4 ) ; delzz = zRe ( A20 ) / sqrt ( 1.5 ) ; eta = zRe ( A22 ) / ( 0.5 * delzz ) ; } PAS = coord ( Aiso , delzz , eta ) ; return ; }
____________________________________________________________________________
ii                   SPACE TENSOR PRIVATE AUXILIARY FUNCTIONS
____________________________________________________________________________
____________________________________________________________________________ ii SPACE TENSOR PRIVATE AUXILIARY FUNCTIONS ____________________________________________________________________________
// Input                SphT : Spatial tensor (this) // Output               none : The interal PAS values are set  // Note			     : Assumes that changes to A   must be //			       relfected in PAS         l,m  // See if A   value exists //         00 // See if A   values exists //         2m