src/Level1/SpaceT.cc
// Case l=0 no longer supported *** remove eventually
Case l=0 no longer supported *** remove eventually
Case l = 0 no longer supported *** remove eventually
complex A1(double x, double y, double z, int m, int l)
{
  complex c;
  switch (l)
    {
    case 0:
      c = A10(m);			
      break;				
    case 1:
      c = A11(x, y, z, m);		
      break;				
    default:
      space_T_error(0);
      cout << " 0," << m << "\n";
      break;
    }
  return c;				
}
complex A1 ( double x , double y , double z , int m , int l ) { complex c ; switch ( l ) { case 0 : c = A10 ( m ) ; break ; case 1 : c = A11 ( x , y , z , m ) ; break ; default : space_T_error ( 0 ) ; cout << " " << m << " \n " ; break ; } return c ; }
Case l=0 no longer supported *** remove eventually
Case l = 0 no longer supported *** remove eventually
//return c; // Input		x : Cartesian x component // 			y : Cartesian y component // 			z : Cartesian z component // 			m : Tensor component // Output		c : Spatial Tensor component for //			    Cartesian vector specified // A  from A , A , and A //  00      x   y       z // A  , A  , A    from A , A , and A //  11   10   1-1       x   y       z // Return c