Changeset 2640 in Sophya

Timestamp:

Dec 2, 2004, 5:37:51 PM (21 years ago)

Author:

cmv

Message:

gain de precision a petit theta cmv 02/12/04

Location:

trunk/SophyaLib/Samba

Files:

• harmspher.cc (modified) (1 diff)
• harmspher.h (modified) (1 diff)

trunk/SophyaLib/Samba/harmspher.cc

@@ -39 +39 @@
 ----------------------------------------------------------------
 */
-
-double HarmSph_array(int lmax,int m,double x,double *xlm)
-{
- if(x>1.) x=1.; else if(x<-1.) x=-1.;
- return HarmSph_array_teta(lmax,m,acos(x),xlm);
-}
 
 double HarmSph_array_teta(int lmax,int m,double teta,double *xlm)

trunk/SophyaLib/Samba/harmspher.h

@@ -2 +2 @@
 #define HARMSPHER_SEEN
 
-double HarmSph_array(int lmax,int m,double x,double *xlm);
 double HarmSph_array_teta(int lmax,int m,double teta,double *xlm);
 
+inline double HarmSph_array(int lmax,int m,double x,double *xlm)
+  {
+  if(x>1.) x=1.; else if(x<-1.) x=-1.;
+  return HarmSph_array_teta(lmax,m,acos(x),xlm);
+  }
+
 #endif