int setup(void) {
int prompt, dir;
/* print banner, get volume */
prompt=initial_set();
if(prompt == 2)return prompt;
/* initialize the node random number generator */
initialize_prn( &node_prn, param.iseed, volume+mynode() );
/* Initialize the layout functions, which decide where sites live */
setup_layout();
/* allocate space for lattice, set up coordinate fields */
make_lattice();
FORALLUPDIR(dir){
boundary_phase[dir] = 0.;
}
/* set up nearest neighbor gathers */
make_nn_gathers();
/* set up 3rd nearest neighbor pointers and comlink structures
code for this routine is below */
make_3n_gathers();
/* set up K-S phase vectors, boundary conditions */
phaseset();
twist_in = OFF;
/* Create clover structure */
gen_clov = create_clov();
return(prompt);
}
int setup() {
int prompt;
/* print banner, get volume */
prompt=initial_set();
/* Initialize the layout functions, which decide where sites live */
setup_layout();
/* allocate space for lattice, set up coordinate fields */
make_lattice();
/* set up nearest neighbor gathers */
make_nn_gathers();
/* set up 3rd nearest neighbor pointers and comlink structures
code for this routine is below */
make_3n_gathers();
/* set up K-S phase vectors, boundary conditions */
phaseset();
/* Create clover structure */
gen_clov = create_clov();
#ifdef HAVE_QDP
{
int i;
for(i=0; i<4; ++i) {
shiftdirs[i] = QDP_neighbor[i];
shiftdirs[i+4] = neighbor3[i];
}
for(i=0; i<8; ++i) {
shiftfwd[i] = QDP_forward;
shiftbck[i] = QDP_backward;
}
}
#endif
return(prompt);
}
int setup_cl() {
int initial_set();
int prompt;
/* print banner, get volume */
prompt=initial_set();
/* Initialize the layout functions, which decide where sites live */
setup_layout();
/* allocate space for lattice, set up coordinate fields */
make_lattice();
/* set up nearest neighbor gathers */
make_nn_gathers();
/* Create clover structure */
gen_clov = create_clov();
return(prompt);
}
int setup() {
int prompt;
/* print banner, get volume, nflavors, seed */
prompt=initial_set();
/* initialize the node random number generator */
initialize_prn(&node_prn,iseed,volume+mynode());
/* Initialize the layout functions, which decide where sites live */
setup_layout();
/* allocate space for lattice, set up coordinate fields */
make_lattice();
/* set up neighbor pointers and comlink structures */
make_nn_gathers();
/* Create clover structure */
gen_clov = create_clov();
return(prompt);
}