base_util_dealloc_storage Subroutine

public subroutine base_util_dealloc_storage(self)

Resets a storage object by deallocating all items and resetting the frame counter to 0

Type Bound

base_storage

Arguments

Type IntentOptional Attributes Name
class(base_storage), intent(inout) :: self

Swiftest storage object


Calls

proc~~base_util_dealloc_storage~~CallsGraph proc~base_util_dealloc_storage base_storage%base_util_dealloc_storage proc~base_util_reset_storage base_storage%base_util_reset_storage proc~base_util_dealloc_storage->proc~base_util_reset_storage

Called by

proc~~base_util_dealloc_storage~~CalledByGraph proc~base_util_dealloc_storage base_storage%base_util_dealloc_storage proc~base_final_storage base_final_storage proc~base_final_storage->proc~base_util_dealloc_storage

Source Code

      subroutine base_util_dealloc_storage(self)
         !! author: David A. Minton 
         !! 
         !! Resets a storage object by deallocating all items and resetting the frame counter to 0 
         implicit none
         ! Arguments
         class(base_storage), intent(inout) :: self 
            !! Swiftest storage object 

         call self%reset()
         if (allocated(self%frame)) deallocate(self%frame)
         self%nframes = 0
   
         return
      end subroutine base_util_dealloc_storage