#include <sstream>
#include <iomanip>
+#include <cstring>
+
+#ifndef MPI_DISABLED
+#include <mpi.h>
+#endif
#include "latlib/progress.h"
comargs.idonly = false;
comargs.showjobnum = false;
+#ifndef MPI_DISABLED
MPI_Init(&argc, &argv);
MPI_Comm_size(MPI_COMM_WORLD, &numprocs);
MPI_Comm_rank(MPI_COMM_WORLD, &rank);
+#else
+ numprocs = 1;
+ rank = 0;
+#endif
addComOption("lsize", required_argument, NULL, 'L', "define lattice size", "xsize:tsize");
addComOption("nmeas", required_argument, NULL, 'N', "set number of measurements", "nmeas");
exit(0);
}
+ if( comargs.showjobnum ) {
+ for( int i=1; i<=paraQ->getTotalJobs(); i++ ) {
+ if( paraQ->getTotalJobs()%i == 0 ) cout << paraQ->getTotalJobs()/i << "@" << i << " ";
+ }
+ cout << endl;
+ exit(0);
+ }
+
if(rank==0) {
timestamp = time(NULL);
+#ifndef MPI_DISABLED
for(int idest=1; idest<numprocs; idest++)
MPI_Send(×tamp, 1, MPI_LONG, idest, 123, MPI_COMM_WORLD);
+#endif
}
+#ifndef MPI_DISABLED
else if(rank>0)
- MPI_Recv(×tamp, 1, MPI_LONG, 0, 123, MPI_COMM_WORLD, &mpiStatus);
-
+ MPI_Recv(×tamp, 1, MPI_LONG, 0, 123, MPI_COMM_WORLD, MPI_STATUS_IGNORE);
+#endif
+
out = new writeout(comargs.outdir, programid+headMaster(), rank, numprocs, timestamp);
}
void o815::mainLoop() {
- if( comargs.showjobnum ) {
- for( int i=1; i<=paraQ->getTotalJobs(); i++ ) {
- if( paraQ->getTotalJobs()%i == 0 ) cout << paraQ->getTotalJobs()/i << "@" << i << " ";
- }
- cout << endl;
- exit(0);
- }
-
*out->log << "OBS: Starting main loop." << endl;
for (vector<obs*>::iterator obsit = observables.begin(); obsit != observables.end(); ++obsit)
hypercache::readO( (*obsit)->ocid, &readnewObs, &nequileftNewObs );
if ( readnewObs && nequileftNewObs < 0 ) {
- (*obsit)->meas(true);
+ (*obsit)->meas(true, imeas);
}
else {
if (!nextAlready) {
Sim->nextConfig();
nextAlready = true;
}
- (*obsit)->meas(false);
+ (*obsit)->meas(false, imeas);
hypercache::writeO( (*obsit)->ocid );
}
o815::~o815() {
if(comargs.outdir=="") {
+#ifndef MPI_DISABLED
MPI_Barrier(MPI_COMM_WORLD);
+#endif
if(rank==0)
cout << "#end" << endl << flush;
}
hypercache::finalize();
delete out;
+#ifndef MPI_DISABLED
MPI_Finalize();
+#endif
}
int o815::nextParas()