gtool5 Fortran 90/95 Library 1.0.0-rc5
日本語
Loading...
Searching...
No Matches
Public Member Functions | List of all members
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 
)

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 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)
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: