Fixed halo covariance MPI type mistake

Martin D. Weinberg · Martin D. Weinberg · commit 720d9aec942e · 2025-11-10T23:05:26.000-05:00
diff --git a/expui/BiorthBasis.cc b/expui/BiorthBasis.cc
@@ -611,7 +611,7 @@ namespace BasisClasses
       Eigen::VectorXd workE;
       
       // M loop
-      for (int m=0, moffset=0; m<=l; m++, L++) {
+      for (int m=0, moffset=0, moffE=0; m<=l; m++, L++) {
 	
 	fac = factorial(l, m) * legs[tid](l, m);
 
@@ -684,10 +684,10 @@ namespace BasisClasses
 	  for (int l=0; l<ltot; l++) {
 	    
 	    MPI_Allreduce(MPI_IN_PLACE, meanV[T][l].data(), meanV[T][l].size(),
-			  MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);
+			  MPI_DOUBLE_COMPLEX, MPI_SUM, MPI_COMM_WORLD);
 
 	    MPI_Allreduce(MPI_IN_PLACE, covrV[T][l].data(), covrV[T][l].size(),
-			  MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);
+			  MPI_DOUBLE_COMPLEX, MPI_SUM, MPI_COMM_WORLD);
 	  }
 	}
       }

Original file line number	Diff line number	Diff line change
`@@ -611,7 +611,7 @@ namespace BasisClasses`
`611`	`611`	`Eigen::VectorXd workE;`
`612`	`612`
`613`	`613`	`// M loop`
`614`		`- for (int m=0, moffset=0; m<=l; m++, L++) {`
	`614`	`+ for (int m=0, moffset=0, moffE=0; m<=l; m++, L++) {`
`615`	`615`
`616`	`616`	`fac = factorial(l, m) * legs[tid](l, m);`
`617`	`617`
`@@ -684,10 +684,10 @@ namespace BasisClasses`
`684`	`684`	`for (int l=0; l<ltot; l++) {`
`685`	`685`
`686`	`686`	`MPI_Allreduce(MPI_IN_PLACE, meanV[T][l].data(), meanV[T][l].size(),`
`687`		`- MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);`
	`687`	`+ MPI_DOUBLE_COMPLEX, MPI_SUM, MPI_COMM_WORLD);`
`688`	`688`
`689`	`689`	`MPI_Allreduce(MPI_IN_PLACE, covrV[T][l].data(), covrV[T][l].size(),`
`690`		`- MPI_DOUBLE, MPI_SUM, MPI_COMM_WORLD);`
	`690`	`+ MPI_DOUBLE_COMPLEX, MPI_SUM, MPI_COMM_WORLD);`
`691`	`691`	`}`
`692`	`692`	`}`
`693`	`693`	`}`