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
	)

Output 1-dimensional data

Outputs multi-dimensional data d (double precision real) as debug messages. The character variable header is used as a prefix for output. By providing strlen, you can specify the number of characters per line (default is dc_types::STRING). By providing multi(:), you can add dimension subscripts after the header.

See dc_trace Example for usage examples.

Note

This subroutine does not change the internal variable level.

Parameters

[in]	header	Data name (prefix for output)
[in]	d	1-dimensional double precision real data
[in]	strlen	Number of characters per line (optional)
[in]	multi	Higher dimension subscripts (optional)

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 append(), dc_trace::dbg, dc_types::dp, and dc_types::string.

Here is the call graph for this function:

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
	)

Output 2-dimensional data

See DataDump or DataD1Dump for details.

Parameters

[in]	header	Data name (prefix for output)
[in]	d	2-dimensional double precision real data
[in]	strlen	Number of characters per line (optional)
[in]	multi	Higher dimension subscripts (optional)

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
	)

Output 3-dimensional data

See DataDump or DataD1Dump for details.

Parameters

[in]	header	Data name (prefix for output)
[in]	d	3-dimensional double precision real data
[in]	strlen	Number of characters per line (optional)
[in]	multi	Higher dimension subscripts (optional)

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