dc_trace Module Reference

Data Types
interface	datadump
interface	debug

Functions/Subroutines
integer function, public	sublevel ()
subroutine, public	dbg_scratch (on)
subroutine, public	setdebug (debug)
subroutine	dctracedebug (dbg_mode)
subroutine	initialize
subroutine, public	beginsub (name, fmt, i, r, d, L, n, c1, c2, c3, ca, version)
subroutine, public	endsub (name, fmt, i, r, d, L, n, c1, c2, c3, ca)
subroutine, public	dbgmessage (fmt, i, r, d, L, n, c1, c2, c3, ca)
subroutine	datad1dump (header, d, strlen, multi)
subroutine	datad2dump (header, d, strlen, multi)
subroutine	datad3dump (header, d, strlen, multi)
subroutine	append (unit, ucur, val, stat, strlen)

Variables
logical, save	lfirst = .true.
integer, save, public	dbg = -1
integer, save	level = 0
integer, parameter	trace_stack_size = 128
character(token), dimension(trace_stack_size), save	table
character(string), dimension(:), allocatable, save	called_subname
character(string), dimension(:), allocatable, save	called_subname_tmp
character(1), parameter	head = '#'
character(2), parameter	indent = '| '
character(2), parameter	meshead = '|-'

Function/Subroutine Documentation

append()

subroutine dc_trace::append	(	character(*), intent(inout)	unit,
		integer, intent(inout)	ucur,
		character(*), intent(in)	val,
		integer, intent(out)	stat,
		integer, intent(in), optional	strlen
	)

Definition at line 722 of file dc_trace.f90.

Referenced by datad1dump().

    !
    ! DataD1Dump の内部関数。
    ! unit に val を付加。その際、unit がその最大文字列長を越えた場合
    ! には stat = 2 を返す。
    !
    character(*), intent(inout):: unit ! 最終的に返される文字列
    integer,      intent(inout):: ucur ! unit の文字数
    character(*), intent(in)   :: val  ! unit に付加される文字列
    integer,      intent(out)  :: stat ! ステータス
    integer,      intent(in), &
      &        optional     :: strlen ! 文字数の手動指定
    integer                    :: wrsz ! val の文字列
    continue
    ! unit の最大長を越えた場合には stat = 2 を返す。
    if (present(strlen)) then
      if (ucur >= strlen) then
        stat = 2
        return
      endif
    else
      if (ucur >= len(unit)) then
        stat = 2
        return
      endif
    endif
    ! 正常時の処理。
    ! unit の長さを越えた場合も考慮して unit に val を付加する。
    wrsz = min(len(val), len(unit) - ucur)
    unit(1+ucur: wrsz+ucur) = val(1: wrsz)
    ucur = ucur + wrsz
    stat = 0
    if (wrsz < len(val)) stat = 1

Here is the caller graph for this function:

beginsub()

subroutine, public dc_trace::beginsub	(	character(*), intent(in)	name,
		character(*), intent(in), optional	fmt,
		integer, dimension(:), intent(in), optional	i,
		real, dimension(:), intent(in), optional	r,
		real(dp), dimension(:), intent(in), optional	d,
		logical, dimension(:), intent(in), optional	L,
		integer, dimension(:), intent(in), optional	n,
		character(*), intent(in), optional	c1,
		character(*), intent(in), optional	c2,
		character(*), intent(in), optional	c3,
		character(*), dimension(:), intent(in), optional	ca,
		character(*), intent(in), optional	version
	)

Definition at line 351 of file dc_trace.f90.

References called_subname, called_subname_tmp, dbg, dc_types::dp, head, indent, initialize(), level, lfirst, dc_types::string, and table.

