function subs1to2,ind,dimension=dimension,array=array

;	Converts 1-d subscript to 2-d

if n_elements(dimension) gt 0 then sz=dimension else sz=size(array)

index=long(ind+0.5)

M=sz(1)

return,transpose([[fix(index mod M)],[fix(index/M)]])

end