gtool_history_internal::lookup_variable_ord Interface Reference

Public Member Functions
integer function	lookup_variable_ord (history, varname)

Detailed Description

Definition at line 81 of file gtool_history_internal.f90.

Constructor & Destructor Documentation

lookup_variable_ord()

integer function gtool_history_internal::lookup_variable_ord::lookup_variable_ord	(	type(gt_history), intent(in)	history,
		character(len = *), intent(in)	varname
	)

Definition at line 291 of file gtool_history_internal.f90.

    !
    ! history 内の varname 変数の変数番号を返す.
    ! 現在, 明示的に history 変数を与えない場合の変数番号の
    ! 検索は出来ない.
    !
    use dc_types, only: string
    use gtdata_generic, only: inquire
    use dc_trace, only: beginsub, endsub, dbgmessage
    implicit none
    type(GT_HISTORY), intent(in):: history
    character(len = *), intent(in):: varname
    character(len = string):: name
    character(len = *), parameter:: subname = 'lookup_variable_ord'
  continue
    call beginsub(subname, 'var=%c', c1 = trim(varname))
    if (associated(history % vars)) then
      do, result = 1, size(history % vars)
        call inquire(history % vars(result), name=name)
        if (name == varname) goto 999
        call dbgmessage('no match <%c> <%c>', c1=trim(name), c2=trim(varname))
      enddo
    endif
    result = 0
999 continue
    call endsub(subname, "result=%d", i=(/result/))

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

Here is the call graph for this function:

---

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

• /build/gtool5-1.0.0~rc5/debian/build-serial/src/gtool/gtool_history/gtool_history_internal.f90