scnc
/
qmcpack
mirror of https://github.com/QMCPACK/qmcpack.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Add profiler stuff. 

git-svn-id: https://subversion.assembla.com/svn/qmcdev/trunk@3775 e5b18d87-469d-4833-9cc0-8cdfa06e9491
This commit is contained in:
Jeongnim Kim 2009-04-20 11:58:44 +00:00
parent 0ce154406b
commit 9442b2d7af
1 changed files with 4 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/QMCApp/qmcapp.cpp
View File

@ -22,18 +22,7 @@
#include "Platforms/sysutil.h"
#include "OhmmsApp/ProjectData.h"
#include "QMCApp/QMCMain.h"
#ifdef __linux__
#include "sys/sysinfo.h"
size_t freemem()
{
struct sysinfo si;
sysinfo(&si);
return si.freeram + si.bufferram;
}
#endif
#include "Utilities/profiler.h"
/** @file qmcapp.cpp
*@brief a main function for QMC simulation.
@ -47,20 +36,12 @@ size_t freemem()
int main(int argc, char **argv) {
///done with the option
TAU_PROFILE("int main(int, char **)", " ", TAU_DEFAULT);
TAU_INIT(&argc, &argv);
OHMMS::Controller->initialize(argc,argv);
// Write out free memory on each node on Linux.
#ifdef __linux__
for (int proc=0; proc<OHMMS::Controller->size(); proc++) {
if (OHMMS::Controller->rank() == proc) {
fprintf (stderr, "Rank = %4d Free Memory = %5ld MB\n",
proc, freemem()>>20);
}
OHMMS::Controller->barrier();
}
OHMMS::Controller->barrier();
#endif
//check the options first
int clones=1;
vector<string> fgroup1,fgroup2;