dc_clock::dcclockcreate Interface Reference

Private Member Functions
subroutine	dcclockcreate0 (clk, name)

Detailed Description

Definition at line 134 of file dc_clock.f90.

Member Function/Subroutine Documentation

dcclockcreate0()

subroutine dc_clock::dcclockcreate::dcclockcreate0 ( type(clock), intent(out)  clk, character(*), intent(in)  name  )

private

Definition at line 216 of file dc_clock.f90.

    !
    !=== CLOCK の初期化用サブルーチン
    !
    ! CLOCK 型の変数を利用する際にはまずこのサブルーチンによって
    ! 初期化を行ってください. *name* には計測内容を与えてください.
    !
    use dc_message, only: messagenotify
    use dc_date, only: dcdatetimecreate
    implicit none
    type(clock), intent(out):: clk
    character(*), intent(in):: name
    character(*), parameter:: subname = 'DCClockCreate'
  continue
    call beginsub(subname, 'name=%c', c1=trim(name), version=version)
    if (clk % initialized) then
      call messagenotify('W', subname, 'This argument (type CLOCK) is already initialized.')
      call dbgmessage('already initialized')
      goto 999
    end if
    clk % name = name
    clk % elapsed_time = 0.0
    clk % start_time = - 1.0
    clk % initialized = .true.
    call dcdatetimecreate(clk % start_date)
    call dbgmessage('normal initialized')
999 continue
    call endsub(subname)

---

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

• dc_utils/dc_clock.f90