NUMCOL
#define DIMMSIZE(reg) ((1ULL << (NUMCOL(reg) + NUMROW(reg))) * NUMRANK(reg) \
dod_reg[i][j][k].NUMCol = NUMCOL(dod_value);
dimmp->ncolumn = NUMCOL(dod);