dc_string Module Reference

Handling character types. More...

Data Types
interface	concat
interface	cprintf
interface	cprintft
interface	get_array
interface	index_ofs
interface	lchar
interface	printf
interface	putline
interface	replace
interface	roundnum
interface	split
interface	stoa
interface	stod
interface	stoi
interface	str_to_logical
interface	strhead
interface	strieq
interface	strinclude
interface	tochar
interface	tolower
interface	toupper
interface	uchar

Functions/Subroutines
character(string) function, public	joinchar (carray, expr)
integer function, public	index_ofs (string, start, substr)
recursive character(string) function, public	replace (str, from, to, recursive, start_pos)
character(string) function, public	uchar (ch)
character(string) function, public	lchar (ch)
character(string) function, public	roundnum (num)

Detailed Description

Handling character types.

Author

Youhei SASAKI, Yasuhiro MORIKAWA, Eizi TOYODA

Copyright

Copyright (C) GFD Dennou Club, 2000-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

Important

This file is generated from ../../../../src/dc_utils/dc_string.erb by ERB included Ruby 3.3.8. Please do not edit this file directly.

Function/Subroutine Documentation

index_ofs()

integer function, public dc_string::index_ofs	(	character(len = *), intent(in)	string,
		integer, intent(in)	start,
		character(len = *), intent(in)	substr
	)

Find substring position with offset

Returns the starting position where substr is found in string, searching from position start. Returns 0 if not found. The returned position is counted from the beginning of string.

Parameters

[in]	string	String to search in
[in]	start	Starting position for search
[in]	substr	Substring to find

Returns

Position of substr, or 0 if not found

Definition at line 1611 of file dc_string.f90.

    character(len = *), intent(in):: string
    integer, intent(in):: start
    character(len = *), intent(in):: substr
    intrinsic index
    if (start < 1) then
      result = 0
      return
    endif
    result = index(string(start: ), substr)
    if (result == 0) return
    result = start + result - 1

joinchar()

character(string) function, public dc_string::joinchar	(	character(*), dimension(:), intent(in)	carray,
		character(*), intent(in), optional	expr
	)

Join character array with delimiter

Joins elements of character array carray with ", " delimiter. If expr is given, uses that string as delimiter.

Parameters

[in]	carray	Character array to join
[in]	expr	Delimiter string (optional, default: ", ")

Returns

Joined string

Definition at line 1120 of file dc_string.f90.

    implicit none
    character(*)     , intent(in)           :: carray(:)
    character(*)     , intent(in), optional :: expr
    character(2)     ,parameter :: default = ', '
    character(STRING)           :: delimiter
    integer                     :: dellen, i
  continue
    if ( present(expr) ) then
      delimiter = expr
      dellen = len(expr)
    else
      delimiter = default
      dellen = len(default)
    endif
    if (size(carray) <= 0) then
      result = ""
      return
    endif
    result = trim(carray(1))
    do, i = 2, size(carray)
      result = trim(result) // delimiter(1:dellen) // trim(carray(i))
    enddo

lchar()

character(string) function, public dc_string::lchar

(

character(len = *), intent(in)

ch

)

Return lowercase copy of string

Returns a copy of ch with all uppercase letters converted to lowercase. Non-alphabetic characters and already lowercase characters are unchanged.

Parameters

[in]

ch

String to convert

Returns

Lowercase string

Definition at line 1808 of file dc_string.f90.

    character(len = *), intent(in):: ch
  continue
    result = ch
    call tolower(result)

replace()

recursive character(string) function, public dc_string::replace	(	character(*), intent(in)	str,
		character(*), intent(in)	from,
		character(*), intent(in)	to,
		logical, intent(in), optional	recursive,
		integer, intent(in), optional	start_pos
	)

Replace substring in string

If string from is included in str, replaces it with string to and returns. If from is not included, returns str without change. When multiple from are included, only the first one is replaced. To replace all from to to, give .true. to optional argument recursive. By default, the string is searched from the top. If optional argument start_pos is given, the search starts from start_pos.

Parameters

[in]	str	Source string
[in]	from	String to find
[in]	to	Replacement string
[in]	recursive	If .true., replace all occurrences (optional)
[in]	start_pos	Starting position for search (optional)

Returns

Replaced string

Definition at line 1658 of file dc_string.f90.

    use dc_types, only: string
    implicit none
    character(STRING):: result
    character(*), intent(in):: str, from, to
    logical, intent(in), optional:: recursive
    integer, intent(in), optional:: start_pos
    integer:: sp
    integer:: i, isa, isb, iea, ieb
    integer:: ir
    continue
    if ( present(start_pos) ) then
      sp = start_pos
    else
      sp = 1
    end if
    if ( sp < 1 ) then
      sp = 1
    end if
    result = str
    i = index(result(sp:), from)
    if (i == 0) return
    i = i + sp - 1
    isa = i + len(from)
    isb = i + len(to)
    if (len(to) < len(from)) then
      iea = len(result)
      ieb = len(result) + len(to) - len(from)
    else
      iea = len(result) + len(from) - len(to)
      ieb = len(result)
    endif
    if (len(to) /= len(from)) result(isb:ieb) = result(isa:iea)
    result(i:i+len(to)-1) = to
    !-----------------------------------
    !  再帰的処理
    !  Recursive process
    ir = index(result(i+len(to):), from)
    if ( len_trim(from) == 0 ) then
      ir = index(trim(result(i+len(to):)), from)
    end if
    if (ir /= 0) then
      if ( present(recursive) ) then
        if ( recursive ) then
          result = replace( str = result, &
            &               from = from, to = to, &
            &               recursive = recursive, &
            &               start_pos = i+len(to) )
        end if
      end if
    end if

