src/mtx_spherical_harmonics/cmdline/sharmonics_normalization_cmd.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37


/* command line test for sharmonics_normalization.c 
 * Franz Zotter, 2009, see ../LICENSE.txt */

#include <stdio.h>

#include "sharmonics_normalization.h"

int main (int argc, char *argv[]) {
   int nmax, n, m;
   SHNorml *ws=0;
   double *ptr;

   if (argc!=2) {
      printf("sharmonics_normalization requires nmax as input argument\n");
      return 0;
   }
   
   nmax=atoi(argv[1]);

   if ((ws=sharmonics_normalization_new(nmax))==0) {
      printf("sharmonics_normalization could not allocate memory for n=%d",nmax);
      return 0;
   }

   ptr=ws->n;
   for (n=0;n<=nmax;n++) {
      for (m=0;m<=n;m++) {
         printf("N[%2d][%2d]=%7.4f\n",n,m,*ptr++);
      }
   }
   
   sharmonics_normalization_free(ws);
   return 1;
}