int
setup()
{
int prompt;
/* print banner, get volume, nflavors1,nflavors2, seed */
prompt = initial_set();
if(prompt == 2)return prompt;
/* 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();
node0_printf("Made lattice\n"); fflush(stdout);
/* Mark t_longlink and t_fatlink unallocted */
// init_ferm_links(&fn_links, &ks_act_paths);
/* set up neighbor pointers and comlink structures
code for this routine is in com_machine.c */
make_nn_gathers();
node0_printf("Made nn gathers\n"); fflush(stdout);
/* set up 3rd nearest neighbor pointers and comlink structures
code for this routine is below */
make_3n_gathers();
node0_printf("Made 3nn gathers\n"); fflush(stdout);
/* set up K-S phase vectors, boundary conditions */
phaseset();
node0_printf("Finished setup\n"); fflush(stdout);
return( prompt );
}
int setup() {
int prompt;
/* 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();
/* Initialize fermion links as unallocated */
// init_ferm_links(&fn_links, &ks_act_paths);
// init_ferm_links(&fn_links_dmdu0, &ks_act_paths_dmdu0);
/* 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();
return(prompt);
}
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(void)
{
int prompt;
/* print banner, get volume, 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();
node0_printf("Made lattice\n"); fflush(stdout);
/* set up neighbor pointers and comlink structures */
make_nn_gathers();
node0_printf("Made nn gathers\n"); fflush(stdout);
/* set up 3rd nearest neighbor pointers and comlink structures
code for this routine is below */
make_3n_gathers();
node0_printf("Made 3nn gathers\n"); fflush(stdout);
/* set up K-S phase vectors, boundary conditions */
phaseset();
node0_printf("Finished setup\n"); fflush(stdout);
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() {
int initial_set();
void make_gen_pt();
void make_3n_gathers(),
setup_layout();
int prompt;
//#ifdef HAVE_QDP
// int i;
//#endif
/* print banner, get volume, 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();
node0_printf("Made lattice\n"); fflush(stdout);
//init_ferm_links(&fn_links, &ks_act_paths);
/* set up neighbor pointers and comlink structures
code for this routine is in com_machine.c */
make_nn_gathers();
node0_printf("Made nn gathers\n"); fflush(stdout);
#ifdef FN
/* set up 3rd nearest neighbor pointers and comlink structures
code for this routine is below */
make_3n_gathers();
node0_printf("Made 3nn gathers\n"); fflush(stdout);
#endif
/* set up K-S phase vectors, boundary conditions */
phaseset();
//#if HAVE_QOP
// /* Initialize QOP */
// if(initialize_qop() != QOP_SUCCESS){
// node0_printf("setup: Error initializing QOP\n");
// terminate(1);
// }
//#endif
//#ifdef HAVE_QDP
// make_rand_seed();
//node0_printf("Made random seed\n"); fflush(stdout);
//
// 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
node0_printf("Finished setup\n"); fflush(stdout);
return( prompt );
}
int
setup()
{
int prompt;
#ifdef HAVE_QDP
int i;
#endif
/* print banner, get volume, 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();
node0_printf("Made lattice\n"); fflush(stdout);
/* Mark fermion links as unallocated */
init_ferm_links(&fn_links);
#ifdef DM_DU0
init_ferm_links(&fn_links_dmdu0);
#endif
/* set up neighbor pointers and comlink structures */
make_nn_gathers();
node0_printf("Made nn gathers\n"); fflush(stdout);
/* set up 3rd nearest neighbor pointers and comlink structures
code for this routine is below */
make_3n_gathers();
node0_printf("Made 3nn gathers\n"); fflush(stdout);
/* set up K-S phase vectors, boundary conditions */
phaseset();
#ifdef HAVE_QDP
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
node0_printf("Finished setup\n"); fflush(stdout);
return( prompt );
}