void setup_do_arg(DoArg& do_arg, int seed)
{
do_arg.x_node_sites = NSITES_3D/SizeX();
do_arg.y_node_sites = NSITES_3D/SizeY();
do_arg.z_node_sites = NSITES_3D/SizeZ();
do_arg.t_node_sites = NSITES_T/SizeT();
do_arg.x_nodes = SizeX();
do_arg.y_nodes = SizeY();
do_arg.z_nodes = SizeZ();
do_arg.t_nodes = SizeT();
do_arg.x_bc = BND_CND_PRD;
do_arg.y_bc = BND_CND_PRD;
do_arg.z_bc = BND_CND_PRD;
do_arg.t_bc = BND_CND_PRD;
do_arg.start_conf_kind = START_CONF_DISORD;
do_arg.start_seed_kind = START_SEED_INPUT;
do_arg.start_seed_value = seed;
do_arg.beta = BETA;
do_arg.clover_coeff = 1.0;
do_arg.xi_bare = 1;
do_arg.xi_v = 1;
do_arg.xi_v_xi = 1;
}
int main(int argc,char *argv[]){
//WfmFlops = 0;
#if TARGET == QCDOC
DefaultSetup();
printf("Sizes = %d %d %d %d %d %d\n",SizeX(),SizeY(),SizeZ(),SizeT(),SizeS(),SizeW());
printf("Coors = %d %d %d %d %d %d\n",CoorX(),CoorY(),CoorZ(),CoorT(),CoorS(),CoorW());
#endif
FILE *fp;
double dtime;
//----------------------------------------------------------------
// Initializes all Global Job Parameters
//----------------------------------------------------------------
DoArg do_arg;
int nx,ny,nz,nt;
if (argc < 5){
ERR.General("f_clover_test","main()","usage: %s nx ny nz nt\n",argv[0]);
}
sscanf(argv[1],"%d",&nx);
sscanf(argv[2],"%d",&ny);
sscanf(argv[3],"%d",&nz);
sscanf(argv[4],"%d",&nt);
printf("total sites = %d %d %d %d\n",nx,ny,nz,nt);
do_arg.x_node_sites = nx/SizeX();
do_arg.y_node_sites = ny/SizeY();
do_arg.z_node_sites = nz/SizeZ();
do_arg.t_node_sites = nt/SizeT();
do_arg.s_node_sites = 0;
do_arg.x_nodes = SizeX();
do_arg.y_nodes = SizeY();
do_arg.z_nodes = SizeZ();
do_arg.t_nodes = SizeT();
do_arg.s_nodes = 1;
do_arg.x_bc = BND_CND_PRD;
do_arg.y_bc = BND_CND_PRD;
do_arg.z_bc = BND_CND_PRD;
do_arg.t_bc = BND_CND_APRD;
do_arg.start_conf_kind = START_CONF_DISORD;
do_arg.start_seed_kind = START_SEED_FIXED;
do_arg.beta = 5.5;
do_arg.dwf_height = 0.9;
do_arg.clover_coeff = 2.0171;
// do_arg.verbose_level = -1205;
do_arg.asqtad_KS = (1.0/8.0)+(6.0/16.0)+(1.0/8.0);
do_arg.asqtad_naik = -1.0/24.0;
do_arg.asqtad_3staple = (-1.0/8.0)*0.5;
do_arg.asqtad_5staple = ( 1.0/8.0)*0.25*0.5;
do_arg.asqtad_7staple = (-1.0/8.0)*0.125*(1.0/6.0);
do_arg.asqtad_lepage = -1.0/16;
VRB.Level(0);
VRB.ActivateLevel(VERBOSE_FUNC_LEVEL);
VRB.ActivateLevel(VERBOSE_FLOW_LEVEL);
VRB.ActivateLevel(VERBOSE_SMALLOC_LEVEL);
VRB.ActivateLevel(VERBOSE_RNGSEED_LEVEL);
CgArg cg_arg;
cg_arg.mass = 0.1;
cg_arg.stop_rsd = 1e-12;
cg_arg.max_num_iter = 500;
GJP.Initialize(do_arg);
// VRB.Level(GJP.VerboseLevel());
#if TARGET == QCDOC
char filename [200];
sprintf(filename,"%s%d%d%d%d%d%d_%d%d%d%d%d%d.out",f_wilson_test_filename,SizeX(),SizeY(),SizeZ(),SizeT(),SizeS(),SizeW(),CoorX(),CoorY(),CoorZ(),CoorT(),CoorS(),CoorW());
fp = Fopen(filename,"w");
#else
fp = Fopen("f_clover_test.out","w");
#endif
GwilsonFclover lat;
Vector *result =
(Vector*)smalloc(GJP.VolNodeSites()*lat.FsiteSize()*sizeof(IFloat));
Vector *X_out =
(Vector*)smalloc(GJP.VolNodeSites()*lat.FsiteSize()*sizeof(IFloat));
Vector *X_out2 =
(Vector*)smalloc(GJP.VolNodeSites()*lat.FsiteSize()*sizeof(IFloat));
if(!result) ERR.Pointer("","","result");
if(!X_out) ERR.Pointer("","","X_out");
if(!X_out2) ERR.Pointer("","","X_out2");
int s[4];
Vector *X_in =
(Vector*)smalloc(GJP.VolNodeSites()*lat.FsiteSize()*sizeof(IFloat));
bzero(X_in,GJP.VolNodeSites()*lat.FsiteSize()*sizeof(IFloat));
Vector *X_in2 =
(Vector*)smalloc(GJP.VolNodeSites()*lat.FsiteSize()*sizeof(IFloat));
bzero(X_in,GJP.VolNodeSites()*lat.FsiteSize()*sizeof(IFloat));
if(!X_in) ERR.Pointer("","","X_in");
#if 1
lat.RandGaussVector(X_in,1.0);
lat.RandGaussVector(X_in2,1.0);
#else
Matrix *gf = lat.GaugeField();
IFloat *gf_p = (IFloat *)lat.GaugeField();
for(s[3]=0; s[3]<GJP.NodeSites(3); s[3]++)
for(s[2]=0; s[2]<GJP.NodeSites(2); s[2]++)
for(s[1]=0; s[1]<GJP.NodeSites(1); s[1]++)
for(s[0]=0; s[0]<GJP.NodeSites(0); s[0]++) {
int n = lat.FsiteOffset(s);
IFloat *temp_p = (IFloat *)(gf+4*n+3);
IFloat crd = 1.0*s[0]+0.1*s[1]+0.01*s[2]+0.001*s[3];
#if TARGET==QCDOC
if(CoorX()==0 && CoorY()==0 && CoorZ()==0 && CoorT()==0 &&n==0) crd=1.0; else crd = 0.0;
#else
if(n==0) crd = 1.0; else crd = 0.0;
#endif
for(int v=0; v<6; v+=2){
if (v==0)
*((IFloat*)&X_in[n]+v) = crd;
else
*((IFloat*)&X_in[n]+v) = 0;
*((IFloat*)&X_in[n]+v+1) = 0.0;
}
}
#endif
Vector *out;
{
DiracOpClover dirac(lat,X_out,X_in,&cg_arg,CNV_FRM_NO);
for(int k = 0; k< 1; k++){
double maxdiff=0.;
printf("k=%d ",k);
if (k ==0)
out = result;
else
out = X_out;
bzero((char *)out, GJP.VolNodeSites()*lat.FsiteSize()*sizeof(IFloat));
lat.Fconvert(out,WILSON,CANONICAL);
lat.Fconvert(X_in,WILSON,CANONICAL);
int offset = GJP.VolNodeSites()*lat.FsiteSize()/ (2*6);
#if 1
#if 1
#if TARGET==QCDOC
int vol = nx*ny*nz*nt/(SizeX()*SizeY()*SizeZ()*SizeT());
#else
int vol = nx*ny*nz*nt;
#endif
// dtime = -dclock();
int iter = dirac.MatInv(out,X_in);
// dtime +=dclock();
// print_flops(WfmFlops,dtime);
printf("iter=%d\n",iter);
#else
dirac.Dslash(out,X_in+offset,CHKB_EVEN,DAG_NO);
dirac.Dslash(out+offset,X_in,CHKB_ODD,DAG_NO);
#endif
#endif
if (k == 0){
bzero((char *)X_out2, GJP.VolNodeSites()*lat.FsiteSize()*sizeof(IFloat));
#if 0
dirac.Dslash(X_out2,out+offset,CHKB_EVEN,DAG_NO);
dirac.Dslash(X_out2+offset,out,CHKB_ODD,DAG_NO);
#endif
lat.Fconvert(X_out2,CANONICAL,WILSON);
}
lat.Fconvert(out,CANONICAL,WILSON);
lat.Fconvert(X_in,CANONICAL,WILSON);
X_out2->FTimesV1PlusV2(-0.5/(cg_arg.mass+4.0),X_out2,out,GJP.VolNodeSites()*lat.FsiteSize());
Float dummy;
Float dt = 2;
for(s[3]=0; s[3]<GJP.NodeSites(3); s[3]++)
for(s[2]=0; s[2]<GJP.NodeSites(2); s[2]++)
for(s[1]=0; s[1]<GJP.NodeSites(1); s[1]++)
for(s[0]=0; s[0]<GJP.NodeSites(0); s[0]++) {
int n = lat.FsiteOffset(s)*lat.SpinComponents();
for(int i=0; i<(lat.FsiteSize()/2); i++){
#if TARGET == QCDOC
if ( k==0 )
Fprintf(fp," %d %d %d %d %d ", CoorX()*GJP.NodeSites(0)+s[0], CoorY()*GJP.NodeSites(1)+s[1], CoorZ()*GJP.NodeSites(2)+s[2], CoorT()*GJP.NodeSites(3)+s[3], i);
#else
if ( k==0 )
Fprintf(fp," %d %d %d %d %d ", s[0], s[1], s[2], s[3], i);
#endif
if ( k==0 )
Fprintf(fp," (%0.7e %0.7e) (%0.7e %0.7e)",
*((IFloat*)&result[n]+i*2), *((IFloat*)&result[n]+i*2+1),
*((IFloat*)&X_in[n]+i*2), *((IFloat*)&X_in[n]+i*2+1));
#if 0
Fprintf(fp," (%0.2e %0.2e)\n",
#if 0
*((IFloat*)&X_out2[n]+i*2)-*((IFloat*)&X_in[n]+i*2),
*((IFloat*)&X_out2[n]+i*2+1)-*((IFloat*)&X_in[n]+i* 2+1));
#else
*((IFloat*)&X_out2[n]+i*2),
*((IFloat*)&X_out2[n]+i*2+1));
#endif
#else
Fprintf(fp,"\n");
#endif
double diff = *((IFloat*)&X_out2[n]+i*2)-*((IFloat*)&X_in[n]+i*2);
if (fabs(diff)>maxdiff) maxdiff = fabs(diff);
diff = *((IFloat*)&X_out2[n]+i*2+1)-*((IFloat*)&X_in[n]+i* 2+1);
if (fabs(diff)>maxdiff) maxdiff = fabs(diff);
}
}
printf("Max diff between X_in and M*X_out = %0.2e\n", maxdiff);
}
}
Fclose(fp);
sfree(X_in);
sfree(result);
sfree(X_out);
sfree(X_out2);
return 0;
}
int main(int argc, char ** argv) {
if(argc<11) {
cout << "Usage:" << endl<<" qrun QCDOC.x -[r|w] <conf.dat> <x sites> <y sites> <z sites> <t sites> <Xbc> <Ybc> <Zbc> <Tbc>"<< endl;
cout << "(use letter \'P\' or \'A\' for arguments of gauge BC's)" << endl;
cout << "Eg, qrun QCDOC.x -r conf8x8x8x16.file 8 8 8 16 P P P P"<< endl;
cout << " qrun QCDOC.x -w conf4x4x4x32.file 4 4 4 32 P P A A"<< endl;
exit(1);
}
Start(&argc,&argv);
// init GJP
DoArg do_arg;
do_arg.x_nodes = SizeX();
do_arg.y_nodes = SizeY();
do_arg.z_nodes = SizeZ();
do_arg.t_nodes = SizeT();
do_arg.s_nodes = SizeS();
int nx = atoi(argv[3]);
int ny = atoi(argv[4]);
int nz = atoi(argv[5]);
int nt = atoi(argv[6]);
do_arg.x_node_sites = nx/do_arg.x_nodes;
do_arg.y_node_sites = ny/do_arg.y_nodes;
do_arg.z_node_sites = nz/do_arg.z_nodes;
do_arg.t_node_sites = nt/do_arg.t_nodes;
do_arg.s_node_sites = 1;
do_arg.x_bc = (argv[7][0]=='A' ? BND_CND_APRD : BND_CND_PRD);
do_arg.y_bc = (argv[8][0]=='A' ? BND_CND_APRD : BND_CND_PRD);
do_arg.z_bc = (argv[9][0]=='A' ? BND_CND_APRD : BND_CND_PRD);
do_arg.t_bc = (argv[10][0]=='A' ? BND_CND_APRD : BND_CND_PRD);
do_arg.start_seed_kind = START_SEED_FIXED;
do_arg.beta = 5.3;
do_arg.dwf_height = 0.9;
// start testing
if(!strcmp(argv[1],"-w")) {
do_arg.start_conf_kind = START_CONF_DISORD;
GJP.Initialize(do_arg);
cout << "Initialized ok" << endl;
write_lattice(argc,argv);
}
else {
do_arg.start_conf_load_addr =
(unsigned long)smalloc(do_arg.x_node_sites * do_arg.y_node_sites *
do_arg.z_node_sites * do_arg.t_node_sites *
4 * sizeof(Matrix));
#if 1
do_arg.start_conf_kind = START_CONF_LOAD;
GJP.Initialize(do_arg);
cout << "Initialized ok" << endl;
#if TARGET == QCDOC
// *Shift() functions test
QioArg qarg("NoFile");
SerialIO serio(qarg);
if(serio.backForthTest())
cout << "Back-Forth test done!" << endl;
else
cout << "Back-Forth test failed!!" << endl;
if(serio.rotateTest()) {
cout << "Rotation test done!" << endl;
}
else {
cout << "Rotation test failed!!" << endl;
}
cout << "========================================================================"<<endl;
#endif
read_lattice(argc,argv);
#else
// An equivalent way to load the lattice. ReadLatticePar is called
// inside Lattice::Lattice()
do_arg.start_conf_kind = START_CONF_FILE;
do_arg.start_conf_filename = argv[2];
GJP.Initialize(do_arg);
cout << "Initialized ok" << endl;
GwilsonFnone lat;
cout << "lattice loaded ok" << endl;
const char *write_file_name = "test_out.lat";
// Should dupilcate the NERSC format lattice except header
WriteLatticeParallel(lat,write_file_name,FP_IEEE32BIG,1);
#endif
sfree((Matrix *)do_arg.start_conf_load_addr);
}
exit(0);
}
USING_NAMESPACE_CPS
int main(int argc,char *argv[])
{
int ITERATIONS = 10;
//----------------------------------------------------------------
// Initializes all Global Job Parameters
//----------------------------------------------------------------
Start(&argc,&argv);
DoArg do_arg;
int nx,ny,nz,nt;
if (argc<5) {printf("usage: %s nx ny nz nt\n",argv[0]);exit(-2);}
sscanf(argv[1],"%d",&nx);
sscanf(argv[2],"%d",&ny);
sscanf(argv[3],"%d",&nz);
sscanf(argv[4],"%d",&nt);
printf("sizes = %d %d %d %d\n",nx,ny,nz,nt);
do_arg.x_node_sites = nx/SizeX();
do_arg.y_node_sites = ny/SizeY();
do_arg.z_node_sites = nz/SizeZ();
do_arg.t_node_sites = nt/SizeT();
do_arg.s_node_sites = 2;
do_arg.x_nodes = SizeX();
do_arg.y_nodes = SizeY();
do_arg.z_nodes = SizeZ();
do_arg.t_nodes = SizeT();
do_arg.s_nodes = 1;
do_arg.t_bc = BND_CND_PRD;
do_arg.x_bc = BND_CND_PRD;
do_arg.y_bc = BND_CND_PRD;
do_arg.z_bc = BND_CND_APRD;
do_arg.start_conf_kind = START_CONF_ORD;
do_arg.start_seed_kind = START_SEED_FIXED;
do_arg.beta = 5.71;
// do_arg.beta = 1000;
do_arg.dwf_height = 0.9;
GJP.Initialize(do_arg);
//----------------------------------------------------------------
// Initialize argument structures
//----------------------------------------------------------------
CommonArg common_arg_ghb;
CommonArg common_arg_plaq;
GhbArg ghb_arg;
ghb_arg.num_iter = 1;
NoArg plaq_arg;
//----------------------------------------------------------------
// Run GHB
//----------------------------------------------------------------
{
GwilsonFstag lat;
{
common_arg_ghb.set_filename("ghb.dat");
AlgGheatBath ghb(lat,&common_arg_ghb,&ghb_arg);
common_arg_plaq.set_filename("plaq.dat");
AlgPlaq plaq(lat,&common_arg_plaq,&plaq_arg);
for (int i = 0; i < ITERATIONS; ++i) {
ghb.run();
plaq.run();
}
}
}
return(0);
}