Logger_ Derived Type

type, public :: Logger_

Contents

Variables

channel_name channel_value channel_id channel_active initialized counter

Type-Bound Procedures

init numchannel set start save reset

Components

Type	Visibility	Attributes		Name		Initial
type(string_),	public,	allocatable	::	channel_name(:)
type(Real64Ptr_),	public,	allocatable	::	channel_value(:)
integer(kind=int32),	public,	allocatable	::	channel_id(:)
logical,	public,	allocatable	::	channel_active(:)
logical,	public		::	initialized	=	.False.
integer(kind=int32),	public		::	counter	=	0

Type-Bound Procedures

procedure, public :: init => initLogger

public subroutine initLogger(this, MAX_CHANNEL_NUM)

Arguments

Type	Intent	Optional	Attributes		Name
class(Logger_),	intent(inout)			::	this
integer(kind=int32),	intent(in),	optional		::	MAX_CHANNEL_NUM

procedure, public :: numchannel => numchannelLogger

public function numchannelLogger(this) result(ret)

Arguments

Type Intent Optional Attributes Name

class(Logger_), intent(inout) :: this

Return Value integer(kind=int32)

procedure, public :: set => setLogger

public subroutine setLogger(this, channel_name, channel_value, channel_id)

Arguments

Type	Intent	Optional	Attributes		Name
class(Logger_),	intent(inout)			::	this
character(len=*),	intent(in)			::	channel_name
real(kind=real64),	intent(in),		target	::	channel_value
integer(kind=int32),	intent(in),	optional		::	channel_id

procedure, public :: start => startLogger

public subroutine startLogger(this)

Arguments

Type Intent Optional Attributes Name

class(Logger_), intent(inout) :: this

procedure, public :: save => saveLogger

public subroutine saveLogger(this, t)

Arguments

Type Intent Optional Attributes Name

class(Logger_), intent(inout) :: this

real(kind=real64), intent(in), optional :: t

procedure, public :: reset => resetLogger

public subroutine resetLogger(this)

Arguments

Type Intent Optional Attributes Name

class(Logger_), intent(inout) :: this