dbcsr_mutable_destroy Subroutine

public subroutine dbcsr_mutable_destroy(mutable)

Destroys a mutable data type

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mutable_obj), intent(inout) :: mutable

mutable data


Contents

Source Code


Source Code

   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