From 92b9deaf8d7c2a96c3977e1204341d6b6feb1fc1 Mon Sep 17 00:00:00 2001 From: Franz Zotter Date: Wed, 14 Jan 2009 10:58:32 +0000 Subject: renamed [mtx_sh] to [mtx_spherical_harmonics]. svn path=/trunk/externals/iem/iemmatrix/; revision=10549 --- .../cmdline/sharmonics_normalization_cmd.c | 37 ++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 src/mtx_spherical_harmonics/cmdline/sharmonics_normalization_cmd.c (limited to 'src/mtx_spherical_harmonics/cmdline/sharmonics_normalization_cmd.c') diff --git a/src/mtx_spherical_harmonics/cmdline/sharmonics_normalization_cmd.c b/src/mtx_spherical_harmonics/cmdline/sharmonics_normalization_cmd.c new file mode 100644 index 0000000..74b2316 --- /dev/null +++ b/src/mtx_spherical_harmonics/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