roundnum()

character(string) function, public dc_string::roundnum

(

character(*), intent(in)

num

)

Round numeric string representation

Formats numeric strings like '0.30000001' or '12.999998' that have rounding errors to cleaner representations like '0.3' or '13.'.

Parameters

[in]

num

Numeric string to round

Returns

Rounded numeric string

Definition at line 1831 of file dc_string.f90.

    character(*), intent(in):: num
    character(STRING):: nrv, enrv
    integer:: i, moving_up, nrvi, dig, zero_stream
  continue
    !
    ! 実数でないものについてはそのまま返す.
    !
    if ( scan('.', trim(num) ) == 0  ) then
      result = num
      return
    end if
    nrv = num
    !
    ! 指数部を避けておく.
    !
    enrv = ''
    i = scan(nrv, "eE", back=.true.)
    if ( i > 1  ) then
      enrv = nrv(i:)
      nrv(i:) = " "
    elseif ( i == 1 ) then
      result = nrv
      return
    end if
    !
    ! 0.30000001 などの末尾の 1 のような, ゴミの桁の数値を掃除し,
    ! 0.3000000 などに整形.
    !
    if ( index( trim( nrv ), '.') - len_trim( nrv ) < -7 ) then
      do while ( index('567890.', nrv(len_trim(nrv):len_trim(nrv)) ) == 0 )
        if ( len_trim(nrv) < 2 ) exit
        nrv = nrv(1:len_trim(nrv)-1)
      end do
    end if
    !
    ! 0.30000001986 などの末尾の 1 以降のゴミの桁の数値を掃除し,
    ! 0.3000000 などに整形.
    !
    if ( index( trim( nrv ), '.') - len_trim( nrv ) < -7 ) then
      dig = index( trim( nrv ), '.') + 1
      zero_stream = 0
      do while ( dig < len_trim( nrv ) )
        if ( nrv(dig:dig) == "0" ) then
          zero_stream = zero_stream + 1
        else
          zero_stream = 0
        end if
        if ( zero_stream > 7 ) then
          nrv(dig:len_trim(nrv)) = '0'
          exit
        end if
        dig = dig + 1
      end do
    end if
    !
    ! 0.3000000 などの末尾の 0 を掃除し,
    ! 0.3 などに整形.
    !
    if ( index( trim( nrv ), '.') /= 0 ) then
      do while ( index('123456789.', nrv(len_trim(nrv):len_trim(nrv)) ) == 0 )
        if ( len_trim(nrv) < 2 ) exit
        nrv = nrv(1:len_trim(nrv)-1)
      end do
    end if
    !
    ! 0.89999998 などの末尾の 8 のような, ゴミの桁の数値を掃除し,
    ! 0.8999999 などに整形.
    !
    moving_up = 0
    if ( index( trim( nrv ), '.') - len_trim( nrv ) < -7 ) then
      do while ( index('12345690.', nrv(len_trim(nrv):len_trim(nrv)) ) == 0 )
        if ( len_trim(nrv) < 2 ) exit
        nrv = nrv(1:len_trim(nrv)-1)
      end do
      moving_up = 1
    end if
    !
    ! 0.8999999 などの末尾の 9 を掃除し, 繰り上げて
    ! 0.9 などに整形.
    !
    if ( moving_up > 0 ) then
      do while ( index('012345678.', nrv(len_trim(nrv):len_trim(nrv)) ) == 0 )
        if ( len_trim(nrv) < 2 ) exit
        nrv = nrv(1:len_trim(nrv)-1)
      end do
    end if
    i = len_trim(nrv)
    do while ( moving_up > 0 .and. i > 0 )
      if ( index('.', nrv(i:i)) /= 0 ) then
        i = i - 1
        cycle
      end if
      nrvi = stoi( nrv(i:i) ) + moving_up
      if ( nrvi < 10 ) then
        nrv(i:i) = trim( tochar( nrvi ) )
        exit
      else
        nrv(i:i) = '0'
        if ( i < 2 ) then
          nrv = '10'
          exit
        else
          i = i - 1
          cycle
        end if
      end if
      if ( len_trim(nrv) < 2 ) exit
      nrv = nrv(1:len_trim(nrv)-1)
    end do
    !
    ! 0.3000000 などの末尾の 0 を掃除し,
    ! 0.3 などに整形.
    !
    if ( index( trim( nrv ), '.') /= 0 ) then
      do while ( index('123456789.', nrv(len_trim(nrv):len_trim(nrv)) ) == 0 )
        if ( len_trim(nrv) < 2 ) exit
        nrv = nrv(1:len_trim(nrv)-1)
      end do
    end if
    !
    ! 指数部を復帰する
    !
    if ( len_trim(enrv) > 0 ) then
      nrv = trim(nrv) // enrv
    end if
    result = nrv

uchar()

character(string) function, public dc_string::uchar

(

character(len = *), intent(in)

ch

)

Return uppercase copy of string

Returns a copy of ch with all lowercase letters converted to uppercase. Non-alphabetic characters and already uppercase characters are unchanged.

Parameters

[in]

ch

String to convert

Returns

Uppercase string

Definition at line 1785 of file dc_string.f90.

    character(len = *), intent(in):: ch
  continue
    result = ch
    call toupper(result)