base_final_storage Subroutine

  1. base_module.f90
  2. base
  3. base_final_storage

public subroutine base_final_storage(self)

Finalizer for the storage object

Arguments

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

Contents

Source Code

base_final_storage

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