From 008026f5162bf79e75565548c1bbe5ca3a8fc248 Mon Sep 17 00:00:00 2001 From: Samo Penic <samo.penic@fe.uni-lj.si> Date: Thu, 07 Jun 2012 19:19:09 +0000 Subject: [PATCH] Added missing automake files --- src/sh.c | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/sh.c b/src/sh.c index 2d03105..cfab468 100644 --- a/src/sh.c +++ b/src/sh.c @@ -125,9 +125,9 @@ for(i=0;i<sph->l;i++){ al=i+1; sph->co[i][i+1]=sqrt((2.0*al+1.0)/2.0/M_PI); - for(j=0;j<al;j++){ + for(j=0;j<i;j++){ am=j+1; - sph->co[i][i+1+j]=co[i][i+j]*sqrt(1.0/(al-am+1)/(al+am)); + sph->co[i][i+1+j]=co[i][i+j]*sqrt(1.0/(al-am+1.0)/(al+am)); sph->co[i][i+1-j]=co[i][i+1+j]; } co[i][2*i]=co[i][2*i]*sqrt(1.0/(2.0*al)); -- Gitblit v1.9.3