base_final_storage_frame Subroutine

public subroutine base_final_storage_frame(self)

Finalizer for the storage frame data type

Arguments

Type IntentOptional Attributes Name
type(base_storage_frame) :: self

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