gtool5 Fortran 90/95 ライブラリ 1.0.0-rc5
English
Loading...
Searching...
No Matches
dc_clock::dcclockcreate Interface Reference

Public Member Functions

subroutine dcclockcreate0 (clk, name)

Detailed Description

Definition at line 123 of file dc_clock.f90.

Member Function/Subroutine Documentation

◆ dcclockcreate0()

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

CLOCK の初期化用サブルーチン

CLOCK 型の変数を利用する際にはまずこのサブルーチンによって 初期化を行ってください。name には計測内容を与えてください。

Parameters
[out]clk初期化する CLOCK 型変数
[in]name計測内容の名称

Definition at line 223 of file dc_clock.f90.

224 use dc_message, only: messagenotify
225 use dc_date, only: dcdatetimecreate
226 implicit none
227 type(CLOCK), intent(out):: clk
228 character(*), intent(in):: name
229 character(*), parameter:: subname = 'DCClockCreate'
230 continue
231 call beginsub(subname, 'name=%c', c1=trim(name), version=version)
232 if (clk % initialized) then
233 call messagenotify('W', subname, 'This argument (type CLOCK) is already initialized.')
234 call dbgmessage('already initialized')
235 goto 999
236 end if
237 clk % name = name
238 clk % elapsed_time = 0.0
239 clk % start_time = - 1.0
240 clk % initialized = .true.
241 call dcdatetimecreate(clk % start_date)
242 call dbgmessage('normal initialized')
243999 continue
244 call endsub(subname)
日付および時刻に関する手続きを提供するモジュール
Definition dc_date.f90:57
メッセージの出力

References dc_trace::beginsub(), dc_trace::dbgmessage(), and dc_trace::endsub().

Here is the call graph for this function:

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