fdtype
tok = fdtype(*prdptr[nprod]);
fdtype(prdptr[nprod][i]);
tok = fdtype(prdptr[nprod][j+offset]);