base_final_storage Subroutine

public subroutine base_final_storage(self)

Finalizer for the storage object

Arguments

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

Contents

Source Code


Source Code

      subroutine base_final_storage(self)
         !! author: David A. Minton 
         !! 
         !! Finalizer for the storage object 
         implicit none
         ! Arguments
         class(base_storage), intent(inout) :: self

         call self%dealloc()
         return
      end subroutine base_final_storage