qdp_scalarvec_init.cc

Go to the documentation of this file.

 
 
#include "qdp.h"
 
namespace QDP {
 

static bool isInit = false;

void QDP_initialize(int *argc, char ***argv) 
{
  if (isInit)
    QDP_error_exit("QDP already inited");
 
  Layout::init();   // setup extremely basic functionality in Layout
 
  isInit = true;
 
  // initialize the global streams
  QDPIO::cin.init(&std::cin);
  QDPIO::cout.init(&std::cout);
  QDPIO::cerr.init(&std::cerr);
 
  //
  // Process command line
  //
 
  // Look for help
  bool help_flag = false;
  for (int i=0; i<*argc; i++) 
  {
    if (strcmp((*argv)[i], "-h")==0)
      help_flag = true;
  }
 
  if (help_flag) 
  {
    fprintf(stderr,"Usage:    %s options\n",(*argv)[0]);
    fprintf(stderr,"options:\n");
    fprintf(stderr,"    -h        help\n");
#if defined(QDP_USE_PROFILING)   
    fprintf(stderr,"    -p        %%d [%d] profile level\n", 
            getProfileLevel());
#endif
 
    exit(1);
  }
 
  for (int i=1; i<*argc; i++) 
  {
#if defined(QDP_USE_PROFILING)   
    if (strcmp((*argv)[i], "-p")==0) 
    {
      int lev;
      sscanf((*argv)[++i], "%d", &lev);
      setProgramProfileLevel(lev);
    }
#endif
 
    if (i >= *argc) 
    {
      QDP_error_exit("missing argument at the end");
    }
  }
 
  initProfile(__FILE__, __func__, __LINE__);
}

bool QDP_isInitialized() {return isInit;}

void QDP_finalize()
{
  printProfile();
 
  isInit = false;
}

void QDP_abort(int status)
{
  QDP_finalize(); 
  exit(status);
}

void QDP_resume() {}

void QDP_suspend() {}
 
 
} // namespace QDP;