SHARP_PACKED alm_info flag

libsharp/sharp_lowlevel.h

@@ -76,6 +76,8 @@ typedef struct
   int nm;
   /*! Array with \a nm entries containing the individual m values */
   int *mval;
+  /*! Combination of flags from sharp_almflags */
+  int flags;
   /*! Array with \a nm entries containing the (hypothetical) indices of
       the coefficients with quantum numbers 0,\a mval[i] */
   ptrdiff_t *mvstart;
@@ -83,6 +85,15 @@ typedef struct
   ptrdiff_t stride;
   } sharp_alm_info;
 
+/*! alm_info flags */
+typedef enum { SHARP_PACKED = 1
+               /*< m=0-coefficients are packed so that the (zero) imaginary part is
+                   not present. mvstart is in units of *real* float/double for all
+                   m; stride is in units of reals for m=0 and complex for m!=0 */
+             } sharp_almflags;
+
+
+
 /*! Creates an a_lm data structure from the following parameters:
     \param lmax maximum \a l quantum number (>=0)
     \param mmax maximum \a m quantum number (0<= \a mmax <= \a lmax)
@@ -102,10 +113,11 @@ void sharp_make_alm_info (int lmax, int mmax, int stride,
     \param mval array with \a nm entries containing the individual m values
     \param mvstart array with \a nm entries containing the (hypothetical)
       indices of the coefficients with the quantum numbers 0,\a mval[i]
+    \param flags a combination of sharp_almflags (pass 0 unless you know you need this)
     \param alm_info will hold a pointer to the newly created data structure
  */
 void sharp_make_general_alm_info (int lmax, int nm, int stride, const int *mval,
-  const ptrdiff_t *mvstart, sharp_alm_info **alm_info);
+  const ptrdiff_t *mvstart, int flags, sharp_alm_info **alm_info);
 /*! Returns the index of the coefficient with quantum numbers \a l,
     \a mval[mi].
     \note for a \a sharp_alm_info generated by sharp_make_alm_info() this is