Changeset 2640 in Sophya for trunk/SophyaLib/Samba/harmspher.h

Timestamp:

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

Author:

cmv

Message:

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

File:

• trunk/SophyaLib/Samba/harmspher.h (modified) (1 diff)

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