base_util_dealloc_storage Subroutine

  1. base_module.f90
  2. base
  3. base_util_dealloc_storage

public subroutine base_util_dealloc_storage(self)

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

Arguments

TypeIntentOptionalAttributesName
class(base_storage), intent(inout) :: self

Swiftest storage object


Contents

Source Code

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