sep_copy_grid - copy a grid from one tag to another
ierr=sep_copy_grid( intag, outtag)
input tag
output tag
0= if sucessfully copies the grid
1= if the grid doesn't exist in the intag
-1= fails for some other reason
When the grid exists, copies contents from intag to outtag
sep3d