Destroy the key.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(key_morton), | intent(inout) | :: | self | The key. |
elemental subroutine destroy(self)
!---------------------------------------------------------------------------------------------------------------------------------
!< Destroy the key.
!---------------------------------------------------------------------------------------------------------------------------------
class(key_morton), intent(inout) :: self !< The key.
!---------------------------------------------------------------------------------------------------------------------------------
!---------------------------------------------------------------------------------------------------------------------------------
! there is no dynamic memory, nothing to destroy
self%key = 0_I8P
!---------------------------------------------------------------------------------------------------------------------------------
endsubroutine destroy