logger Derived Type

type, private :: logger

日志


Contents

Variables

Type-Bound Procedures

Source Code

logger

Components

Type Visibility Attributes Name Initial
integer, public :: unit

日志文件单元号
character(len=7), public :: filename = 'spx.log'

日志文件名
character(len=34), public :: fmt = '(a, t20, ": ", *(g0.4, :, ", "))'

数据日志格式
character(len=34), public :: longfmt = '(a, t40, ": ", *(g0.4, :, ", "))'

数据日志长格式

Type-Bound Procedures

procedure, public, :: destory

  • private subroutine destory(self)

    关闭

    Arguments

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

procedure, public, :: init

  • private subroutine init(self)

    初始化

    Arguments

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

Source Code

    type logger
        integer :: unit  !! 日志文件单元号
        character(7) :: filename = 'spx.log'  !! 日志文件名
        character(34) :: fmt = '(a, t20, ": ", *(g0.4, :, ", "))'  !! 数据日志格式
        character(34) :: longfmt = '(a, t40, ": ", *(g0.4, :, ", "))'  !! 数据日志长格式
    contains
        procedure :: init, destory
    end type logger