dc_trace::datadump Interface Reference

Public Member Functions
subroutine	datad1dump (header, d, strlen, multi)
subroutine	datad2dump (header, d, strlen, multi)
subroutine	datad3dump (header, d, strlen, multi)

Detailed Description

Definition at line 177 of file dc_trace.f90.

Member Function/Subroutine Documentation

datad1dump()

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

1 次元データ出力

デバッグメッセージとして、多次元データ d (倍精度実数型) を出力します。 文字型変数 header は出力時の頭文字として利用されます。 strlen を与える事で、一行の文字数を指定できます (デフォルトは dc_types::STRING)。 multi(:) を与えることで、header の後ろに次元添字をつける事が可能です。

利用例に関しては dc_trace の Example を参照して下さい。

Note

このサブルーチンを用いても内部変数 level の値は変化しません。

Parameters

[in]	header	データの名称 (出力時の接頭辞)
[in]	d	倍精度実数１次元データ
[in]	strlen	一行の文字数 (省略可)
[in]	multi	上位の次元添字 (省略可)

Definition at line 724 of file dc_trace.f90.

    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(1:254))
      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

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

datad2dump()

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

2 次元データ出力

詳しくは DataDump または DataD1Dump を参照ください。

Parameters

[in]	header	データの名称
[in]	d	倍精度実数２次元データ
[in]	strlen	一行の文字数 (省略可)
[in]	multi	上位の次元添字 (省略可)

Definition at line 842 of file dc_trace.f90.

    use dc_types,      only: 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 )

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

datad3dump()

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

3 次元データ出力

詳しくは DataDump または DataD1Dump を参照ください。

Parameters

[in]	header	データの名称
[in]	d	倍精度実数３次元データ
[in]	strlen	一行の文字数 (省略可)
[in]	multi	上位の次元添字 (省略可)

Definition at line 885 of file dc_trace.f90.

    use dc_types,      only: 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 )

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

---

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

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