dealloc_rdm_spawn_t Subroutine

public subroutine dealloc_rdm_spawn_t(spawn)

Uses

Arguments

Type IntentOptional Attributes Name
type(rdm_spawn_t), intent(inout) :: spawn

Contents

Source Code

dealloc_rdm_spawn_t

Source Code

    subroutine dealloc_rdm_spawn_t(spawn)

        ! Deallocate an rdm_spawn_t object.

        ! In/Out: spawn - rdm_spawn_t object to be deallocated.

        use hash, only: clear_hash_table

        type(rdm_spawn_t), intent(inout) :: spawn

        integer :: ierr

        call dealloc_rdm_list_t(spawn%rdm_send)

        if (allocated(spawn%free_slots)) deallocate(spawn%free_slots, stat=ierr)
        if (allocated(spawn%init_free_slots)) deallocate(spawn%init_free_slots, stat=ierr)

    end subroutine dealloc_rdm_spawn_t