sep3d_desection - desection a tag
logic= sep3d_desection(struct)
structure
Desection a tag
supersetf90