Commit 16c9d28a by Christophe Geuzaine

Merge branch 'AcousticFieldSoftSphereABC' into 'master'

Bug fixed

See merge request !4
2 parents 50475d75 3e8a64fd
Pipeline #98 passed
in 53 seconds
Showing with 2 additions and 2 deletions
......@@ -1251,7 +1251,7 @@ void F_AcousticFieldSoftSphereABC(F_ARG)
V->Val[0] = 0.;
V->Val[MAX_DIM] = 0. ;
ns = (int)k + 10;
ns = (int)k + 11;
h1nkR1tab = (cplx*)Malloc(ns * sizeof(cplx));
for (n = 0 ; n < ns ; n++){
......@@ -1264,7 +1264,7 @@ void F_AcousticFieldSoftSphereABC(F_ARG)
h2nkR1tab[n] = Cconj(h1nkR1tab[n]);
}
for (n = 0 ; n < ns ; n++){
for (n = 0 ; n < ns-1 ; n++){
if(SingleMode >= 0 && SingleMode != n) continue;
h1nkR0.r = Spherical_j_n(n, kR0);
......
Markdown is supported
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!