Destroy alpha coefficients.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(alpha_coefficients_m), | intent(inout) | :: | self | Alpha coefficients. |
elemental subroutine destroy(self)
!< Destroy alpha coefficients.
class(alpha_coefficients_m), intent(inout) :: self !< Alpha coefficients.
call self%alpha_coefficients%destroy
if (allocated(self%alpha_base)) deallocate(self%alpha_base)
endsubroutine destroy