sep3d_distribute_data - distribute a datase
logic= sep3d_distribute_data(struct_in,struct_out,data_in,data_out)
structure
input dataset
output dataset
Distribute a dataset into sections
supersetf90