hashtbl_obj_Final Subroutine

private pure subroutine hashtbl_obj_Final(this)

Type Bound

hashtbl_obj

Arguments

Type IntentOptional Attributes Name
class(hashtbl_obj), intent(inout) :: this

Hashtable object


Called by

proc~~hashtbl_obj_final~~CalledByGraph proc~hashtbl_obj_final hashtbl_obj%hashtbl_obj_Final proc~hdf5_obj_final hdf5_obj%hdf5_obj_Final proc~hdf5_obj_final->proc~hashtbl_obj_final proc~region_obj_final region_obj%region_obj_Final proc~region_obj_final->proc~hashtbl_obj_final proc~timer_obj_final timer_obj%timer_obj_Final proc~timer_obj_final->proc~hashtbl_obj_final proc~bc_set_final bc_set%bc_set_Final proc~bc_set_final->proc~region_obj_final proc~bc_set_read bc_set%bc_set_Read proc~bc_set_read->proc~hdf5_obj_final proc~bc_set_write bc_set%bc_set_Write proc~bc_set_write->proc~hdf5_obj_final proc~block_obj_read block_obj%block_obj_Read proc~block_obj_read->proc~hdf5_obj_final proc~block_obj_write block_obj%block_obj_Write proc~block_obj_write->proc~hdf5_obj_final proc~eulerian_set_readhdf5 eulerian_set%eulerian_set_ReadHDF5 proc~eulerian_set_readhdf5->proc~hdf5_obj_final proc~eulerian_set_writehdf5 eulerian_set%eulerian_set_WriteHDF5 proc~eulerian_set_writehdf5->proc~hdf5_obj_final proc~h5hut_obj_final h5hut_obj%h5hut_obj_Final proc~h5hut_obj_final->proc~hdf5_obj_final proc~marker_set_readhdf5 marker_set%marker_set_ReadHDF5 proc~marker_set_readhdf5->proc~hdf5_obj_final proc~marker_set_writehdf5 marker_set%marker_set_WriteHDF5 proc~marker_set_writehdf5->proc~hdf5_obj_final proc~particle_set_readhdf5 particle_set%particle_set_ReadHDF5 proc~particle_set_readhdf5->proc~hdf5_obj_final proc~particle_set_writehdf5 particle_set%particle_set_WriteHDF5 proc~particle_set_writehdf5->proc~hdf5_obj_final proc~respart_set_readhdf5 ResPart_set%ResPart_set_ReadHDF5 proc~respart_set_readhdf5->proc~hdf5_obj_final proc~respart_set_readhdf5->proc~marker_set_readhdf5 proc~respart_set_writehdf5 ResPart_set%ResPart_set_WriteHDF5 proc~respart_set_writehdf5->proc~hdf5_obj_final proc~respart_set_writehdf5->proc~marker_set_writehdf5 proc~solid_set_readhdf5 solid_set%solid_set_ReadHDF5 proc~solid_set_readhdf5->proc~hdf5_obj_final proc~solid_set_readhdf5->proc~marker_set_readhdf5 proc~solid_set_writehdf5 solid_set%solid_set_WriteHDF5 proc~solid_set_writehdf5->proc~hdf5_obj_final proc~solid_set_writehdf5->proc~marker_set_writehdf5 proc~eulerian_set_readh5hut eulerian_set%eulerian_set_ReadH5HUT proc~eulerian_set_readh5hut->proc~h5hut_obj_final proc~eulerian_set_writeh5hut eulerian_set%eulerian_set_WriteH5HUT proc~eulerian_set_writeh5hut->proc~h5hut_obj_final proc~marker_set_readh5hut marker_set%marker_set_ReadH5HUT proc~marker_set_readh5hut->proc~h5hut_obj_final proc~marker_set_writeh5hut marker_set%marker_set_WriteH5HUT proc~marker_set_writeh5hut->proc~h5hut_obj_final proc~particle_set_readh5hut particle_set%particle_set_ReadH5HUT proc~particle_set_readh5hut->proc~h5hut_obj_final proc~particle_set_writeh5hut particle_set%particle_set_WriteH5HUT proc~particle_set_writeh5hut->proc~h5hut_obj_final proc~respart_set_readh5hut ResPart_set%ResPart_set_ReadH5HUT proc~respart_set_readh5hut->proc~h5hut_obj_final proc~respart_set_writeh5hut ResPart_set%ResPart_set_WriteH5HUT proc~respart_set_writeh5hut->proc~h5hut_obj_final proc~respart_set_writeh5hut->proc~marker_set_writeh5hut proc~solid_set_readh5hut solid_set%solid_set_ReadH5HUT proc~solid_set_readh5hut->proc~h5hut_obj_final proc~solid_set_writeh5hut solid_set%solid_set_WriteH5HUT proc~solid_set_writeh5hut->proc~h5hut_obj_final

Source Code

    pure subroutine hashtbl_obj_Final(this)
      ! Finalizes the hashtable; clearing any
      ! allocated memory.
      implicit none
      class(hashtbl_obj), intent(inout) :: this                                !! Hashtable object
      ! Work variable
      integer     :: i

      if (allocated(this%vec)) then
        do i=1,this%vec_len
          call this%vec(i)%Free()
        end do
        deallocate(this%vec)
      end if

      return
    end subroutine hashtbl_obj_Final