Referenced by adjust_slice(), gtool_history_internal::append_attrs(), gtool_history_internal::copy_attrs(), dccalconvertbyunit1(), dccalconvertbyunit2(), dccalconverttoday1(), dccalconverttoday2(), dccalconverttohour1(), dccalconverttohour2(), dccalconverttomin1(), dccalconverttomin2(), dccalconverttosec1(), dccalconverttosec2(), dccalcreate1(), dccalcreate2(), dccaldatecreate1(), dccaldatecreate2(), dccaldatecurrent1(), dccaldatedifference1(), dccaldateevalid1(), dccaldateevalid2(), dccaldateevalym2ym1(), dccaldateevalym2ym2(), dccaldateevalymdhms1(), dccaldateevalymdhms2(), dccaldateinquire1(), dccaldateinquire2(), dccaldateparsestr1(), dccaldefault1(), dccalinquire1(), dccalparseunit1(), dc_clock::dcclockclose0(), dc_clock::dcclockcreate0(), dc_clock::dcclockgetd(), dc_clock::dcclockgetr(), dc_clock::dcclockpredict0(), dc_clock::dcclockputline0(), dc_clock::dcclockresult0(), dc_clock::dcclocksetname0(), dc_clock::dcclockstart0(), dc_clock::dcclockstop0(), dcdatetimecreate1(), dcdatetimeeval1(), dcdatetimeputline(), dcdatetimesetcaltype(), dcdatetimesetsecofday(), dcdatetimesetzone(), dcdifftimecreate1(), dcdifftimecreate2d(), dcdifftimeeval1(), dcdifftimeputline(), dc_scaledsec::dcscaledseccreated(), dc_scaledsec::dcscaledsecputline(), dc_iounit::fileopen(), gdncattrgetchar(), gdncfileclose(), gdncfiledefinemode(), gdncfileinquirename(), gdncfileopen(), gdncfilereopen(), gdncsearchdim(), gdncvarcreate(), gdncvarcreated(), gdncvarinquire(), gdncvaropen(), gdncvarsearchinit(), gdncvarsearchnext(), getmatch(), gtvaradddim(), gtvarclose(), gtvarcopyattr(), gtvarcopyattrall(), gtvarcopydim(), gtvarcopyvalue(), gtvarcreate(), gtvarcreatecopyc(), gtvarcreated(), gtvardeldim(), gtvarexchdim(), gtvargetattrcc(), gtvarinquire(), gtvarinquire2(), gtvarinquirea(), gtvarinquired(), gtvarlimit(), gtvarlimit_iiii(), gtvaropen(), gtvaropenbydimord(), gtvarputattrchar(), gtvarputline(), gtvarsearchinit(), gtvarsearchnext(), gtvarslice(), gtvarslicec(), gtvarslicenext(), gtvarxformbinary(), historyaddattrchar0(), historyaddattrdouble0(), historyaddattrdouble1(), historyaddattrint0(), historyaddattrint1(), historyaddattrlogical0(), historyaddattrreal0(), historyaddattrreal1(), historyaddvariable1(), historyaddvariable2(), historyautoaddattrchar0(), historyautoaddattrdouble0(), historyautoaddattrdouble1(), historyautoaddattrint0(), historyautoaddattrint1(), historyautoaddattrlogical0(), historyautoaddattrreal0(), historyautoaddattrreal1(), historyautoaddvariable1(), historyautoaddvariable2(), historyautoaddweightdouble(), historyautoaddweightint(), historyautoaddweightreal(), historyautoallvarfix(), historyautoclose1(), historyautocreate1(), historyautocreate2(), historyautocreate3(), historyautoputaxisdouble(), historyautoputaxisint(), historyautoputaxismpidouble(), historyautoputaxismpiint(), historyautoputaxismpireal(), historyautoputaxisreal(), historyautoputdouble0(), historyautoputdouble1(), historyautoputdouble2(), historyautoputdouble3(), historyautoputdouble4(), historyautoputdouble5(), historyautoputdouble6(), historyautoputdouble7(), historyautoputint0(), historyautoputint1(), historyautoputint2(), historyautoputint3(), historyautoputint4(), historyautoputint5(), historyautoputint6(), historyautoputint7(), historyautoputreal0(), historyautoputreal1(), historyautoputreal2(), historyautoputreal3(), historyautoputreal4(), historyautoputreal5(), historyautoputreal6(), historyautoputreal7(), historyaxisaddattr2char0(), historyaxisaddattr2double0(), historyaxisaddattr2double1(), historyaxisaddattr2int0(), historyaxisaddattr2int1(), historyaxisaddattr2logical0(), historyaxisaddattr2real0(), historyaxisaddattr2real1(), historyaxisaddattrchar0(), historyaxisaddattrdouble0(), historyaxisaddattrdouble1(), historyaxisaddattrint0(), historyaxisaddattrint1(), historyaxisaddattrlogical0(), historyaxisaddattrreal0(), historyaxisaddattrreal1(), historyaxisclear(), historyaxiscopy1(), historyaxiscopy2(), historyaxiscreate1(), historyaxiscreate2(), historyaxisinquire1(), historyaxisinquire2(), historyclose(), historycopy1(), historycopy2(), historycopyvariable1(), historycreate1(), historycreate2(), historycreate3(), historygettattrchar0(), historygettattrdouble0(), historygettattrdouble1(), historygettattrint0(), historygettattrint1(), historygettattrreal0(), historygettattrreal1(), historyinquire1(), historyinquire2(), historyinquire3(), historyinquire4(), historyputaxismpidouble(), historyputaxismpiint(), historyputaxismpireal(), historyputchar0(), historyputcharex(), historyputdouble0(), historyputdouble1(), historyputdouble2(), historyputdouble3(), historyputdouble4(), historyputdouble5(), historyputdouble6(), historyputdouble7(), historyputdoubleex(), historyputint0(), historyputint1(), historyputint2(), historyputint3(), historyputint4(), historyputint5(), historyputint6(), historyputint7(), historyputintex(), historyputline(), historyputreal0(), historyputreal1(), historyputreal2(), historyputreal3(), historyputreal4(), historyputreal5(), historyputreal6(), historyputreal7(), historyputrealex(), historysettime(), historyvarinfoaddattr2char0(), historyvarinfoaddattr2double0(), historyvarinfoaddattr2double1(), historyvarinfoaddattr2int0(), historyvarinfoaddattr2int1(), historyvarinfoaddattr2logical0(), historyvarinfoaddattr2real0(), historyvarinfoaddattr2real1(), historyvarinfoaddattrchar0(), historyvarinfoaddattrdouble0(), historyvarinfoaddattrdouble1(), historyvarinfoaddattrint0(), historyvarinfoaddattrint1(), historyvarinfoaddattrlogical0(), historyvarinfoaddattrreal0(), historyvarinfoaddattrreal1(), historyvarinfoclear0(), historyvarinfocopy1(), historyvarinfocopy2(), historyvarinfocreate1(), historyvarinfocreate2(), historyvarinfoinquire1(), historyvarinfoinquire2(), gtool_historyauto_internal::hstfilecreate(), hstnmlinfoadd(), hstnmlinfoallnamevalid(), hstnmlinfoallvarinicheck(), hstnmlinfoassocgthist(), hstnmlinfoclose(), hstnmlinfocreate(), hstnmlinfodelete(), hstnmlinfoenddefine(), hstnmlinfogetnames(), hstnmlinfoinquire(), gtool_history_nmlinfo_internal::hstnmlinfolistlast(), gtool_history_nmlinfo_internal::hstnmlinfolistnext(), gtool_history_nmlinfo_internal::hstnmlinfolistsearch(), hstnmlinfooutputstepdisable(), hstnmlinfoputline(), hstnmlinforedefine(), hstnmlinforesetdefault(), hstnmlinfosetvalidname(), gtool_historyauto_internal::hstvarsoutputcheck(), gtool_history_internal::lookup_dimension(), lookup_growable_url(), gtool_history_internal::lookup_var_or_dim(), gtool_history_internal::lookup_variable(), gtool_history_internal::lookup_variable_ord(), lookupequivalent(), map_finished(), timegoahead(), dc_url::url_resolve_c(), and value_to_index().

    !
    !== 副プログラム開始のメッセージ出力
    !
    ! 文字型変数 *name* に与えた副プログラム名を以下のように出力します.
    !
    !     # call name
    !
    ! 複数回呼ぶ事で上記 (dc_trace の Overview 参照) 
    ! のようにメッセージが出力されます.
    ! 必ず BeginSub と同様な数だけ EndSub を呼ぶようにしてください.
    !
    ! また, 文字型変数 *fmt* およびそれ以降の引数を与える事で,
    ! 以下のように付加メッセージも出力可能です. *fmt*
    ! とそれ以降の引数に関する書式は dc_string#CPrintf
    ! の説明を参照して下さい.
    !
    !     # call name : fmt
    !
    ! 利用例に関しては dc_trace の Usage および Example を参照してください.
    !
    ! *version* には, 副プログラムのバージョンナンバーを与えます.
    ! *version* に与えられた文字列は, ある副プログラム
    ! が複数回呼び出されたうち, 初回に呼び出された時のみ表示されます.
    !
    !--
    !== 開発者向け解説
    !
    ! このサブルーチンにより, このモジュール内で内部的に保持される
    ! 整数型変数 level の値が 1 増えます。
    !
    !++
    use dc_types, only: string, dp
    use dc_string, only: cprintf, strinclude
    character(*), intent(in)          :: name
    character(*), intent(in), optional:: fmt
    integer,      intent(in), optional:: i(:), n(:)
    real,         intent(in), optional:: r(:)
    real(DP),     intent(in), optional:: d(:)
    logical,      intent(in), optional:: l(:)
    character(*), intent(in), optional:: c1, c2, c3
    character(*), intent(in), optional:: ca(:)
    character(*), intent(in), optional:: version
    character(STRING) :: cbuf
    character(STRING) :: name_ver
    logical :: dbg_mode, print_version
    integer :: alloc_size
  continue
    if ( dbg < 0 ) return
    if (lfirst) call initialize
    call debug( dbg_mode )
    if ( dbg_mode ) then
      name_ver = name
      print_version = .false.
      !---------------------------------
      !  Print Version check
      if (present(version)) then
        if (.not. allocated(called_subname)) then
          allocate(called_subname(1))
          called_subname(1) = name
          print_version = .true.
        else
          if (.not. strinclude(called_subname, trim(name))) then
            alloc_size = size(called_subname)
            allocate(called_subname_tmp(alloc_size))
            called_subname_tmp = called_subname
            deallocate(called_subname)
            allocate(called_subname(alloc_size + 1))
            called_subname(1:alloc_size) = called_subname_tmp
            deallocate(called_subname_tmp)
            called_subname(alloc_size + 1) = name
            print_version = .true.
          end if
        end if
        if (print_version) then
          name_ver = cprintf('%c version=<%c>', &
            & c1=trim(name), c2=trim(version))
        end if
      end if
      !---------------------------------
      !  Print Debug message
      if (present(fmt)) then
        cbuf = cprintf(fmt, i, r, d, l, n, c1, c2, c3, ca)
        write(dbg, "(A, A, 'call ', A, ' : ', A)") trim(head), &
          & repeat(indent, level), trim(name_ver), trim(cbuf)
      else
        write(dbg, "(A, A, 'call ',A)") trim(head), & 
          & repeat(indent, level), trim(name_ver)
      endif
    endif
    ! call errtra ! --- for Fujitsu debug
    if (level > size(table)) return
    level = level + 1
    table(level) = name

