dc_clock::set_name Interface Reference

Public Member Functions
subroutine	dcclocksetname0 (clk, name, err)

Detailed Description

Definition at line 194 of file dc_clock.f90.

Member Function/Subroutine Documentation

dcclocksetname0()

subroutine dc_clock::set_name::dcclocksetname0	(	type(clock), intent(inout)	clk,
		character(*), intent(in)	name,
		logical, intent(out), optional	err )

Change the measurement name

Changes the measurement name of CLOCK variable clk. This name was originally specified by the name argument in Create.

If clk has not been initialized by DCClockCreate, an error is raised. If err is provided, .true. is returned in err and the program continues.

Parameters

[in,out]	clk	CLOCK type variable
[in]	name	New measurement name
[out]	err	Error flag (optional). .true. if error occurred.

Definition at line 1029 of file dc_clock.f90.

    use dc_message, only: messagenotify
    use dc_string, only: tochar, cprintf
    use dc_error, only: storeerror, dc_enotinit, dc_noerr
    implicit none
    type(CLOCK), intent(inout):: clk
    character(*), intent(in):: name
    logical, intent(out), optional:: err
    character(STRING):: cause_c
    integer:: stat
    character(*), parameter:: subname = 'DCClockSetName'
  continue
    call beginsub(subname)
    stat = dc_noerr
    cause_c = 'CLOCK'
    if (.not. clk % initialized) then
      call messagenotify('W', subname, 'Call Create before Set_Name in dc_clock.')
      call dbgmessage('Ignored because input argument was not initialized.')
      stat = dc_enotinit
      goto 999
    end if
    clk % name = name
    call dbgmessage('set new name "%c"', c1=trim(clk % name))
999 continue
    call storeerror(stat, subname, err, cause_c)
    call endsub(subname)

---

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

• /build/gtool5-1.0.0~rc5/debian/build-serial/src/dc_utils/dc_clock.f90