Public Member Functions
subroutine	dcclockgetr (clk, sec, err)
subroutine	dcclockgetd (clk, sec, err)

Detailed Description

Definition at line 181 of file dc_clock.f90.

Member Function/Subroutine Documentation

◆ dcclockgetd()

subroutine dc_clock::get::dcclockgetd	(	type(clock), intent(in)	clk,
		real(dp), intent(out)	sec,
		logical, intent(out), optional	err )

Get CPU time (in seconds) - double precision

Gets CPU time (in seconds) to sec.

If clk has not been initialized by DCClockCreate, an error is raised. If err is provided, .true. is returned in err and the program continues.

Parameters

[in]	clk	CLOCK type variable
[out]	sec	CPU time in seconds (double precision)
[out]	err	Error flag (optional). .true. if error occurred.

Definition at line 471 of file dc_clock.f90.

    use dc_types, only: dp
    use dc_string, only: cprintf
    use dc_message, only: messagenotify
    use dc_date, only: evalsec
    use dc_error, only: storeerror, dc_enotinit, dc_noerr
    implicit none
    type(CLOCK), intent(in):: clk
    real(DP), intent(out):: sec
    logical, intent(out), optional:: err
    character(STRING):: cause_c
    integer:: stat
    character(*), parameter:: subname = 'DCClockGetD'
  continue
    call beginsub(subname)
    stat = dc_noerr
    cause_c = 'CLOCK'
    if (.not. clk % initialized) then
      call messagenotify('W', subname, 'Call Create before Get in dc_clock.')
      call dbgmessage('Ignored because input argument was not initialized.')
      stat = dc_enotinit
      goto 999
    end if
    sec = clk % elapsed_time
    call dbgmessage('name=%c, return sec=<%f>', &
      & c1=trim(clk % name), d=(/sec/))
999 continue
    call storeerror(stat, subname, err, cause_c)
    call endsub(subname)

◆ dcclockgetr()

subroutine dc_clock::get::dcclockgetr	(	type(clock), intent(in)	clk,
		real, intent(out)	sec,
		logical, intent(out), optional	err )

Get CPU time (in seconds) - single precision