dc_clock::get Interface Reference

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

Detailed Description

Definition at line 192 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  )

private

Definition at line 385 of file dc_clock.f90.

    !
    !=== CPU 時間 (単位: 秒) の取得
    !
    ! CPU 時間 (単位: 秒) を *sec* に取得します.
    !
    ! 第一引数 *clk* に対して DCClockCreate による初期化が行われていない場合,
    ! エラーを発生させます.
    ! 第二引数 *err* を与える場合には *err* に .true. が返り,
    ! プログラムは続行されます.
    !
    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  )

private

Definition at line 346 of file dc_clock.f90.

    !
    !=== CPU 時間 (単位: 秒) の取得
    !
    ! CPU 時間 (単位: 秒) を *sec* に取得します.
    !
    ! 第一引数 *clk* に対して DCClockCreate による初期化が行われていない場合,
    ! エラーを発生させます. *err* を与える場合には *err* に .true. が返り,
    ! プログラムは続行されます.
    !
    use dc_types, only: dp
    use dc_message, only: messagenotify
    use dc_date, only: evalsec
    use dc_string, only: cprintf
    use dc_error, only: storeerror, dc_enotinit, dc_noerr
    implicit none
    type(clock), intent(in):: clk
    real, intent(out):: sec
    logical, intent(out), optional:: err
    character(STRING):: cause_c
    integer:: stat
    character(*), parameter:: subname = 'DCClockGetR'
  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=<%r>', &
      & c1=trim(clk % name), r=(/sec/))
999 continue
    call storeerror(stat, subname, err, cause_c)
    call endsub(subname)

---

The documentation for this interface was generated from the following file:

• dc_utils/dc_clock.f90