gtool5 Fortran 90/95 Library 1.0.0-rc5
日本語
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 )

Initialize CLOCK variable

Initialize a CLOCK type variable before using it. Give the measurement content to name.

Parameters
[out]clkCLOCK type variable to initialize
[in]nameName of measurement content

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)
Date and time manipulation module.
Definition dc_date.f90:57
Message output module.

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: