Commit 62e4b64f authored by Giovanni La Mura's avatar Giovanni La Mura
Browse files

Fix cluster loop decision tree

parent bc1d9774

src/cluster/cluster.cpp

+6 −5
Original line number Diff line number Diff line
@@ -436,7 +436,8 @@ void cluster() { 
									if (phs > 360.0) phs -= 360.0;

								}

								// label 188

								if (!((nks == 1 && jxi488 == 1) || jth486 > 1 || jph484 > 1)) {

								bool goto190 = (nks == 1 && (jxi488 > 1 || jth486 > 1 || jph484 > 1));

								if (!goto190) {

									upvmp(ths, phs, icspnv, costs, sints, cosps, sinps, us, upsmp, unsmp);

									if (isam >= 0)

										wmamp(

src/include/clu_subs.h

+2 −2
Original line number Diff line number Diff line
@@ -1455,7 +1455,7 @@ void pcros(double vk, double exri, C1 *c1, C1_AddOns *c1ao, C4 *c4) { 
				amp += (c1ao->am0m[i][j] * c1->w[j][jpo - 1]);

			} // j10 loop

			sum += (dconjg(am) * am).real();

			sump += (dconjg(amp) * amp);

			sump += (dconjg(amp) * am);

			sum1 += (dconjg(c1->w[i][ipo18 - 1]) * am);

			sum2 += (dconjg(c1->w[i][jpo - 1]) * am);

			sum3 += (c1->w[i][ipopt - 1] * am);