Here is the call graph for this function:

datad1dump()

subroutine dc_trace::datad1dump	(	character(*), intent(in)	header,
		real(dp), dimension(:), intent(in)	d,
		integer, intent(in), optional	strlen,
		integer, dimension(:), intent(in), optional	multi
	)

Definition at line 552 of file dc_trace.f90.

References append(), dbg, dc_types::dp, head, indent, level, meshead, and dc_types::string.

    !
    !== 1 次元データ出力
    !
    ! デバッグメッセージとして、多次元データ d (倍精度実数型)
    ! を出力します。 文字型変数 header は出力時の頭文字として利用されます。
    ! 整数型配列 strlen を与える事で、一行の文字数を指定できます
    ! (デフォルトの文字数は dc_types#STRING で指定されています)。
    ! 整数型配列 multi(:) を与えることで、
    ! header の後ろに次元添字をつける事が可能です。
    !
    ! 利用例に関しては dc_trace の Example を参照して下さい。
    !
    !--
    !== 開発者向け解説
    !
    ! このサブルーチンを用いても、このモジュール内で内部的に保持される
    ! 整数型変数 level の値は変化しません。
    !
    !++
    use dc_types,      only: string, dp
    use dc_string,     only: tochar
    character(*), intent(in)          :: header  ! データの名称
    real(DP),     intent(in)          :: d(:)    ! 倍精度実数１次元データ
    integer,      intent(in), optional:: strlen  ! 一行の文字数
    integer,      intent(in), optional:: multi(:)! 上位の次元添字
    integer          :: i, j
    character(STRING):: unit    ! データ文字列
    character(STRING):: unitbuf ! データ文字列バッファ
    integer          :: ucur    ! unit に書かれた文字数
    character(STRING):: cbuf    ! read/write 文のバッファ
    integer          :: stat    ! ステータス
    logical  :: first  ! 1つ目のデータかどうか
    integer  :: begini ! 1つ目のデータの添字
    integer  :: endi   ! 最後のデータの添字
    character(STRING):: cmulti ! 次元添字用文字列
    character(STRING):: cout   ! 出力する文字列
    character(STRING):: meshead_tmp
    integer          :: meshead_len
  continue
    if ( dbg < 0 ) return
    ! 初期化
    unit    = ''
    unitbuf = ''
    ucur    = 0
    stat    = 0
    first = .true.
    cmulti = ''
    ! デバッグメッセージヘッダの作成。
    if (level < 1) then
      meshead_tmp = ''
      meshead_len = 0
    else
      meshead_tmp = meshead
      meshead_len = len(meshead)
    endif
    ! 次元添字用文字列を作成
    if (present(multi)) then
      do j = 1, size(multi)
        cmulti = trim(cmulti) // ', ' // trim(  tochar( multi(j) )  )
      enddo
    endif
    i = 1
    dim_1_loop : do
      if (first) begini = i
      endi = i
      write(cbuf, "(g40.20)") d(i)
      if (.not. first) cbuf = ', ' // adjustl(cbuf)
      unitbuf = unit
      call append(unit, ucur, trim(adjustl(cbuf)), stat, strlen)
      if ( stat /= 0 .or. i == size( d(:) ) ) then
        ! 一回目は、文字数オーバーでもそのまま出力。
        if (first) then
          cout = header // '(' &
            &   // trim(tochar(begini)) &
            &   // trim(cmulti) &
            &   // ')=' // trim(unit)
          ! 二回目以降は、オーバーしたものは次回へ
        elseif (stat /= 0 .and. begini == endi-1) then
          cout = header // '(' &
            &   // trim(tochar(begini)) &
            &   // trim(cmulti) &
            &   // ')='// trim(unitbuf)
          ! 1つ巻戻す
          i = i - 1
        elseif (stat /= 0 .and. begini /= endi-1) then
          cout = header // '(' &
            &   // trim(tochar(begini)) // '-' &
            &   // trim(tochar(endi-1)) &
            &   // trim(cmulti) &
            &   // ')=' // trim(unitbuf)
          ! 1つ巻戻す
          i = i - 1
          ! i が size(d) まで到達した場合もそのまま出力。
        elseif ( i == size( d(:) ) ) then
          cout = header // '(' &
            &   // trim(tochar(begini)) // '-' &
            &   // trim(tochar(endi))   &
            &   // trim(cmulti) &
            &   // ')='// trim(unit)
        endif
        write(dbg, "(A, A, A, A)") & 
          & trim(head), repeat( indent, max(level-1, 0) ), &
          & meshead_tmp(1:meshead_len), trim(cout)
        ! unit, unitbuf をクリア
        unit    = ''
        unitbuf = ''
        ucur    = 0
        first = .true.
      else
        first = .false.
      endif
      if (i == size( d(:) ) ) exit dim_1_loop
      i = i + 1
    enddo dim_1_loop

Here is the call graph for this function:

datad2dump()

subroutine dc_trace::datad2dump	(	character(*), intent(in)	header,
		real(dp), dimension(:,:), intent(in)	d,
		integer, intent(in), optional	strlen,
		integer, dimension(:), intent(in), optional	multi
	)

Definition at line 668 of file dc_trace.f90.

References dbg, dc_types::dp, and dc_types::string.

    !
    !== 2 次元データ出力
    !
    ! 詳しくは DataDump または DataD1Dump を参照ください。
    !
    use dc_types,      only: string, dp
    character(*), intent(in)          :: header  ! データの名称
    real(DP),     intent(in)          :: d(:,:)  ! 倍精度実数２次元データ
    integer,      intent(in), optional:: strlen  ! 一行の文字数
    integer,      intent(in), optional:: multi(:)! 上位の次元添字
    integer, allocatable :: total(:)
    integer              :: j
  continue
    if ( dbg < 0 ) return
    if (present(multi)) then
      allocate( total(size(multi)+1) )
      total(2:size(multi)+1) = multi(:)
    else
      allocate( total(1) )
    endif
    do j = 1, size( d(:,:), 2 )
      total(1) = j
      call datadump(header, d(:,j), strlen=strlen, multi=total(:))
    enddo
    deallocate( total )

datad3dump()

subroutine dc_trace::datad3dump	(	character(*), intent(in)	header,
		real(dp), dimension(:,:,:), intent(in)	d,
		integer, intent(in), optional	strlen,
		integer, dimension(:), intent(in), optional	multi
	)

Definition at line 695 of file dc_trace.f90.

References dbg, dc_types::dp, and dc_types::string.

    !
    !== 3 次元データ出力
    !
    ! 詳しくは DataDump または DataD1Dump を参照ください。
    !
    use dc_types,      only: string, dp
    character(*), intent(in)          :: header  ! データの名称
    real(DP),     intent(in)          :: d(:,:,:)! 倍精度実数３次元データ
    integer,      intent(in), optional:: strlen  ! 一行の文字数
    integer,      intent(in), optional:: multi(:)! 上位の次元添字
    integer, allocatable :: total(:)
    integer              :: k
  continue
    if ( dbg < 0 ) return
    if (present(multi)) then
      allocate( total(size(multi)+1) )
      total(2:size(multi)+1) = multi(:)
    else
      allocate( total(1) )
    endif
    do k = 1, size( d(:,:,:), 3 )
      total(1) = k
      call datadump(header, d(:,:,k), strlen=strlen, multi=total(:))
    enddo
    deallocate( total )

dbg_scratch()

subroutine, public dc_trace::dbg_scratch

(

logical, intent(in)

on

)

Definition at line 219 of file dc_trace.f90.

References dbg.

Referenced by sysdepabort().

    !
    !== デバッグメッセージの抹消
    !
    ! <b>動作未確認ですので利用の際にはご注意下さい。</b>
    !
    ! 論理型変数 on に .true. を与える事で、
    ! 以降の デバッグメッセージを抹消する事が出来ます。
    !
    ! なお、論理型変数 on に <tt>.false.</tt> を 与える事で、
    ! 直前に呼んだ Dbg_Scratch 以降のメッセージを
    ! デバッグメッセージとして再び出力し、
    ! 以降のデバッグメッセージも 出力されるようにします。
    !
    logical, intent(in):: on
    integer, save:: saved_dbg = -1
    logical:: x, p
    character(80):: line
    integer:: ios
  continue
    if (on) then
      if (dbg < 0) return
      saved_dbg = dbg
      ! 有効な 1 〜 99 の装置番号の内の大きめの値を設定 (?)
      dbg = 98
      do
        inquire(unit=dbg, exist=x, opened=p)
        ! 装置番号 dbg が接続可能で、かつ未接続の場合
        if (x .and. .not. p) then
          ! 装置番号 deg をスクラッチファイルとして開く。
          !   ※ スクラッチファイルとは、特殊な外部ファイルである。
          !      これは名前なしの一時ファイルであり、開いている
          !      間だけ存在する。つまり、プログラムが終了すると
          !      存在しなくなる。
          open(unit=dbg, status='SCRATCH')
          ! 開く事が出来ればそれで終了。
          return
        endif
        ! 装置番号 dbg が利用不可、または利用済の場合は 0 以下に
        ! なるまで dbg - 1 して繰り返す。
        dbg = dbg - 1
        if (dbg < 0) exit
      enddo
      ! 装置番号 dbg が開けない場合、dbg と saved_dbg を初期化
      dbg = saved_dbg
      saved_dbg = -1
    else
      ! 以前に装置番号 dbg = 98〜0 でスクラッチファイルを開けてい
      ! なければそれで終了
      if (saved_dbg < 0) return
      ! 装置番号 dbg に接続されたスクラッチファイルをその開始位置
      ! に位置付ける。エラーが生じたら「100 continue」へ
      rewind(dbg, err=100)
      do
        ! 装置番号 dbg に接続されたスクラッチファイルの一行を
        ! line へ
        read(dbg, '(A)', iostat=ios) line
        if (ios /= 0) exit
        ! line を装置番号 saved_dbg へ書き出す。
        write(saved_dbg, '(A)', iostat=ios) trim(line)
        if (ios /= 0) exit
      enddo
  100 continue
      close(dbg, iostat=ios)
      ! 最後に dbg と saved_dbg を初期化
      dbg = saved_dbg
      saved_dbg = -1
    endif

Here is the caller graph for this function:

dbgmessage()

subroutine, public dc_trace::dbgmessage	(	character(*), intent(in)	fmt,
		integer, dimension(:), intent(in), optional	i,
		real, dimension(:), intent(in), optional	r,
		real(dp), dimension(:), intent(in), optional	d,
		logical, dimension(:), intent(in), optional	L,
		integer, dimension(:), intent(in), optional	n,
		character(*), intent(in), optional	c1,
		character(*), intent(in), optional	c2,
		character(*), intent(in), optional	c3,
		character(*), dimension(:), intent(in), optional	ca
	)

Definition at line 509 of file dc_trace.f90.

References dbg, dc_types::dp, head, indent, level, meshead, and dc_types::string.

Referenced by actual_iorange_dump(), gtool_history_internal::append_attrs(), gtool_history_internal::copy_attrs(), dccaldateparsestr1(), dc_clock::dcclockcreate0(), dc_clock::dcclockgetd(), dc_clock::dcclockgetr(), dc_clock::dcclockpredict0(), dc_clock::dcclockputline0(), dc_clock::dcclockresult0(), dc_clock::dcclocksetname0(), dc_clock::dcclockstart0(), dc_clock::dcclockstop0(), gtdata_internal_map::dimord_skip_compact(), gdncfileclose(), gdncfiledatamode(), gdncfiledefinemode(), gdncfileinquirename(), gdncfilereopen(), gdncvarattrrewind(), gdncvarcreate(), gdncvarcreated(), gdncvarinquire(), gdncvarputchar(), gdncvarputdouble(), gdncvarputint(), gdncvarputreal(), gdncvarsearchinit(), gdncvarsearchnext(), getmatch(), gtdata_internal_map::gtvar_dump(), gtvaradddim(), gtvarclose(), gtvarcopyattrall(), gtvarcreate(), gtvarcreated(), gtvardeldim(), gtvarexchdim(), gtvargetpointerdouble1(), gtvargetpointerdouble2(), gtvargetpointerdouble3(), gtvargetpointerdouble4(), gtvargetpointerdouble5(), gtvargetpointerdouble6(), gtvargetpointerdouble7(), gtvargetpointerint1(), gtvargetpointerint2(), gtvargetpointerint3(), gtvargetpointerint4(), gtvargetpointerint5(), gtvargetpointerint6(), gtvargetpointerint7(), gtvargetpointerreal1(), gtvargetpointerreal2(), gtvargetpointerreal3(), gtvargetpointerreal4(), gtvargetpointerreal5(), gtvargetpointerreal6(), gtvargetpointerreal7(), gtvarinquire(), gtvarlimit_iiii(), gtvaropenbydimord(), gtvarputline(), gtvarslice(), gtvarslicenext(), gtvarxformbinary(), historyaddattrchar0(), historyaddattrdouble0(), historyaddattrdouble1(), historyaddattrint0(), historyaddattrint1(), historyaddattrlogical0(), historyaddattrreal0(), historyaddattrreal1(), historyaddvariable1(), historyaddvariable2(), historyautoaddvariable2(), historyaxisaddattr2char0(), historyaxisaddattr2double0(), historyaxisaddattr2double1(), historyaxisaddattr2int0(), historyaxisaddattr2int1(), historyaxisaddattr2logical0(), historyaxisaddattr2real0(), historyaxisaddattr2real1(), historyaxisaddattrchar0(), historyaxisaddattrdouble0(), historyaxisaddattrdouble1(), historyaxisaddattrint0(), historyaxisaddattrint1(), historyaxisaddattrlogical0(), historyaxisaddattrreal0(), historyaxisaddattrreal1(), historyaxisclear(), historyaxiscopy1(), historyaxiscopy2(), historyaxiscreate1(), historyaxiscreate2(), historyaxisinquire1(), historyaxisinquire2(), historyclose(), historycopy1(), historycopy2(), historycopyvariable1(), historycreate1(), historycreate2(), historycreate3(), historygetdouble0(), historygetdouble0pointer(), historygetdouble0pointertimed(), historygetdouble0pointertimei(), historygetdouble0pointertimer(), historygetdouble0timed(), historygetdouble0timei(), historygetdouble0timer(), historygetdouble1(), historygetdouble1pointer(), historygetdouble1pointertimed(), historygetdouble1pointertimei(), historygetdouble1pointertimer(), historygetdouble1timed(), historygetdouble1timei(), historygetdouble1timer(), historygetdouble2(), historygetdouble2pointer(), historygetdouble2pointertimed(), historygetdouble2pointertimei(), historygetdouble2pointertimer(), historygetdouble2timed(), historygetdouble2timei(), historygetdouble2timer(), historygetdouble3(), historygetdouble3pointer(), historygetdouble3pointertimed(), historygetdouble3pointertimei(), historygetdouble3pointertimer(), historygetdouble3timed(), historygetdouble3timei(), historygetdouble3timer(), historygetdouble4(), historygetdouble4pointer(), historygetdouble4pointertimed(), historygetdouble4pointertimei(), historygetdouble4pointertimer(), historygetdouble4timed(), historygetdouble4timei(), historygetdouble4timer(), historygetdouble5(), historygetdouble5pointer(), historygetdouble5pointertimed(), historygetdouble5pointertimei(), historygetdouble5pointertimer(), historygetdouble5timed(), historygetdouble5timei(), historygetdouble5timer(), historygetdouble6(), historygetdouble6pointer(), historygetdouble6pointertimed(), historygetdouble6pointertimei(), historygetdouble6pointertimer(), historygetdouble6timed(), historygetdouble6timei(), historygetdouble6timer(), historygetdouble7(), historygetdouble7pointer(), historygetdouble7pointertimed(), historygetdouble7pointertimei(), historygetdouble7pointertimer(), historygetdouble7timed(), historygetdouble7timei(), historygetdouble7timer(), historygetint0(), historygetint0pointer(), historygetint0pointertimed(), historygetint0pointertimei(), historygetint0pointertimer(), historygetint0timed(), historygetint0timei(), historygetint0timer(), historygetint1(), historygetint1pointer(), historygetint1pointertimed(), historygetint1pointertimei(), historygetint1pointertimer(), historygetint1timed(), historygetint1timei(), historygetint1timer(), historygetint2(), historygetint2pointer(), historygetint2pointertimed(), historygetint2pointertimei(), historygetint2pointertimer(), historygetint2timed(), historygetint2timei(), historygetint2timer(), historygetint3(), historygetint3pointer(), historygetint3pointertimed(), historygetint3pointertimei(), historygetint3pointertimer(), historygetint3timed(), historygetint3timei(), historygetint3timer(), historygetint4(), historygetint4pointer(), historygetint4pointertimed(), historygetint4pointertimei(), historygetint4pointertimer(), historygetint4timed(), historygetint4timei(), historygetint4timer(), historygetint5(), historygetint5pointer(), historygetint5pointertimed(), historygetint5pointertimei(), historygetint5pointertimer(), historygetint5timed(), historygetint5timei(), historygetint5timer(), historygetint6(), historygetint6pointer(), historygetint6pointertimed(), historygetint6pointertimei(), historygetint6pointertimer(), historygetint6timed(), historygetint6timei(), historygetint6timer(), historygetint7(), historygetint7pointer(), historygetint7pointertimed(), historygetint7pointertimei(), historygetint7pointertimer(), historygetint7timed(), historygetint7timei(), historygetint7timer(), historygetreal0(), historygetreal0pointer(), historygetreal0pointertimed(), historygetreal0pointertimei(), historygetreal0pointertimer(), historygetreal0timed(), historygetreal0timei(), historygetreal0timer(), historygetreal1(), historygetreal1pointer(), historygetreal1pointertimed(), historygetreal1pointertimei(), historygetreal1pointertimer(), historygetreal1timed(), historygetreal1timei(), historygetreal1timer(), historygetreal2(), historygetreal2pointer(), historygetreal2pointertimed(), historygetreal2pointertimei(), historygetreal2pointertimer(), historygetreal2timed(), historygetreal2timei(), historygetreal2timer(), historygetreal3(), historygetreal3pointer(), historygetreal3pointertimed(), historygetreal3pointertimei(), historygetreal3pointertimer(), historygetreal3timed(), historygetreal3timei(), historygetreal3timer(), historygetreal4(), historygetreal4pointer(), historygetreal4pointertimed(), historygetreal4pointertimei(), historygetreal4pointertimer(), historygetreal4timed(), historygetreal4timei(), historygetreal4timer(), historygetreal5(), historygetreal5pointer(), historygetreal5pointertimed(), historygetreal5pointertimei(), historygetreal5pointertimer(), historygetreal5timed(), historygetreal5timei(), historygetreal5timer(), historygetreal6(), historygetreal6pointer(), historygetreal6pointertimed(), historygetreal6pointertimei(), historygetreal6pointertimer(), historygetreal6timed(), historygetreal6timei(), historygetreal6timer(), historygetreal7(), historygetreal7pointer(), historygetreal7pointertimed(), historygetreal7pointertimei(), historygetreal7pointertimer(), historygetreal7timed(), historygetreal7timei(), historygetreal7timer(), historyinquire1(), historyinquire2(), historyinquire3(), historyinquire4(), historyputaxismpidouble(), historyputaxismpiint(), historyputaxismpireal(), historyputchar0(), historyputcharex(), historyputdouble0(), historyputdouble1(), historyputdouble2(), historyputdouble3(), historyputdouble4(), historyputdouble5(), historyputdouble6(), historyputdouble7(), historyputdoubleex(), historyputint0(), historyputint1(), historyputint2(), historyputint3(), historyputint4(), historyputint5(), historyputint6(), historyputint7(), historyputintex(), historyputreal0(), historyputreal1(), historyputreal2(), historyputreal3(), historyputreal4(), historyputreal5(), historyputreal6(), historyputreal7(), historyputrealex(), historysettime(), historyvarinfoaddattr2char0(), historyvarinfoaddattr2double0(), historyvarinfoaddattr2double1(), historyvarinfoaddattr2int0(), historyvarinfoaddattr2int1(), historyvarinfoaddattr2logical0(), historyvarinfoaddattr2real0(), historyvarinfoaddattr2real1(), historyvarinfoaddattrchar0(), historyvarinfoaddattrdouble0(), historyvarinfoaddattrdouble1(), historyvarinfoaddattrint0(), historyvarinfoaddattrint1(), historyvarinfoaddattrlogical0(), historyvarinfoaddattrreal0(), historyvarinfoaddattrreal1(), historyvarinfoclear0(), historyvarinfocopy1(), historyvarinfocopy2(), historyvarinfocreate1(), historyvarinfocreate2(), historyvarinfoinquire1(), historyvarinfoinquire2(), hstnmlinfoadd(), hstnmlinfoclose(), hstnmlinfodelete(), gtool_historyauto_internal::hstvarsoutputcheck(), internal_get_allcount(), internal_get_alldims(), internal_get_rank(), internal_get_size(), gtool_history_internal::lookup_dimension(), lookup_growable_url(), gtool_history_internal::lookup_var_or_dim(), gtool_history_internal::lookup_variable(), gtool_history_internal::lookup_variable_ord(), gtdata_internal_map::map_dup(), gtdata_internal_map::maptabdelete(), timegoahead(), dc_url::url_resolve_c(), value_to_index(), gtdata_internal_vartable::vartable_dump(), gtdata_internal_vartable::vartableadd(), gtdata_netcdf_internal::vtable_add(), and gtdata_netcdf_internal::vtable_delete().

    !
    !== デバッグ用メッセージ出力
    !
    ! フォーマット文字列 fmt に従ってデバッグメッセージを出力します。
    ! fmt とそれ以降の引数に関する書式は dc_string#CPrintf
    ! の説明を参照して下さい。
    !
    ! 利用例に関しては dc_trace の Example を参照して下さい。
    !
    !--
    !== 開発者向け解説
    !
    ! このサブルーチンを用いても、このモジュール内で内部的に保持される
    ! 整数型変数 level の値は変化しません。
    !
    !++
    use dc_types, only: string, dp
    use dc_string, only: cprintf, tochar
    character(*), intent(in)          :: fmt
    integer,      intent(in), optional:: i(:), n(:)
    real,         intent(in), optional:: r(:)
    real(DP),     intent(in), optional:: d(:)
    logical,      intent(in), optional:: l(:)
    character(*), intent(in), optional:: c1, c2, c3
    character(*), intent(in), optional:: ca(:)
    character(STRING):: cbuf
    character(STRING):: meshead_tmp
    integer          :: meshead_len
  continue
    if ( dbg < 0 ) return
    cbuf = cprintf(fmt, i, r, d, l, n, c1, c2, c3, ca)
    if (level < 1) then
      meshead_tmp = ''
      meshead_len = 0
    else
      meshead_tmp = meshead
      meshead_len = len(meshead)
    endif
    write(dbg, "(A, A, A, A)") & 
      & trim(head), repeat( indent, max(level-1, 0) ), &
      & meshead_tmp(1:meshead_len), trim(cbuf)

dctracedebug()

subroutine dc_trace::dctracedebug

(

logical, intent(out)

dbg_mode

)

Definition at line 333 of file dc_trace.f90.

References dbg.

    !
    !== デバックモードかどうかの診断
    !
    ! SetDebugでデバッグモードになっている場合には .true. が、
    ! デバッグモードでない場合には .false. が返ります。
    !
    logical, intent(out):: dbg_mode
    dbg_mode = dbg >= 0

endsub()

subroutine, public dc_trace::endsub	(	character(*), intent(in)	name,
		character(*), intent(in), optional	fmt,
		integer, dimension(:), intent(in), optional	i,
		real, dimension(:), intent(in), optional	r,
		real(dp), dimension(:), intent(in), optional	d,
		logical, dimension(:), intent(in), optional	L,
		integer, dimension(:), intent(in), optional	n,
		character(*), intent(in), optional	c1,
		character(*), intent(in), optional	c2,
		character(*), intent(in), optional	c3,
		character(*), dimension(:), intent(in), optional	ca
	)

Definition at line 446 of file dc_trace.f90.

References dbg, dc_types::dp, head, indent, initialize(), level, lfirst, dc_types::string, and table.

Referenced by adjust_slice(), gtool_history_internal::append_attrs(), gtool_history_internal::copy_attrs(), dccalconvertbyunit1(), dccalconvertbyunit2(), dccalconverttoday1(), dccalconverttoday2(), dccalconverttohour1(), dccalconverttohour2(), dccalconverttomin1(), dccalconverttomin2(), dccalconverttosec1(), dccalconverttosec2(), dccalcreate1(), dccalcreate2(), dccaldatecreate1(), dccaldatecreate2(), dccaldatecurrent1(), dccaldatedifference1(), dccaldateevalid1(), dccaldateevalid2(), dccaldateevalym2ym1(), dccaldateevalym2ym2(), dccaldateevalymdhms1(), dccaldateevalymdhms2(), dccaldateinquire1(), dccaldateinquire2(), dccaldateparsestr1(), dccaldefault1(), dccalinquire1(), dccalparseunit1(), dc_clock::dcclockclose0(), dc_clock::dcclockcreate0(), dc_clock::dcclockgetd(), dc_clock::dcclockgetr(), dc_clock::dcclockpredict0(), dc_clock::dcclockputline0(), dc_clock::dcclockresult0(), dc_clock::dcclocksetname0(), dc_clock::dcclockstart0(), dc_clock::dcclockstop0(), dcdatetimecreate1(), dcdatetimeeval1(), dcdatetimeputline(), dcdatetimesetcaltype(), dcdatetimesetsecofday(), dcdatetimesetzone(), dcdifftimecreate1(), dcdifftimecreate2d(), dcdifftimeeval1(), dcdifftimeputline(), dc_scaledsec::dcscaledseccreated(), dc_scaledsec::dcscaledsecputline(), dc_iounit::fileopen(), gdncattrgetchar(), gdncfileclose(), gdncfiledefinemode(), gdncfileinquirename(), gdncfileopen(), gdncfilereopen(), gdncsearchdim(), gdncvarcreate(), gdncvarcreated(), gdncvarinquire(), gdncvaropen(), gdncvarsearchinit(), gdncvarsearchnext(), getmatch(), gtvaradddim(), gtvarclose(), gtvarcopyattr(), gtvarcopyattrall(), gtvarcopydim(), gtvarcopyvalue(), gtvarcreate(), gtvarcreatecopyc(), gtvarcreated(), gtvardeldim(), gtvarexchdim(), gtvargetattrcc(), gtvarinquire(), gtvarinquire2(), gtvarinquirea(), gtvarinquired(), gtvarlimit(), gtvarlimit_iiii(), gtvaropen(), gtvaropenbydimord(), gtvarputattrchar(), gtvarputline(), gtvarsearchinit(), gtvarsearchnext(), gtvarslice(), gtvarslicec(), gtvarslicenext(), gtvarxformbinary(), historyaddattrchar0(), historyaddattrdouble0(), historyaddattrdouble1(), historyaddattrint0(), historyaddattrint1(), historyaddattrlogical0(), historyaddattrreal0(), historyaddattrreal1(), historyaddvariable1(), historyaddvariable2(), historyautoaddattrchar0(), historyautoaddattrdouble0(), historyautoaddattrdouble1(), historyautoaddattrint0(), historyautoaddattrint1(), historyautoaddattrlogical0(), historyautoaddattrreal0(), historyautoaddattrreal1(), historyautoaddvariable1(), historyautoaddvariable2(), historyautoaddweightdouble(), historyautoaddweightint(), historyautoaddweightreal(), historyautoallvarfix(), historyautoclose1(), historyautocreate1(), historyautocreate2(), historyautocreate3(), historyautoputaxisdouble(), historyautoputaxisint(), historyautoputaxismpidouble(), historyautoputaxismpiint(), historyautoputaxismpireal(), historyautoputaxisreal(), historyautoputdouble0(), historyautoputdouble1(), historyautoputdouble2(), historyautoputdouble3(), historyautoputdouble4(), historyautoputdouble5(), historyautoputdouble6(), historyautoputdouble7(), historyautoputint0(), historyautoputint1(), historyautoputint2(), historyautoputint3(), historyautoputint4(), historyautoputint5(), historyautoputint6(), historyautoputint7(), historyautoputreal0(), historyautoputreal1(), historyautoputreal2(), historyautoputreal3(), historyautoputreal4(), historyautoputreal5(), historyautoputreal6(), historyautoputreal7(), historyaxisaddattr2char0(), historyaxisaddattr2double0(), historyaxisaddattr2double1(), historyaxisaddattr2int0(), historyaxisaddattr2int1(), historyaxisaddattr2logical0(), historyaxisaddattr2real0(), historyaxisaddattr2real1(), historyaxisaddattrchar0(), historyaxisaddattrdouble0(), historyaxisaddattrdouble1(), historyaxisaddattrint0(), historyaxisaddattrint1(), historyaxisaddattrlogical0(), historyaxisaddattrreal0(), historyaxisaddattrreal1(), historyaxisclear(), historyaxiscopy1(), historyaxiscopy2(), historyaxiscreate1(), historyaxiscreate2(), historyaxisinquire1(), historyaxisinquire2(), historyclose(), historycopy1(), historycopy2(), historycopyvariable1(), historycreate1(), historycreate2(), historycreate3(), historygettattrchar0(), historygettattrdouble0(), historygettattrdouble1(), historygettattrint0(), historygettattrint1(), historygettattrreal0(), historygettattrreal1(), historyinquire1(), historyinquire2(), historyinquire3(), historyinquire4(), historyputaxismpidouble(), historyputaxismpiint(), historyputaxismpireal(), historyputchar0(), historyputcharex(), historyputdouble0(), historyputdouble1(), historyputdouble2(), historyputdouble3(), historyputdouble4(), historyputdouble5(), historyputdouble6(), historyputdouble7(), historyputdoubleex(), historyputint0(), historyputint1(), historyputint2(), historyputint3(), historyputint4(), historyputint5(), historyputint6(), historyputint7(), historyputintex(), historyputline(), historyputreal0(), historyputreal1(), historyputreal2(), historyputreal3(), historyputreal4(), historyputreal5(), historyputreal6(), historyputreal7(), historyputrealex(), historysettime(), historyvarinfoaddattr2char0(), historyvarinfoaddattr2double0(), historyvarinfoaddattr2double1(), historyvarinfoaddattr2int0(), historyvarinfoaddattr2int1(), historyvarinfoaddattr2logical0(), historyvarinfoaddattr2real0(), historyvarinfoaddattr2real1(), historyvarinfoaddattrchar0(), historyvarinfoaddattrdouble0(), historyvarinfoaddattrdouble1(), historyvarinfoaddattrint0(), historyvarinfoaddattrint1(), historyvarinfoaddattrlogical0(), historyvarinfoaddattrreal0(), historyvarinfoaddattrreal1(), historyvarinfoclear0(), historyvarinfocopy1(), historyvarinfocopy2(), historyvarinfocreate1(), historyvarinfocreate2(), historyvarinfoinquire1(), historyvarinfoinquire2(), gtool_historyauto_internal::hstfilecreate(), hstnmlinfoadd(), hstnmlinfoallnamevalid(), hstnmlinfoallvarinicheck(), hstnmlinfoassocgthist(), hstnmlinfoclose(), hstnmlinfocreate(), hstnmlinfodelete(), hstnmlinfoenddefine(), hstnmlinfogetnames(), hstnmlinfoinquire(), gtool_history_nmlinfo_internal::hstnmlinfolistlast(), gtool_history_nmlinfo_internal::hstnmlinfolistnext(), gtool_history_nmlinfo_internal::hstnmlinfolistsearch(), hstnmlinfooutputstepdisable(), hstnmlinfoputline(), hstnmlinforedefine(), hstnmlinforesetdefault(), hstnmlinfosetvalidname(), gtool_historyauto_internal::hstvarsoutputcheck(), gtool_history_internal::lookup_dimension(), lookup_growable_url(), gtool_history_internal::lookup_var_or_dim(), gtool_history_internal::lookup_variable(), gtool_history_internal::lookup_variable_ord(), lookupequivalent(), map_finished(), timegoahead(), dc_url::url_resolve_c(), and value_to_index().

    !
    !== 副プログラム終了のメッセージ出力
    !
    ! 文字型変数 name に与えた副プログラム名を以下のように出力します。
    !
    !     # end name
    !
    ! BeginSub に対して一対一対応していますので、name には対応する
    ! BeginSub の引数 name と同じものを与えて下さい。
    !
    ! また、文字型変数 fmt およびそれ以降の引数を与える事で、
    ! 以下のように付加メッセージも出力可能です。 fmt
    ! とそれ以降の引数に関する書式は dc_string#CPrintf
    ! の説明を参照して下さい。
    !
    !     # end name fmt
    !
    ! 利用例に関しては dc_trace の Usage および Exampleを参照してください。
    !--
    !== 開発者向け解説
    !
    ! このサブルーチンにより, このモジュール内で内部的に保持される
    ! 整数型変数 level の値が 1 減ります。
    !
    !++
    use dc_types, only: string, dp
    use dc_string, only: cprintf
    character(*), intent(in)          :: name
    character(*), intent(in), optional:: fmt
    integer,      intent(in), optional:: i(:), n(:)
    real,         intent(in), optional:: r(:)
    real(DP),     intent(in), optional:: d(:)
    logical,      intent(in), optional:: l(:)
    character(*), intent(in), optional:: c1, c2, c3
    character(*), intent(in), optional:: ca(:)
    character(STRING):: cbuf
    logical:: debug_mode
  continue
    if ( dbg < 0 ) return
    if (lfirst) call initialize
    ! call errtra ! --- for Fujitsu debug
    if (level <= 0) then
      write(*, "(A, 'Warning EndSub[',A,'] without BeginSub')") &
        & trim(head), trim(name)
    else if (name /= table(level)) then
      write(*, "(A, 'Warning EndSub[',A,'] but tos[',A,']')") &
        & trim(head), trim(name), trim(table(level))
    else
      level = level - 1
    endif
    call debug( debug_mode )
    if ( debug_mode ) then
      if (present(fmt)) then
        cbuf = cprintf(fmt, i, r, d, l, n, c1, c2, c3, ca)
        write(dbg, "(A, A, 'end ', A, ' : ', A)") trim(head), &
          & repeat(indent, level), trim(name), trim(cbuf)
      else
        write(dbg, "(A, A, 'end ', A)") trim(head), &
          & repeat(indent, level), trim(name)
      endif
    endif

Here is the call graph for this function:

initialize()

subroutine dc_trace::initialize ( )

private

Definition at line 343 of file dc_trace.f90.

References lfirst, and table.

Referenced by beginsub(), and endsub().

    !
    ! 初期化
    !
    table(:) = ' '
    lfirst = .false.

Here is the caller graph for this function:

setdebug()

subroutine, public dc_trace::setdebug

(

integer, intent(in), optional

debug

)

Definition at line 288 of file dc_trace.f90.

References dbg, head, dc_types::stderr, and dc_types::stdout.

Referenced by dc_args::dcargsdebug0().

    use dc_types, only: stdout, stderr
    implicit none
    !
    !== デバッグモードをオンオフ
    !
    ! デバッグメッセージを出力したい時にこのサブルーチンを呼びます。
    !
    ! 整数型変数 debug が与えられる場合は、その装置番号 debug に、
    ! 以降のサブルーチンによるデバッグメッセージを出力するようにします。
    ! debug が与えられない場合、装置番号 0 (標準エラー出力)
    ! にデバッグメッセージが出力されるようになります。
    ! 装置番号 0 への出力が成功しない場合は代わりに
    ! 装置番号 6 (標準出力) にデバッグメッセージが出力されるようになります。
    !
    ! debug に負の整数を与える場合、デバッグモードが解除され、
    ! 以降デバッグメッセージは出力されません。
    !
    ! なお、この SetDebug を呼んだ際にも、装置番号 debug
    ! に以下のメッセージ が表示されます。
    !
    !     #SetDebug: dbg = debug
    !
    integer, intent(in), optional:: debug
    integer:: ios
  continue
    if (present(debug)) then
      ! debug が与えられる時は装置番号として deg を用いる。
      dbg = debug
      write(dbg, "(A, 'SetDebug: dbg =', i4)", iostat=ios) &
        & trim(head), dbg
      if (ios == 0) return
    else
      ! debug が与えられ無い時は装置番号 0 (標準エラー出力)
      dbg = stderr
      write(dbg, "(A, 'SetDebug: dbg = ', I0)", iostat=ios) trim(head), dbg
      if (ios == 0) return
      ! 装置番号 0 への出力が失敗したら装置番号 6 (標準出力)
      dbg = stdout
      write(dbg, "(A, 'SetDebug: dbg = ', I0)", iostat=ios) trim(head), dbg
      if (ios == 0) return
    endif
    ! 例外処理として dbg の初期化
    dbg = -1

Here is the caller graph for this function:

sublevel()

integer function, public dc_trace::sublevel

(

)

Definition at line 210 of file dc_trace.f90.

References level.

    !
    !== 副プログラムの階層レベルを返す
    !
    ! 副プログラムの階層レベルを返します。 レベルのデフォルトは 0 で、
    ! BeginSub によりレベルは 1 増え、 EndSub によりレベルは 1 減ります。
    !
    result = level

Variable Documentation

called_subname

character(string), dimension(:), allocatable, save dc_trace::called_subname

private

Definition at line 192 of file dc_trace.f90.

Referenced by beginsub().

  character(STRING), save, allocatable:: called_subname(:), &
    &                                    called_subname_tmp(:)

called_subname_tmp

character(string), dimension(:), allocatable, save dc_trace::called_subname_tmp

private

Definition at line 192 of file dc_trace.f90.

Referenced by beginsub().

dbg

integer, save, public dc_trace::dbg = -1

Definition at line 184 of file dc_trace.f90.

Referenced by beginsub(), datad1dump(), datad2dump(), datad3dump(), dbg_scratch(), dbgmessage(), dctracedebug(), endsub(), and setdebug().

  integer, save, public :: dbg = -1     ! SetDebug で設定された

head

character(1), parameter dc_trace::head = '#'

private

Definition at line 197 of file dc_trace.f90.

Referenced by beginsub(), datad1dump(), dbgmessage(), endsub(), and setdebug().

  character(1), parameter:: head    = '#'  ! 行頭文字

indent

character(2), parameter dc_trace::indent = '| '

private

Definition at line 198 of file dc_trace.f90.

Referenced by beginsub(), datad1dump(), dbgmessage(), and endsub().

  character(2), parameter :: indent  = '| ' ! 字下げ文字

level

integer, save dc_trace::level = 0

private

Definition at line 187 of file dc_trace.f90.

Referenced by beginsub(), datad1dump(), dbgmessage(), endsub(), and sublevel().

  integer, save         :: level = 0    ! サブルーチンレベル

lfirst

logical, save dc_trace::lfirst = .true.

private

Definition at line 182 of file dc_trace.f90.

Referenced by beginsub(), endsub(), and initialize().

  logical, save         :: lfirst = .true. 

meshead

character(2), parameter dc_trace::meshead = '|-'

private

Definition at line 199 of file dc_trace.f90.

Referenced by datad1dump(), and dbgmessage().

  character(2), parameter :: meshead = '|-' ! DbgMessage 用行頭文字

table

character(token), dimension(trace_stack_size), save dc_trace::table

private

Definition at line 190 of file dc_trace.f90.

Referenced by beginsub(), endsub(), and initialize().

  character(TOKEN), save:: table(trace_stack_size)

trace_stack_size

integer, parameter dc_trace::trace_stack_size = 128

private

Definition at line 188 of file dc_trace.f90.

  integer, parameter    :: trace_stack_size = 128