From 55253e4e15b093a0826fc10b376f7724cea2ba7e Mon Sep 17 00:00:00 2001 From: Franz Zotter Date: Mon, 12 Jan 2009 17:09:13 +0000 Subject: added [mtx_sh] for spherical harmonics evaluation. svn path=/trunk/externals/iem/iemmatrix/; revision=10515 --- src/mtx_sh/cmdline/sharmonics_normalization_cmd.c | 37 +++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 src/mtx_sh/cmdline/sharmonics_normalization_cmd.c (limited to 'src/mtx_sh/cmdline/sharmonics_normalization_cmd.c') diff --git a/src/mtx_sh/cmdline/sharmonics_normalization_cmd.c b/src/mtx_sh/cmdline/sharmonics_normalization_cmd.c new file mode 100644 index 0000000..74b2316 --- /dev/null +++ b/src/mtx_sh/cmdline/sharmonics_normalization_cmd.c @@ -0,0 +1,37 @@ + +/* command line test for sharmonics_normalization.c + * Franz Zotter, 2009, see ../LICENSE.txt */ + +#include + +#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; +} + + -- cgit v1.2.1