base_util_dealloc_param Subroutine

  1. base_module.f90
  2. base
  3. base_util_dealloc_param

public subroutine base_util_dealloc_param(self)

Deallocates all allocatables

Arguments

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

Collection of parameters


Contents

Source Code

base_util_dealloc_param

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