base_final_storage Subroutine

public subroutine base_final_storage(self)

Finalizer for the storage object

Arguments

Type IntentOptional Attributes Name
class(base_storage), intent(inout) :: self

Calls

proc~~base_final_storage~~CallsGraph proc~base_final_storage base_final_storage proc~base_util_dealloc_storage base_storage%base_util_dealloc_storage proc~base_final_storage->proc~base_util_dealloc_storage proc~base_util_reset_storage base_storage%base_util_reset_storage proc~base_util_dealloc_storage->proc~base_util_reset_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