destory Subroutine

private subroutine destory(self)

关闭

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(logger),	intent(inout)			::	self

Contents

Source Code

destory

Source Code

    subroutine destory(self)
        class(logger), intent(inout) :: self

        close (self%unit)

    end subroutine destory