jscaux
/
ABACUS-v1
3
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

Flip order iK - it in output of S(q,t)

This commit is contained in:
J.-S. Caux 2019-12-06 16:45:10 +01:00
parent 421c591dd0
commit 10b10574c6
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/EXECS/Heis_Fourier_to_Sqt.cc
View File

@ -92,16 +92,18 @@ int main(int argc, char* argv[])
if (FTim_outfile.fail()) ABACUSerror("Could not open FTim_outfile... "); if (FTim_outfile.fail()) ABACUSerror("Could not open FTim_outfile... ");
for (int iK = iKmin; iK <= iKmax; ++iK) { for (int it = 0; it <= Npts_t; ++it) {
FTre_outfile << setprecision(16); FTre_outfile << setprecision(16);
FTim_outfile << setprecision(16); FTim_outfile << setprecision(16);
if (iK > iKmin) {
if (it > 0) {
FTre_outfile << endl; FTre_outfile << endl;
FTim_outfile << endl; FTim_outfile << endl;
} }
FTre_outfile << real(FT[0][iK]); FTre_outfile << real(FT[it][iKmin]);
FTim_outfile << real(FT[0][iK]); FTim_outfile << real(FT[it][iKmin]);
for (int it = 1; it <= Npts_t; ++it) {
for (int iK = iKmin + 1; iK <= iKmax; ++iK) {
FTre_outfile << "\t" << real(FT[it][iK]); FTre_outfile << "\t" << real(FT[it][iK]);
FTim_outfile << "\t" << imag(FT[it][iK]); FTim_outfile << "\t" << imag(FT[it][iK]);
} }