Destroy polynomials.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(polynomials), | intent(inout) | :: | self | Polynomials. |
elemental subroutine destroy(self)
!< Destroy polynomials.
class(polynomials), intent(inout) :: self !< Polynomials.
if (allocated(self%poly)) deallocate(self%poly)
endsubroutine destroy