dc_string::tochar Interface Reference

Public Member Functions
character(token) function	itoa_scalar (i)
character(string) function	itoa_array (ibuf)
character(token) function	rtoa_scalar (x)
character(string) function	rtoa_array (rbuf)
character(token) function	dtoa_scalar (d)
character(string) function	dtoa_array (dbuf)
character(token) function	ltoa_scalar (l)
character(string) function	ltoa_array (lbuf)

Detailed Description

Definition at line 130 of file dc_string.f90.

Member Function/Subroutine Documentation

dtoa_array()

character(string) function dc_string::tochar::dtoa_array

(

real(dp), dimension(:), intent(in)

dbuf

)

倍精度実数配列を文字列に変換

各要素をカンマと空白「, 」で区切って返します。

Parameters

[in]

dbuf

変換する倍精度実数配列

Returns

文字列表現

Definition at line 1036 of file dc_string.f90.

    real(DP), intent(in):: dbuf(:)
    integer:: i
    continue
    if (size(dbuf) <= 0) then
      result = ""
      return
    endif
    result = tochar(dbuf(1))
    do, i = 2, size(dbuf)
      result = trim(result) // ", " // trim(tochar(dbuf(i)))
    enddo

dtoa_scalar()

character(token) function dc_string::tochar::dtoa_scalar

(

real(dp), intent(in)

d

)

倍精度実数スカラーを文字列に変換

Parameters

[in]

d

変換する倍精度実数値

Returns

文字列表現

Definition at line 1002 of file dc_string.f90.

    real(DP), intent(in):: d
    character(len = 32):: buffer, expbuf
    integer:: ptr, eptr
    continue
    write(unit=buffer, fmt="(g32.24)") d
    eptr = scan(buffer, "eE", back=.true.)
    expbuf = ''
    if (eptr > 1) then
      expbuf = buffer(eptr: )
      buffer(eptr: ) = " "
    end if
    ptr = verify(buffer, " 0", back=.true.)
    if (ptr > 0) buffer(ptr+1: ) = " "
    if (eptr > 1) then
      buffer = buffer(1:len_trim(buffer)) // expbuf
    end if
    result = adjustl(buffer)

itoa_array()

character(string) function dc_string::tochar::itoa_array

(

integer, dimension(:), intent(in)

ibuf

)

整数配列を文字列に変換

各要素をカンマと空白「, 」で区切って返します。

Parameters

[in]

ibuf

変換する整数配列

Returns

文字列表現

Definition at line 920 of file dc_string.f90.

    integer, intent(in):: ibuf(:)
    integer:: i
  continue
    if (size(ibuf) <= 0) then
      result = ""
      return
    endif
    result = tochar(ibuf(1))
    do, i = 2, size(ibuf)
      result = trim(result) // ", " // trim(tochar(ibuf(i)))
    enddo

itoa_scalar()

character(token) function dc_string::tochar::itoa_scalar

(

integer, intent(in)

i

)

整数スカラーを文字列に変換

Parameters

[in]

i

変換する整数値

Returns

文字列表現

Definition at line 898 of file dc_string.f90.

    integer, intent(in):: i
    character(len = 32):: buffer
  continue
    write(unit=buffer, fmt="(i20)") i
    result = adjustl(buffer)

ltoa_array()

character(string) function dc_string::tochar::ltoa_array

(

logical, dimension(:), intent(in)

lbuf

)

論理値配列を文字列に変換

各要素をカンマと空白「, 」で区切って返します。

Parameters

[in]

lbuf

変換する論理値配列

Returns

文字列表現

Definition at line 1084 of file dc_string.f90.

    logical, intent(in):: lbuf(:)
    integer:: i
    continue
    if (size(lbuf) <= 0) then
      result = ""
      return
    endif
    result = tochar(lbuf(1))
    do, i = 2, size(lbuf)
      result = trim(result) // ", " // trim(tochar(lbuf(i)))
    enddo

ltoa_scalar()

character(token) function dc_string::tochar::ltoa_scalar

(

logical, intent(in)

l

)

論理値スカラーを文字列に変換

Parameters

[in]

l

変換する論理値

Returns

".true." または ".false."

Definition at line 1060 of file dc_string.f90.

    logical, intent(in):: l
    continue
    if (l) then
      result = ".true."
    else
      result = ".false."
    end if

rtoa_array()

character(string) function dc_string::tochar::rtoa_array

(

real(sp), dimension(:), intent(in)

rbuf

)

単精度実数配列を文字列に変換

各要素をカンマと空白「, 」で区切って返します。

Parameters

[in]

rbuf

変換する単精度実数配列

Returns

文字列表現

Definition at line 978 of file dc_string.f90.

    real(SP), intent(in):: rbuf(:)
    integer:: i
    continue
    if (size(rbuf) <= 0) then
      result = ""
      return
    endif
    result = tochar(rbuf(1))
    do, i = 2, size(rbuf)
      result = trim(result) // ", " // trim(tochar(rbuf(i)))
    enddo

rtoa_scalar()

character(token) function dc_string::tochar::rtoa_scalar

(

real(sp), intent(in)

x

)

単精度実数スカラーを文字列に変換

Parameters

[in]

x

変換する単精度実数値

Returns

文字列表現

Definition at line 944 of file dc_string.f90.

    real(SP), intent(in):: x
    character(len = 16):: buffer, expbuf
    integer:: ptr, eptr
    continue
    write(unit=buffer, fmt="(g16.8)") x
    eptr = scan(buffer, "eE", back=.true.)
    expbuf = ''
    if (eptr > 1) then
      expbuf = buffer(eptr: )
      buffer(eptr: ) = " "
    end if
    ptr = verify(buffer, " 0", back=.true.)
    if (ptr > 0) buffer(ptr+1: ) = " "
    if (eptr > 1) then
      buffer = buffer(1:len_trim(buffer)) // expbuf
    end if
    result = adjustl(buffer)

---

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

• /build/gtool5-1.0.0~rc5/debian/build-parallel/src/dc_utils/dc_string.f90