Alloc(PE[(Subscript[BK, index])],X[k,n:n+ntile],(Subscript[X, addr])[(Subscript[BK, index])],(ntile/16));