sep3d_own - check whether I own a given index of shared axis
logic= sep3d_own(struct,index)
structure
index along spread axis
Check whether the given process owns a given index
supersetf90