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

)

Convert double precision real array to string

Elements are separated by ", ".

Parameters

[in]

dbuf

Double precision real array to convert

Returns

String representation

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

)

Convert double precision real scalar to string

Parameters

[in]

d

Double precision real value to convert

Returns

String representation

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

)

Convert integer array to string

Elements are separated by ", ".

Parameters

[in]

ibuf

Integer array to convert

Returns

String representation

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

)

Convert integer scalar to string

Parameters

[in]

i

Integer value to convert

Returns

String representation

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

)

Convert logical array to string

Elements are separated by ", ".

Parameters

[in]

lbuf

Logical array to convert

Returns

String representation

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

)

Convert logical scalar to string

Parameters

[in]

l

Logical value to convert

Returns

".true." or ".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

)

Convert single precision real array to string

Elements are separated by ", ".

Parameters

[in]

rbuf

Single precision real array to convert

Returns

String representation

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

)

Convert single precision real scalar to string

Parameters

[in]

x

Single precision real value to convert

Returns

String representation

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