Changeset 37533

Timestamp:

Oct 28, 2014, 8:46:16 PM (12 years ago)

Author:

eugene

Message:

adding legendre poly

Location:

branches/eam_branches/ipp-20140904/Ohana/src/libohana

Files:

• Makefile (modified) (1 diff)
• include/gsl_utils.h (added)
• include/ohana.h (modified) (1 diff)
• src/gsl_utils.c (added)
• src/legendre.c (added)

branches/eam_branches/ipp-20140904/Ohana/src/libohana/Makefile

@@ -35 +35 @@
 $(SRC)/time.$(ARCH).o            \
 $(SRC)/gaussj.$(ARCH).o          \
+$(SRC)/legendre.$(ARCH).o        \
+$(SRC)/gsl_utils.$(ARCH).o       \
 $(SRC)/vstats.$(ARCH).o          \
 $(SRC)/config.$(ARCH).o          \

branches/eam_branches/ipp-20140904/Ohana/src/libohana/include/ohana.h

@@ -435 +435 @@
 */
 
-# endif
+
+/** gsl-based functions for legendre and related polynomials **/
+
+double ohana_gsl_sf_log_1plusx (double x, double *err);
+double ohana_gsl_sf_lnpoch(const double a, const double x, double *err);
+double ohana_gsl_lnpoch_pos (const double a, const double x, double *err);
+double ohana_gsl_pochrel_smallx(const double a, const double x, double *err);
+
+double legendre_Pl (int l, double x, double *err);
+double legendre_Plm (int l, int m, double x, double *err);
+double legendre_Plm_sphere(int l, int m, double x, double *err);
+
+# endif