Destroys a mutable data type
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(dbcsr_mutable_obj), | intent(inout) | :: | mutable |
mutable data |
SUBROUTINE dbcsr_mutable_destroy(mutable)
!! Destroys a mutable data type
TYPE(dbcsr_mutable_obj), INTENT(INOUT) :: mutable
!! mutable data
! ---------------------------------------------------------------------------
IF (ASSOCIATED(mutable%m)) THEN
CALL btree_delete(mutable%m%btree_s)
CALL btree_delete(mutable%m%btree_d)
CALL btree_delete(mutable%m%btree_c)
CALL btree_delete(mutable%m%btree_z)
DEALLOCATE (mutable%m)
END IF
NULLIFY (mutable%m)
END SUBROUTINE dbcsr_mutable_destroy