Free dynamic memory.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(section), | intent(inout) | :: | self | Section data. |
elemental subroutine free(self)
!< Free dynamic memory.
class(section), intent(inout) :: self !< Section data.
if (allocated(self%sname)) deallocate(self%sname)
call self%free_options
endsubroutine free