sep3d_copy - a copy a structure and its contents
logic= sep3d_copy(struct1,struct2)
structure
Copy from struct1 to struct2
supersetf90