src/shcomplex.c
@@ -117,6 +117,25 @@ return TS_SUCCESS; } char *Ulm2Complex2String(ts_vesicle *vesicle){ ts_int i,j; char *strng=(char *)calloc(5000, sizeof(char)); for(i=0;i<vesicle->sphHarmonics->l;i++){ for(j=i;j<2*i+1;j++){ sprintf(strng,"%e ", gsl_complex_abs2(vesicle->sphHarmonics->ulmComplex[i][j])); } } sprintf(strng,"\n"); return strng; } ts_bool freeUlm2String(char *strng){ free(strng); return TS_SUCCESS; } ts_bool storeUlmComplex2(ts_vesicle *vesicle){ ts_spharm *sph=vesicle->sphHarmonics;