Added macros to adjoints

astro-informatics · Sep 7, 2018 · 4c35693 · 4c35693
1 parent 333bfa9
commit 4c35693
Show file tree

Hide file tree

Showing 3 changed files with 39 additions and 38 deletions.
diff --git a/CMakeLists.txt b/CMakeLists.txt
@@ -50,6 +50,7 @@ install(FILES
   include/s2let.h                      include/s2let_error.h                include/s2let_hpx.h                  include/s2let_lm.h                   include/s2let_mw.h                   include/s2let_tiling.h               include/s2let_transform_axisym_mw.h
   include/s2let_alloc.h                include/s2let_fits.h                 include/s2let_idl_hpx.h              include/s2let_math.h                 include/s2let_so3.h                  include/s2let_transform_axisym_hpx.h include/s2let_types.h
   include/s2let_analysis.h             include/s2let_helper.h               include/s2let_idl_mw.h               include/s2let_mex.h                  include/s2let_synthesis.h            include/s2let_transform_axisym_lm.h
+  include/s2let_analysis_adjoint.h     include/s2let_synthesis_adjoint.h
   DESTINATION include)
 #building about and test executables
 add_executable(s2let_about src/main/c/s2let_about.c)

diff --git a/include/s2let_analysis_adjoint.h b/include/s2let_analysis_adjoint.h
@@ -29,10 +29,10 @@ extern "C" {
  * \retval none
  */
 void s2let_analysis_adjoint_lmn2lm(
-    complex double *flm,
-    const complex double *f_wav_lmn,
-    const complex double *f_scal_lm,
-    const complex double *wav_lm,
+    S2LET_COMPLEX(double) *flm,
+    const S2LET_COMPLEX(double) *f_wav_lmn,
+    const S2LET_COMPLEX(double) *f_scal_lm,
+    const S2LET_COMPLEX(double) *wav_lm,
     const double *scal_l,
     const s2let_parameters_t *parameters);
 
@@ -56,10 +56,10 @@ void s2let_analysis_adjoint_lmn2lm(
  * \retval none
  */
 void s2let_analysis_adjoint_lmn2lm_real(
-    complex double *flm,
-    const complex double *f_wav_lmn,
-    const complex double *f_scal_lm,
-    const complex double *wav_lm,
+    S2LET_COMPLEX(double) *flm,
+    const S2LET_COMPLEX(double) *f_wav_lmn,
+    const S2LET_COMPLEX(double) *f_scal_lm,
+    const S2LET_COMPLEX(double) *wav_lm,
     const double *scal_l,
     const s2let_parameters_t *parameters);
 
@@ -94,11 +94,11 @@ void s2let_analysis_adjoint_lmn2lm_real(
  * \retval none
  */
 void s2let_analysis_adjoint_wav2lm_manual(
-    complex double *flm,
-    const complex double *f_wav,
-    const complex double *f_scal,
+    S2LET_COMPLEX(double) *flm,
+    const S2LET_COMPLEX(double) *f_wav,
+    const S2LET_COMPLEX(double) *f_scal,
     const double *scal_l,
-    const complex double *wav_lm,
+    const S2LET_COMPLEX(double) *wav_lm,
     const int scal_bandlimit,
     const int *wav_bandlimits,
     int J,
@@ -123,9 +123,9 @@ void s2let_analysis_adjoint_wav2lm_manual(
  * \retval none
  */
 void s2let_analysis_adjoint_wav2lm(
-    complex double *flm,
-    const complex double *f_wav,
-    const complex double *f_scal,
+    S2LET_COMPLEX(double) *flm,
+    const S2LET_COMPLEX(double) *f_wav,
+    const S2LET_COMPLEX(double) *f_scal,
     const s2let_parameters_t *parameters );
 
 
@@ -145,7 +145,7 @@ void s2let_analysis_adjoint_wav2lm(
  * \retval none
  */
 void s2let_analysis_adjoint_wav2lm_real(
-    complex double *flm,
+    S2LET_COMPLEX(double) *flm,
     const double *f_wav,
     const double *f_scal,
     const s2let_parameters_t *parameters);
@@ -166,9 +166,9 @@ void s2let_analysis_adjoint_wav2lm_real(
  * \retval none
  */
 void s2let_analysis_adjoint_wav2px(
-    complex double *f,
-    const complex double *f_wav,
-    const complex double *f_scal,
+    S2LET_COMPLEX(double) *f,
+    const S2LET_COMPLEX(double) *f_wav,
+    const S2LET_COMPLEX(double) *f_scal,
     const s2let_parameters_t *parameters );
 
 //! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

diff --git a/include/s2let_synthesis_adjoint.h b/include/s2let_synthesis_adjoint.h
@@ -27,10 +27,10 @@ extern "C" {
  * \retval none
  */
 void s2let_synthesis_adjoint_lm2lmn(
-    complex double *f_wav_lmn,
-    complex double *f_scal_lm,
-    const complex double *flm,
-    const complex double *wav_lm,
+    S2LET_COMPLEX(double) *f_wav_lmn,
+    S2LET_COMPLEX(double) *f_scal_lm,
+    const S2LET_COMPLEX(double) *flm,
+    const S2LET_COMPLEX(double) *wav_lm,
     const double *scal_l,
     const s2let_parameters_t *parameters
 );
@@ -54,10 +54,10 @@ void s2let_synthesis_adjoint_lm2lmn(
  * \retval none
  */
 void s2let_synthesis_adjoint_lm2lmn_real(
-    complex double *f_wav_lmn,
-    complex double *f_scal_lm,
-    const complex double *flm,
-    const complex double *wav_lm,
+    S2LET_COMPLEX(double) *f_wav_lmn,
+    S2LET_COMPLEX(double) *f_scal_lm,
+    const S2LET_COMPLEX(double) *flm,
+    const S2LET_COMPLEX(double) *wav_lm,
     const double *scal_l,
     const s2let_parameters_t *parameters
 );
@@ -92,11 +92,11 @@ void s2let_synthesis_adjoint_lm2lmn_real(
  * \retval none
  */
 void s2let_synthesis_adjoint_lm2wav_manual(
-    complex double *f_wav,
-    complex double *f_scal,
-    const complex double *flm,
+    S2LET_COMPLEX(double) *f_wav,
+    S2LET_COMPLEX(double) *f_scal,
+    const S2LET_COMPLEX(double) *flm,
     const double *scal_l,
-    const complex double *wav_lm,
+    const S2LET_COMPLEX(double) *wav_lm,
     const int scal_bandlimit,
     const int *wav_bandlimits,
     int J,
@@ -122,9 +122,9 @@ void s2let_synthesis_adjoint_lm2wav_manual(
  * \retval none
  */
 void s2let_synthesis_adjoint_lm2wav(
-    complex double *f_wav,
-    complex double *f_scal,
-    const complex double *flm,
+    S2LET_COMPLEX(double) *f_wav,
+    S2LET_COMPLEX(double) *f_scal,
+    const S2LET_COMPLEX(double) *flm,
     const s2let_parameters_t *parameters
 );
 
@@ -147,7 +147,7 @@ void s2let_synthesis_adjoint_lm2wav(
 void s2let_synthesis_adjoint_lm2wav_real(
     double *f_wav,
     double *f_scal,
-    const complex double *flm,
+    const S2LET_COMPLEX(double) *flm,
     const s2let_parameters_t *parameters
 );
 
@@ -168,9 +168,9 @@ void s2let_synthesis_adjoint_lm2wav_real(
  * \retval none
  */
 void s2let_synthesis_adjoint_px2wav(
-    complex double *f_wav,
-    complex double *f_scal,
-    const complex double *f,
+    S2LET_COMPLEX(double) *f_wav,
+    S2LET_COMPLEX(double) *f_scal,
+    const S2LET_COMPLEX(double) *f,
     const s2let_parameters_t *parameters
 );