utils Module


Uses


Derived Types

type, public ::  Timer

Components

Type Visibility Attributes Name Initial
real(kind=wp), public :: start_time
real(kind=wp), public :: end_time
real(kind=wp), public :: elapsed_time
real(kind=wp), public :: plasma_time
character(len=120), public :: file_name

Type-Bound Procedures

procedure, public :: start => Time_start
procedure, public :: stop => Time_stop
procedure, public :: stop_and_save => Time_stop_and_save

Functions

public function sys_time()

Arguments

None

Return Value real(kind=wp)


Subroutines

public subroutine Time_start(this, fn, pt)

Arguments

Type IntentOptional Attributes Name
class(Timer), intent(inout) :: this
character(len=*), intent(in) :: fn
real(kind=wp), intent(in) :: pt

public subroutine Time_stop(this)

Arguments

Type IntentOptional Attributes Name
class(Timer), intent(inout) :: this

public subroutine Time_stop_and_save(this)

Arguments

Type IntentOptional Attributes Name
class(Timer), intent(inout) :: this