base_final_storage_frame Subroutine

public subroutine base_final_storage_frame(self)

Finalizer for the storage frame data type

Arguments

TypeIntentOptionalAttributesName
type(base_storage_frame) :: self

Contents


Source Code

      subroutine base_final_storage_frame(self)
         !! author: David A. Minton 
         !! 
         !! Finalizer for the storage frame data type 
         implicit none
         type(base_storage_frame) :: self
   
         if (allocated(self%item)) deallocate(self%item)
   
         return
      end subroutine base_final_storage_frame