Browse Source

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

master
J.-S. Caux 4 years ago
parent
commit
10b10574c6
1 changed files with 7 additions and 5 deletions
  1. 7
    5
      src/EXECS/Heis_Fourier_to_Sqt.cc

+ 7
- 5
src/EXECS/Heis_Fourier_to_Sqt.cc View File

@@ -92,16 +92,18 @@ int main(int argc, char* argv[])
92 92
     if (FTim_outfile.fail()) ABACUSerror("Could not open FTim_outfile... ");
93 93
 
94 94
 
95
-    for (int iK = iKmin; iK <= iKmax; ++iK) {
95
+    for (int it = 0; it <= Npts_t; ++it) {
96 96
       FTre_outfile << setprecision(16);
97 97
       FTim_outfile << setprecision(16);
98
-      if (iK > iKmin) {
98
+
99
+      if (it > 0) {
99 100
 	FTre_outfile << endl;
100 101
 	FTim_outfile << endl;
101 102
       }
102
-      FTre_outfile << real(FT[0][iK]);
103
-      FTim_outfile << real(FT[0][iK]);
104
-      for (int it = 1; it <= Npts_t; ++it) {
103
+      FTre_outfile << real(FT[it][iKmin]);
104
+      FTim_outfile << real(FT[it][iKmin]);
105
+
106
+      for (int iK = iKmin + 1; iK <= iKmax; ++iK) {
105 107
 	FTre_outfile << "\t" << real(FT[it][iK]);
106 108
 	FTim_outfile << "\t" << imag(FT[it][iK]);
107 109
       }

Loading…
Cancel
Save