init Subroutine

private subroutine init(self)

初始化

Type Bound

logger

Arguments

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

Contents

Source Code

init

Source Code

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

        open (newunit=self%unit, file=self%filename, status='replace', action='write')
        write (self%unit, '(a)') nowtime()

    end subroutine init