rename

jkennel · Sep 18, 2023 · 4e4cd11 · 4e4cd11
1 parent d8e69cc
commit 4e4cd11
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 10 deletions.
diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -25,8 +25,8 @@ log_factorial <- function(x) {
     .Call(`_earthtide_log_factorial`, x)
 }
 
-scale_legendre_bh <- function(l, m) {
-    .Call(`_earthtide_scale_legendre_bh`, l, m)
+scale_legendre <- function(l, m) {
+    .Call(`_earthtide_scale_legendre`, l, m)
 }
 
 legendre_cpp <- function(l, m, x) {

diff --git a/src/RcppExports.cpp b/src/RcppExports.cpp
@@ -83,15 +83,15 @@ BEGIN_RCPP
     return rcpp_result_gen;
 END_RCPP
 }
-// scale_legendre_bh
-double scale_legendre_bh(int l, int m);
-RcppExport SEXP _earthtide_scale_legendre_bh(SEXP lSEXP, SEXP mSEXP) {
+// scale_legendre
+double scale_legendre(int l, int m);
+RcppExport SEXP _earthtide_scale_legendre(SEXP lSEXP, SEXP mSEXP) {
 BEGIN_RCPP
     Rcpp::RObject rcpp_result_gen;
     Rcpp::RNGScope rcpp_rngScope_gen;
     Rcpp::traits::input_parameter< int >::type l(lSEXP);
     Rcpp::traits::input_parameter< int >::type m(mSEXP);
-    rcpp_result_gen = Rcpp::wrap(scale_legendre_bh(l, m));
+    rcpp_result_gen = Rcpp::wrap(scale_legendre(l, m));
     return rcpp_result_gen;
 END_RCPP
 }
@@ -295,7 +295,7 @@ static const R_CallMethodDef CallEntries[] = {
     {"_earthtide_astro_der", (DL_FUNC) &_earthtide_astro_der, 2},
     {"_earthtide_factorial", (DL_FUNC) &_earthtide_factorial, 1},
     {"_earthtide_log_factorial", (DL_FUNC) &_earthtide_log_factorial, 1},
-    {"_earthtide_scale_legendre_bh", (DL_FUNC) &_earthtide_scale_legendre_bh, 2},
+    {"_earthtide_scale_legendre", (DL_FUNC) &_earthtide_scale_legendre, 2},
     {"_earthtide_legendre_cpp", (DL_FUNC) &_earthtide_legendre_cpp, 3},
     {"_earthtide_legendre_deriv_cpp", (DL_FUNC) &_earthtide_legendre_deriv_cpp, 3},
     {"_earthtide_legendre", (DL_FUNC) &_earthtide_legendre, 2},

diff --git a/src/astro.cpp b/src/astro.cpp
@@ -104,7 +104,7 @@ double log_factorial(int x) {
 }
 
 // [[Rcpp::export]]
-double scale_legendre_bh(int l, int m) {
+double scale_legendre(int l, int m) {
 
   double k = 2.0;
 
@@ -182,7 +182,7 @@ Eigen::MatrixXd legendre(int l_max, double x) {
 
   for (int l = 2; l <= l_max; ++l){
     for (int m = 0; m <= l; ++m){
-      scale = scale_legendre_bh(l, m);
+      scale = scale_legendre(l, m);
       out(i, 0) = l;
       out(i, 1) = m;
       out(i, 2) = legendre_cpp(l, m, x) * scale;
@@ -226,7 +226,7 @@ Eigen::MatrixXd legendre(int l_max, double x) {
 //
 //   for (int l = 2; l <= l_max; ++l){
 //     for (int m = 0; m <= l; ++m){
-//       scale = scale_legendre_bh(l, m);
+//       scale = scale_legendre(l, m);
 //       out(i, 0) = l;
 //       out(i, 1) = m;
 //       out(i, 2) = legendre_bh(l, m, x) * scale;