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