base_util_dealloc_param Subroutine

public subroutine base_util_dealloc_param(self)

Deallocates all allocatables

Type Bound

base_parameters

Arguments

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

Collection of parameters


Source Code

      subroutine base_util_dealloc_param(self)
         !! author: David A. Minton 
         !! 
         !! Deallocates all allocatables 
         implicit none
         ! Arguments
         class(base_parameters),intent(inout)  :: self  
            !! Collection of parameters 

         if (allocated(self%seed)) deallocate(self%seed)

         return
      end subroutine base_util_dealloc_param