u1casc-ordinary/u1casc-ordinary.cpp

   1 #include <complex>
   2 #include <cstring>
   3
   4 #include "latlib/o815/o815.h"
   5
   6 #include "sim.hpp"
   7
   8 o815 *O815;
   9 sim *Sim;
  10
  11 //const complex<double> _i_ = complex<double>(0.0,1.0);
  12
  13 #include "obs_phi2.hpp"
  14 #include "obs_plaq.hpp"
  15 #include "obs_corr.hpp"
  16 #include "obs_corrphiphimass.hpp"
  17 #include "obs_corrphichimass.hpp"
  18
  19 o815::comoption specOps[] = {
  20   { "kappaone", required_argument, NULL, 'r', "set inverse mass kappa_1", "min:max:inc" },
  21   { "kappatwo", required_argument, NULL, 's', "set inverse mass kappa_2", "min:max:inc" },
  22   { "beta", required_argument, NULL, 'b', "set inverse gauge coupling beta", "min:max:inc" },
  23   { "lambdaone", required_argument, NULL, 'p', "set quartic coupling lambda_1", "min:max:inc" },
  24   { "lambdatwo", required_argument, NULL, 'q', "set quartic coupling lambda_2", "min:max:inc" },
  25   { "kappa", required_argument, NULL, 'k', "set kappa_1 = kappa_2 = kappa", "min:max:inc" },
  26   { "lambda", required_argument, NULL, 'l', "set lambda_1 = lambda_2 = lambda", "min:max:inc" },
  27   { "", 0, NULL, 0, "", "" }
  28 };
  29
  30 void parseSpecOps()
  31 {
  32   for (int isopt = 0; isopt < O815->parsedSpecOps.size(); isopt++)
  33     switch(O815->parsedSpecOps[isopt].first) {
  34     case 'r':
  35       O815->paraQ->addRange("kappaone", O815->parsedSpecOps[isopt].second);
  36       break;
  37     case 's':
  38       O815->paraQ->addRange("kappatwo", O815->parsedSpecOps[isopt].second);
  39       break;
  40     case 'b':
  41       O815->paraQ->addRange("beta", O815->parsedSpecOps[isopt].second);
  42       break;
  43     case 'p':
  44       O815->paraQ->addRange("lambdaone", O815->parsedSpecOps[isopt].second);
  45       break;
  46     case 'q':
  47       O815->paraQ->addRange("lambdatwo", O815->parsedSpecOps[isopt].second);
  48       break;
  49     case 'l':
  50       O815->paraQ->addRange("lambdaone", O815->parsedSpecOps[isopt].second);
  51       O815->paraQ->linkParas("lambdatwo", "lambdaone");
  52       break;
  53     case 'k':
  54       O815->paraQ->addRange("kappaone", O815->parsedSpecOps[isopt].second);
  55       O815->paraQ->linkParas("kappatwo", "kappaone");
  56       break;
  57     }
  58 }
  59
  60 void helpHeader()
  61 {
  62   cout << "Usage: ./u1casc-ordinary [OPTIONS] [obs1] ... [obsN]" << endl << endl;
  63 }
  64
  65 void parseLonelyArgs()
  66 {
  67   for (vector<char*>::iterator lonit = O815->lonelyArgs.begin(); lonit != O815->lonelyArgs.end(); ++lonit) {
  68     if ( strcmp(*lonit, "phi2") == 0 ) {
  69       *O815->out->log << "MASTER: registered observable: phi2" << endl << flush;
  70       O815->observables.push_back(new obs_phi2(O815));
  71     }
  72     else if ( strcmp(*lonit, "plaq") == 0 ) {
  73       *O815->out->log << "MASTER: registered observable: plaq" << endl << flush;
  74       O815->observables.push_back(new obs_plaq(O815));
  75     }
  76     else if ( strcmp(*lonit, "corr") == 0 ) {
  77       *O815->out->log << "MASTER: registered observable: corr" << endl << flush;
  78       O815->observables.push_back(new obs_corr(O815));
  79     }
  80     else if ( strcmp(*lonit, "corrphiphimass") == 0 ) {
  81       *O815->out->log << "MASTER: registered observable: corr_phiphimass" << endl << flush;
  82       O815->observables.push_back(new obs_corrphiphimass(O815));
  83     }
  84     else if ( strcmp(*lonit, "corrphichimass") == 0 ) {
  85       *O815->out->log << "MASTER: registered observable: corr_phichimass" << endl << flush;
  86       O815->observables.push_back(new obs_corrphichimass(O815));
  87     }
  88   }
  89 }
  90
  91 int main (int argc, char *argv[])
  92 {
  93   O815 = new o815(argc, argv, "u1casc-ordinary", specOps, &helpHeader);
  94
  95   O815->addPara("beta", 1);
  96   O815->addPara("lambdaone", 1);
  97   O815->addPara("lambdatwo", 1);
  98   O815->addPara("kappaone", 1);
  99   O815->addPara("kappatwo", 1);
 100
 101   parseSpecOps();
 102   O815->postParaInit();
 103   O815->Sim = new sim(O815);
 104   parseLonelyArgs();
 105   O815->mainLoop();
 106
 107   delete O815;
 108   return 0;
 109 }