source: Sophya/trunk/SophyaLib/Samba/harmspher.h@ 4018

Last change on this file since 4018 was 2640, checked in by cmv, 21 years ago

gain de precision a petit theta cmv 02/12/04
File size: 284 bytes
Line 
1#ifndef HARMSPHER_SEEN
2#define HARMSPHER_SEEN
3
4double HarmSph_array_teta(int lmax,int m,double teta,double *xlm);
5
6inline double HarmSph_array(int lmax,int m,double x,double *xlm)
7 {
8 if(x>1.) x=1.; else if(x<-1.) x=-1.;
9 return HarmSph_array_teta(lmax,m,acos(x),xlm);
10 }
11
12#endif
Note: See TracBrowser for help on using the repository browser.