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