From 459ff94855b2659de14ac2ac902b9658d28e19d5 Mon Sep 17 00:00:00 2001 From: Samo Penic <samo@CAE-linux.(none)> Date: Mon, 21 Apr 2014 11:11:37 +0000 Subject: [PATCH] Added complex spherical harmonics. --- src/spherical_trisurf_ff.c | 24 ------------------------ 1 files changed, 0 insertions(+), 24 deletions(-) diff --git a/src/spherical_trisurf_ff.c b/src/spherical_trisurf_ff.c index 00a4cc0..157b0e4 100644 --- a/src/spherical_trisurf_ff.c +++ b/src/spherical_trisurf_ff.c @@ -87,27 +87,3 @@ } - -ts_bool saveAvgUlm2(ts_vesicle *vesicle){ - - FILE *fh; - - fh=fopen("sph2out.dat", "w"); - if(fh==NULL){ - err("Cannot open file %s for writing"); - return TS_FAIL; - } - - ts_spharm *sph=vesicle->sphHarmonics; - ts_int i,j; - fprintf(fh,"l,\tm,\tulm^2avg\n"); - for(i=0;i<sph->l;i++){ - for(j=0;j<2*i+1;j++){ - fprintf(fh,"%d,\t%d,\t%e\n", i, j-i, sph->sumUlm2[i][j]/(ts_double)sph->N); - - } - fprintf(fh,"\n"); - } - fclose(fh); - return TS_SUCCESS; -} -- Gitblit v1.9.3