C++ (Cpp) QDP_get_default_lattice示例

示例#1

文件： lattice.c 项目： jcosborn/qhmc

static int
qopqdp_lattice_gc(lua_State *L)
{
    lattice_t *lat = qopqdp_check_lattice(L, -1);
    if(lat->doGC) {
        if(lat->timeslices) {
            QDP_destroy_subset(lat->timeslices);
            lat->timeslices = NULL;
        }
        if(lat->staggered) {
            QDP_destroy_subset(lat->staggered);
            lat->staggered = NULL;
        }
        for(int i=0; i<=lat->nd; i++) {
            if(lat->eodir[i]) {
                QDP_destroy_subset(lat->eodir[i]);
                lat->eodir[i] = NULL;
            }
        }
        free(lat->eodir);
        //if(lat->rs) {
        //QDP_destroy_S(lat->rs);
        //lat->rs = NULL;
        //}
        if(lat->qlat!=QDP_get_default_lattice()) {
            QDP_destroy_lattice(lat->qlat);
            lat->qlat = NULL;
        }
    }
    return 0;
}

示例#2

文件： QDP_create_T.c 项目： 6twirl9/qdp

QDP$PC_create_$ABBR($NCVOID)
{
  QDP_Lattice *lat = QDP_get_default_lattice();
  return QDP$PC_create_$ABBR_L($NCVAR lat);
}