LoggerClass Module

Uses

Contents

Variables

PF_MAX_CHANNEL_NUM

Derived Types

Logger_

Functions

numchannelLogger

Subroutines

initLogger setLogger startLogger saveLogger resetLogger

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=int32),	public		::	PF_MAX_CHANNEL_NUM	=	100

Derived Types

type, public :: Logger_

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
procedure, public :: numchannel => numchannelLogger
procedure, public :: set => setLogger
procedure, public :: start => startLogger
procedure, public :: save => saveLogger
procedure, public :: reset => resetLogger

Functions

public function numchannelLogger(this) result(ret)

Arguments

Type	Intent	Optional	Attributes		Name
class(Logger_),	intent(inout)			::	this

Return Value integer(kind=int32)

Subroutines

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

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

public subroutine startLogger(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(Logger_),	intent(inout)			::	this

public subroutine saveLogger(this, t)

Arguments

Type	Intent	Optional	Attributes		Name
class(Logger_),	intent(inout)			::	this
real(kind=real64),	intent(in),	optional		::	t

public subroutine resetLogger(this)

Arguments

Type	Intent	Optional	Attributes		Name
class(Logger_),	intent(inout)			::	this