first complete version

should now be tested and completed

amr2cube/src/amr2cube.f90

@@ -35,6 +35,7 @@ program amr2cube
   use cells_array_m, only : cells_array_t
   use constants_m, only : IDKIND
   use cubes_array_m, only : cubes_array_t
+  use fortran_hdf5_manage_interface_m
   use iso_fortran_env, only : OUTPUT_UNIT
   use mpi
   use ramses_info_m, only : ramses_info_t
@@ -55,6 +56,8 @@ program amr2cube
   type(ramses_output_t) :: ramses_output
   
   call mpi_init(mpierr)
+  call Hdf5_init()
+
   call mpi_process%Init()
   call mpi_process%Print()
 
@@ -72,9 +75,7 @@ program amr2cube
 
   call ramses_output%Deallocate()
 
-  call cells_array%Sort()
-
-  call cells_array%Remove_duplicate()
+  call cells_array%Clean(amr2cube_parameters%cube_level)
 
   call cubes_array%Init(amr2cube_parameters, ramses_info)
 
@@ -85,12 +86,10 @@ program amr2cube
   call cells_array%Distribute(cube_to_process)
   
   call cubes_array%Associate(cells_array, global_cells_per_cube)
-  ! if(mpi_process%rank == 0) then
-  !    do mpierr=1,cubes_array%ncubes
-  !       write(OUTPUT_UNIT,*) cubes_array%elts(mpierr)%process_rank
-  !    end do
-  !  end if
 
+  call cubes_array%Write()
+
+  call Hdf5_finalize()
   call mpi_finalize(mpierr)
 
 end program amr2cube