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 127 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 227 of file dc_clock.f90.

228 use dc_message, only: messagenotify
229 use dc_date, only: dcdatetimecreate
230 implicit none
231 type(CLOCK), intent(out):: clk
232 character(*), intent(in):: name
233 character(*), parameter:: subname = 'DCClockCreate'
234 continue
235 call beginsub(subname, 'name=%c', c1=trim(name), version=version)
236 if (clk % initialized) then
237 call messagenotify('W', subname, 'This argument (type CLOCK) is already initialized.')
238 call dbgmessage('already initialized')
239 goto 999
240 end if
241 clk % name = name
242 clk % elapsed_time = 0.0
243 clk % start_time = - 1.0
244 clk % initialized = .true.
245 call dcdatetimecreate(clk % start_date)
246 call dbgmessage('normal initialized')
247999 continue
248 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: