dc_string Module Reference

Detailed Description

文字型変数の操作.

Author

Youhei SASAKI, Yasuhiro MORIKAWA, Eizi TOYODA

Copyright

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

本モジュールは文字列を操作するためのサブルーチン群を提供します.

Data Types
interface	concat
interface	cprintf
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
logical function	strhead_cc (whole, head)
logical function	strieq_cc (string_a, string_b)
logical function	str_include_ac (carray, string, ignore_space, ignore_case)
logical function	str2bool (string)
integer function	atoi_scalar (string, default)
real(dp) function	atod_scalar (string_in)
subroutine	str2ip (int_ptr, string_in)
subroutine	str2rp (real_ptr, string_in)
subroutine	str2dp (real_ptr, string_in)
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)
character(string) function, public	joinchar (carray, expr)
subroutine	concat_tail (carray, str, result)
character(string) function, dimension(1)	str_to_array1 (c1)
character(string) function, dimension(2)	str_to_array2 (c1, c2)
character(string) function, dimension(3)	str_to_array3 (c1, c2, c3)
character(string) function, dimension(4)	str_to_array4 (c1, c2, c3, c4)
character(string) function, dimension(5)	str_to_array5 (c1, c2, c3, c4, c5)
character(string) function, dimension(6)	str_to_array6 (c1, c2, c3, c4, c5, c6)
character(string) function, dimension(7)	str_to_array7 (c1, c2, c3, c4, c5, c6, c7)
character(string) function, dimension(8)	str_to_array8 (c1, c2, c3, c4, c5, c6, c7, c8)
character(string) function, dimension(9)	str_to_array9 (c1, c2, c3, c4, c5, c6, c7, c8, c9)
character(string) function, dimension(10)	str_to_array10 (c1, c2, c3, c4, c5, c6, c7, c8, c9, c10)
character(string) function, dimension(11)	str_to_array11 (c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11)
character(string) function, dimension(12)	str_to_array12 (c1, c2, c3, c4, c5, c6, c7, c8, c9, c10, c11, c12)
subroutine	split_cc (str, carray, sep, limit)
integer function, public	index_ofs (string, start, substr)
recursive character(strlen) function, public	replace (string, from, to, recursive, start_pos)
subroutine	cupper (ch)
subroutine	clower (ch)
character(string) function, public	uchar (ch)
character(string) function, public	lchar (ch)
character(string) function, public	roundnum (num)

Function/Subroutine Documentation

atod_scalar()

real(dp) function dc_string::atod_scalar ( character(len = *), intent(in)  string_in )

private

Definition at line 557 of file dc_string.f90.

References dc_types::string.

    !
    ! string で与えられる文字型変数を、倍精度実数型変数にして返します。
    ! もしも string が数値に変換できない場合、0.0 が返ります。
    !
    use dc_types, only: string
    character(len = *), intent(in):: string_in
    integer:: ios
    character(len = STRING):: buffer
    integer:: ipoint, iexp
    intrinsic scan

    continue

    buffer = string_in
    ! もし整定数をいれてしまった場合は小数点を附加
    if (index(buffer, '.') == 0) then
      iexp = scan(buffer, "eEdD")
      if (iexp /= 0) then
        buffer(iexp+1: len(buffer)) = buffer(iexp: len(buffer)-1)
        ipoint = iexp
      else
        ipoint = len_trim(buffer) + 1
      endif
      buffer(ipoint: ipoint) = '.'
    endif
    read(unit=buffer, fmt="(g80.10)", iostat=ios) result
    if (ios /= 0) result = 0.0

atoi_scalar()

integer function dc_string::atoi_scalar ( character(len = *), intent(in)  string, integer, intent(in), optional  default  )

private

Definition at line 535 of file dc_string.f90.

    !
    ! string で与えられる文字型変数を、整数型変数にして返します。
    ! もしも string が数値に変換できない場合、default が返ります。
    ! default を指定しない場合は 0 が返ります。
    !
    character(len = *), intent(in):: string
    integer, intent(in), optional:: default
    integer:: ios

    continue

    read(unit=string, fmt="(i80)", iostat=ios) result
    if (ios /= 0) then
      if (present(default)) then
        result = default
      else
        result = 0
      endif
    endif

clower()

subroutine dc_string::clower ( character(len = *), intent(inout)  ch )

private

Definition at line 1368 of file dc_string.f90.

    !
    ! 文字列 ch に英字が含まれる場合、その英字を小文字に変換して ch
    ! に返します。 英字でない文字や既に小文字になっている文字は
    ! そのまま返します。
    !
    character(len = *), intent(inout):: ch
    integer:: i, lch, idx
  continue
    lch = len(ch)
    do, i = 1, lch
      idx = ichar(ch(i:i))
      if (65 <= idx .and. idx <= 90) then
        ch(i:i)=char(idx + 32)
      end if
    end do

concat_tail()

subroutine dc_string::concat_tail ( character(*), dimension(:), intent(in)  carray, character(*), intent(in)  str, character(string), dimension(:), pointer  result  )

private

Definition at line 893 of file dc_string.f90.

    !
    ! 文字型配列 *carray* の各成分の末尾に *str* を追加して
    ! *result* に返します。*carray* の各成分の末尾の空白は無視されます。
    !
    ! result(:) の配列サイズは carray のサイズに応じて自動的に決まります。
    ! ただし、result(:) は必ず空状態または不定状態で与えてください。
    ! 既に割り付けられている場合、メモリリークを起こします。
    !
    implicit none
    character(*), intent(in)  :: carray(:)
    character(*), intent(in)  :: str
    character(STRING), pointer:: result(:) ! (out)
    integer                     :: i, size_carray
  continue
    size_carray = size(carray)
    allocate(result(size_carray))

    do i = 1, size_carray
      result(i) = trim(carray(i)) // str
    end do

cupper()

subroutine dc_string::cupper

(

character(len = *), intent(inout)

ch

)

Definition at line 1350 of file dc_string.f90.

    !
    ! 文字列 ch に英字が含まれる場合、その英字を大文字に変換して ch
    ! に返します。 英字でない文字や既に大文字になっている文字は
    ! そのまま返します。
    !
    character(len = *), intent(inout):: ch
    integer:: i, lch, idx
  continue
    lch = len(ch)
    do, i = 1, lch
      idx = ichar(ch(i:i))
      if (97 <= idx .and. idx <= 122) then
        ch(i:i)=char(idx - 32)
      end if
    end do

dtoa_array()

character(string) function dc_string::dtoa_array ( real(dp), dimension(:), intent(in)  dbuf )

private

Definition at line 804 of file dc_string.f90.

    !
    ! 倍精度実数型配列 dbuf(:) で与えられる数値を文字型変数にして返します。
    ! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」
    ! で区切って返します。
    !
    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::dtoa_scalar ( real(dp), intent(in)  d )

private

Definition at line 777 of file dc_string.f90.

    !
    ! 倍精度実数型変数 d で与えられる数値を文字型変数にして返します。
    ! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」
    ! で区切って返します。
    !
    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)

index_ofs()

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

Definition at line 1243 of file dc_string.f90.

    !
    ! 文字列 string の start 文字目以降の文字列の中に substr
    ! の文字列が含まれている時、その開始文字位置を返します。
    ! 含まれない場合は 0 を返します。
    ! 返される開始文字位置は文字列 string の先頭から数えます。
    !
    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

itoa_array()

character(string) function dc_string::itoa_array ( integer, dimension(:), intent(in)  ibuf )

private

Definition at line 712 of file dc_string.f90.

    !
    ! 整数型配列変数 ibuf(:) で与えられる数値を文字型変数にして返します。
    ! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」
    ! で区切って返します。
    !
    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::itoa_scalar ( integer, intent(in)  i )

private

Definition at line 699 of file dc_string.f90.

    !
    ! 整数型変数 i で与えられる数値を文字型変数にして返します。
    ! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」
    ! で区切って返します。
    !
    integer, intent(in):: i
    character(len = 32):: buffer
  continue
    write(unit=buffer, fmt="(i20)") i
    result = adjustl(buffer)

joinchar()

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

Definition at line 861 of file dc_string.f90.

Referenced by actual_iorange_dump(), dc_args::dcargsget0(), dc_args::dcargshelp0(), dc_args::dcargsputline0(), dc_hash::dchashputline0(), historyaddattrchar0(), historyaddattrdouble0(), historyaddattrdouble1(), historyaddattrint0(), historyaddattrint1(), historyaddattrlogical0(), historyaddattrreal0(), historyaddattrreal1(), historyaddvariable1(), historyaddvariable2(), historyautoaddvariable1(), historyautoallvarfix(), historyautoclose1(), historyautocreate1(), historyautocreate2(), historyautocreate3(), historyaxisaddattrchar0(), historyaxisaddattrdouble0(), historyaxisaddattrdouble1(), historyaxisaddattrint0(), historyaxisaddattrint1(), historyaxisaddattrlogical0(), historyaxisaddattrreal0(), historyaxisaddattrreal1(), historycreate1(), historycreate2(), historygetdouble0(), historygetdouble1(), historygetdouble2(), historygetdouble3(), historygetdouble4(), historygetdouble5(), historygetdouble6(), historygetdouble7(), historygetint0(), historygetint1(), historygetint2(), historygetint3(), historygetint4(), historygetint5(), historygetint6(), historygetint7(), historygetreal0(), historygetreal1(), historygetreal2(), historygetreal3(), historygetreal4(), historygetreal5(), historygetreal6(), historygetreal7(), historygettattrchar0(), historygettattrdouble0(), historygettattrdouble1(), historygettattrint0(), historygettattrint1(), historygettattrreal0(), historygettattrreal1(), historyputcharex(), historyputdoubleex(), historyputintex(), historyputline(), historyputrealex(), historyvarinfoaddattrchar0(), historyvarinfoaddattrdouble0(), historyvarinfoaddattrdouble1(), historyvarinfoaddattrint0(), historyvarinfoaddattrint1(), historyvarinfoaddattrlogical0(), historyvarinfoaddattrreal0(), historyvarinfoaddattrreal1(), historyvarinfocopy1(), gtool_historyauto_internal::hstfilecreate(), hstnmlinfoadd(), hstnmlinfoallnamevalid(), hstnmlinfoallvarinicheck(), hstnmlinfoassocgthist(), hstnmlinfoclose(), hstnmlinfocreate(), hstnmlinfodelete(), hstnmlinfoenddefine(), hstnmlinfogetnames(), hstnmlinfoinquire(), hstnmlinfonames(), hstnmlinfooutputstep(), hstnmlinfooutputstepdisable(), hstnmlinfooutputvalid(), hstnmlinfoputline(), hstnmlinforedefine(), hstnmlinforesetdefault(), and hstnmlinfosetvalidname().

    !
    ! 文字型配列 carray に与えた複数の文字列をカンマと空白
    ! 「<tt>, </tt>」 で区切った1つの文字列にして返します。
    ! expr に文字列を与えると、その文字列を区切り文字として用います。
    !
    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

)

Definition at line 1397 of file dc_string.f90.

    !
    ! 文字列 ch に英字が含まれる場合、その英字を小文字に変換して返します。
    ! 英字でない文字や既に小文字になっている文字はそのまま返します。
    !
    character(len = *), intent(in):: ch
  continue
    result = ch
    call tolower(result)

ltoa_array()

character(string) function dc_string::ltoa_array ( logical, dimension(:), intent(in)  lbuf )

private

Definition at line 838 of file dc_string.f90.

    !
    ! 論理型配列 lbuf(:) で与えられる数値を文字型変数にして返します。
    ! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」
    ! で区切って返します。
    !
    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::ltoa_scalar ( logical, intent(in)  l )

private

Definition at line 823 of file dc_string.f90.

    !
    ! 論理型変数 l で与えられる数値を文字型変数にして返します。
    ! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」
    ! で区切って返します。
    !
    logical, intent(in):: l
  continue
    if (l) then
      result = ".true."
    else
      result = ".false."
    end if

replace()

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

Definition at line 1264 of file dc_string.f90.

References dc_types::string.

    !
    ! 文字列 *string* に文字列 *from* が含まれる場合, その部分を文字列 *to*
    ! に置換して返します. 文字列 *from* が含まれない場合は *string*
    ! をそのまま返します. *from* が複数含まれる場合, 先頭の *from*
    ! のみが置換されます.
    !
    ! 全ての *from* を *to* へ変換したい場合には,
    ! オプショナル引数 *recursive* に .true. を与えてください.
    !
    ! デフォルトでは, 文字列の最初から検索を行います.
    ! オプショナル引数 *start_pos* を与える場合,
    ! *start_pos* 文字目から検索を行います.
    !
    ! If a string *from* is included in *string*, the string is
    ! replace to *to*, and the replaced string is returned.
    ! If a string *from* is not included, *string* is returned
    ! without change.
    ! When multiple *from* are included, only first *from* is replaced.
    !
    ! In order 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 is started from *start_pos*.
    !
    use dc_types, only: strlen => string
    implicit none
    character(STRLEN):: result
    character(*), intent(in):: string, 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 = string
    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( string = 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

)

Definition at line 1408 of file dc_string.f90.

    !
    ! '0.30000001' や '12.999998' などの丸め誤差によって端数が残って
    ! しまっている数値表記を '0.3' や '13.' などに整形して返します.
    !
    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

rtoa_array()

character(string) function dc_string::rtoa_array ( real, dimension(:), intent(in)  rbuf )

private

Definition at line 758 of file dc_string.f90.

    !
    ! 単精度実数型配列 rbuf(:)、で与えられる数値を文字型変数にして返します。
    ! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」
    ! で区切って返します。
    !
    real, 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::rtoa_scalar ( real, intent(in)  x )

private

Definition at line 731 of file dc_string.f90.

    !
    ! 単精度実数型変数 x で与えられる数値を文字型変数にして返します。
    ! 配列が与えられる場合、各要素をカンマと空白「<tt>, </tt>」
    ! で区切って返します。
    !
    real, 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)

split_cc()

subroutine dc_string::split_cc ( character(*), intent(in)  str, character(*), dimension(:), pointer  carray, character(*), intent(in)  sep, integer, intent(in), optional  limit  )

private

Definition at line 1143 of file dc_string.f90.

References dc_types::string.

    !
    ! *str* で与えられた文字列を 文字列 *sep* で分解し,
    ! ポインタ配列 *carray* に返します.
    ! *carray* は必ず空状態にして与えてください. 割り付け状態の
    ! 場合にはエラーを返します.
    !
    ! *limit* に正の数を与えた場合, 最大 *limit* 個のフィールドに分割
    ! します.  負の数や 0 の場合は省略した場合と同じになります.  *str*
    ! の末尾の空白は除去されます.  *sep* に空文字を代入する場合, 空白
    ! 文字で分割されます.
    !
    use dc_types, only: string
    implicit none
    character(*), intent(in):: str
    character(*), pointer:: carray(:) !(out)
    character(*), intent(in):: sep
    integer, intent(in), optional:: limit
    integer :: num, cur, i, limitnum
    character(STRING) :: substr
    logical :: end_flag
  continue
    if (present(limit)) then
      if (limit > 0) then
        limitnum = limit
      else
        limitnum = 0
      end if
    else
      limitnum = 0
    end if

    if (len(trim(sep)) == 0) then
      num = 1
      substr = str
      ! 重複して無駄だが carray を allocate するため, 何分割するか
      ! 調べ, num に格納する.
      do
        cur = index(trim(substr), ' ')
        if (cur == 0) exit
        num = num + 1
        substr = adjustl(substr(cur + len(sep) :len(substr)))
      end do

      if (limitnum /= 0 .and. num > limitnum) num = limitnum
      allocate(carray(num))

      substr = str
      end_flag = .false.
      do i = 1, num
        cur = index(trim(substr), ' ')
        if (cur == 0 .or. i == num) end_flag = .true.
        if (end_flag) then
          carray(i) = substr
          exit
        else
          carray(i) = substr(1:cur - 1)
        end if
        substr = adjustl(substr(cur + len(sep) :len(substr)))
      end do

    else
      num = 1
      substr = str
      ! 重複して無駄だが carray を allocate するため, 何分割するか
      ! 調べ, num に格納する.
      do
        cur = index(substr, trim(sep))
        if (cur == 0) exit
        num = num + 1
        substr = substr(cur + len(sep) :len(substr))
      end do

      if (limitnum /= 0 .and. num > limitnum) num = limitnum
      allocate(carray(num))

      substr = str
      end_flag = .false.
      do i = 1, num
        cur = index(substr, trim(sep))
        if (cur == 0 .or. i == num) end_flag = .true.
        if (end_flag) then
          carray(i) = substr
          exit
        else
          carray(i) = substr(1:cur - 1)
        end if
        substr = substr(cur + len(sep) :len(substr))
      end do
    end if

    return

str2bool()

logical function dc_string::str2bool ( character(len = *), intent(in)  string )

private

Definition at line 515 of file dc_string.f90.

    !
    ! string で与えられる文字型変数を論理型にして返します。 string
    ! が空、 または 0、 0.0、 0.0D0、 0.0d0、 .false.、 .FALSE.、 f、
    ! F、 false、 FALSE の場合には <tt>.false.</tt> が返ります。
    ! それ以外の場合には <tt>.true.</tt> が返ります。
    !
    character(len = *), intent(in):: string

    continue

    select case(string)
    case ("", "0", "0.0", "0.0D0", "0.0d0", ".false.", ".FALSE.", &
            & "f", "F", "false", "FALSE")
      result = .false.
    case default
      result = .true.
    end select

str2dp()

subroutine dc_string::str2dp ( real(dp), dimension(:), pointer  real_ptr, character(len = *), intent(in)  string_in  )

private

Definition at line 659 of file dc_string.f90.

    !
    ! string で与えられる文字型変数をカンマ「,」で区切り、
    ! 倍精度実数型配列ポインタ real_ptr(:) にして返します。
    ! real_ptr(:) の配列サイズは string の内容に応じて自動的に決まります。
    !
    ! ただし、real_ptr(:) は必ず空状態または不定状態で与えてください。
    ! 既に割り付けられている場合、メモリリークを起こします。
    !
    real(DP), pointer:: real_ptr(:) !(out)
    character(len = *), intent(in):: string_in
    integer:: i, j, idx, nvalues
  continue
    nvalues = 1
    i = 1
    do
      idx = index(string_in(i: ), ',')
      if (idx == 0) exit
      i = i + idx - 1 + 1
      nvalues = nvalues + 1
    enddo
    allocate(real_ptr(nvalues))
    i = 1
    j = 1
    do
      idx = index(string_in(i: ), ',')
      if (idx == 0) then
        real_ptr(j) = stod(string_in(i: ))
        exit
      endif
      real_ptr(j) = stod(string_in(i: i+idx-2))
      i = i + idx - 1 + 1
      j = j + 1
    enddo

str2ip()

subroutine dc_string::str2ip	(	integer, dimension(:), pointer	int_ptr,
		character(len = *), intent(in)	string_in
	)

Definition at line 587 of file dc_string.f90.

    !
    ! string で与えられる文字型変数をカンマ「,」で区切り、
    ! 整数型配列ポインタ int_ptr(:) にして返します。 int_ptr(:)
    ! の配列サイズは string の内容に応じて自動的に決まります。
    !
    ! ただし、int_ptr(:) は必ず空状態または不定状態で与えてください。
    ! 既に割り付けられている場合、メモリリークを起こします。
    !
    integer, pointer:: int_ptr(:) !(out)
    character(len = *), intent(in):: string_in
    integer:: i, j, idx, nvalues
  continue
    nvalues = 1
    i = 1
    do
      idx = index(string_in(i: ), ',')
      if (idx == 0) exit
      i = i + idx - 1 + 1
      nvalues = nvalues + 1
    enddo
    allocate(int_ptr(nvalues))
    i = 1
    j = 1
    do
      idx = index(string_in(i: ), ',')
      if (idx == 0) then
        int_ptr(j) = stoi(string_in(i: ))
        exit
      endif
      int_ptr(j) = stod(string_in(i: i+idx-2))
      i = i + idx - 1 + 1
      j = j + 1
    enddo

str2rp()

subroutine dc_string::str2rp ( real, dimension(:), pointer  real_ptr, character(len = *), intent(in)  string_in  )

private

Definition at line 623 of file dc_string.f90.

    !
    ! string で与えられる文字型変数をカンマ「,」で区切り、
    ! 単精度実数型配列ポインタ real_ptr(:) にして返します。
    ! real_ptr(:) の配列サイズは string の内容に応じて自動的に決まります。
    !
    ! ただし、real_ptr(:) は必ず空状態または不定状態で与えてください。
    ! 既に割り付けられている場合、メモリリークを起こします。
    !
    real, pointer:: real_ptr(:) !(out)
    character(len = *), intent(in):: string_in
    integer:: i, j, idx, nvalues
  continue
    nvalues = 1
    i = 1
    do
      idx = index(string_in(i: ), ',')
      if (idx == 0) exit
      i = i + idx - 1 + 1
      nvalues = nvalues + 1
    enddo
    allocate(real_ptr(nvalues))
    i = 1
    j = 1
    do
      idx = index(string_in(i: ), ',')
      if (idx == 0) then
        real_ptr(j) = stod(string_in(i: ))
        exit
      endif
      real_ptr(j) = stod(string_in(i: i+idx-2))
      i = i + idx - 1 + 1
      j = j + 1
    enddo

str_include_ac()

logical function dc_string::str_include_ac ( character(*), dimension(:), intent(in)  carray, character(*), intent(in)  string, logical, intent(in), optional  ignore_space, logical, intent(in), optional  ignore_case  )

private

Definition at line 446 of file dc_string.f90.

References strieq_cc().

    !
    ! 文字型配列引数 *carray* が文字型引数 *string* と等しい要素を持つ場合に
    ! .true. を返します.
    !
    ! 文字列の前後の空白は無視されます.
    ! オプショナル引数 *ignore_space* に .false. を
    ! 与えた場合には文字列先頭の空白を無視しません.
    !
    ! オプショナル引数 *ignore_case* に .true. を与えた場合には
    ! 大文字, 小文字の違いを無視して比較します.
    !
    ! If an character array argument *carray* has the same
    ! as character argument *string*, ".true." is returned.
    !
    ! And beginning and trailing spaces are ignored.
    ! If ".false." is given to an optional argument *ignore_space*,
    ! beginning spaces are not ignored.
    !
    ! If ".true." is given to an optional argument *ignore_case*,
    ! this function ignores case.
    !
    character(*), intent(in):: carray(:)
    character(*), intent(in):: string
    logical, intent(in), optional:: ignore_space
    logical, intent(in), optional:: ignore_case
    integer:: array_size, i
    logical:: ignore_space_work, ignore_case_work

    continue

    ignore_space_work = .true.
    if ( present(ignore_space) ) then
      if ( .not. ignore_space ) then
        ignore_space_work = .false.
      end if
    end if

    ignore_case_work = .false.
    if ( present(ignore_case) ) then
      if ( ignore_case ) then
        ignore_case_work = .true.
      end if
    end if

    array_size = size(carray)
    do i = 1, array_size
      if ( ignore_space_work ) then
        if ( ignore_case_work ) then
          result = &
            & strieq_cc( trim( adjustl( carray(i) ) ), &
            &            trim( adjustl( string    ) ) )
        else
          result = &
            & ( trim( adjustl( carray(i) ) ) == trim( adjustl( string ) ) )
        end if

      else
        if ( ignore_case_work ) then
          result = &
            & strieq_cc( trim( carray(i) ), trim( string ) )
        else
          result = ( trim(carray(i)) == trim(string) )
        end if
      end if
      if (result) return
    end do

Here is the call graph for this function:

str_to_array1()

character(string) function, dimension(1) dc_string::str_to_array1 ( character(*), intent(in)  c1 )

private

Definition at line 917 of file dc_string.f90.

    !
    ! 異なる長さの複数の文字型変数を 1 つの文字型配列に変換します。
    !
    ! 1 から 1 個までの引数を与えることが可能です。
    !
    character(*), intent(in) :: c1
    character(STRING) :: result(1)

  continue
    result(1) = c1

str_to_array10()

character(string) function, dimension(10) dc_string::str_to_array10 ( character(*), intent(in)  c1, character(*), intent(in)  c2, character(*), intent(in)  c3, character(*), intent(in)  c4, character(*), intent(in)  c5, character(*), intent(in)  c6, character(*), intent(in)  c7, character(*), intent(in)  c8, character(*), intent(in)  c9, character(*), intent(in)  c10  )

private

Definition at line 1070 of file dc_string.f90.

    !
    ! 異なる長さの複数の文字型変数を 1 つの文字型配列に変換します。
    !
    ! 1 から 10 個までの引数を与えることが可能です。
    !
    character(*), intent(in) :: c1,c2,c3,c4,c5,c6,c7,c8,c9,c10
    character(STRING) :: result(10)

  continue
    result(1) = c1
    result(2) = c2
    result(3) = c3
    result(4) = c4
    result(5) = c5
    result(6) = c6
    result(7) = c7
    result(8) = c8
    result(9) = c9
    result(10) = c10

str_to_array11()

character(string) function, dimension(11) dc_string::str_to_array11 ( character(*), intent(in)  c1, character(*), intent(in)  c2, character(*), intent(in)  c3, character(*), intent(in)  c4, character(*), intent(in)  c5, character(*), intent(in)  c6, character(*), intent(in)  c7, character(*), intent(in)  c8, character(*), intent(in)  c9, character(*), intent(in)  c10, character(*), intent(in)  c11  )

private

Definition at line 1092 of file dc_string.f90.

    !
    ! 異なる長さの複数の文字型変数を 1 つの文字型配列に変換します。
    !
    ! 1 から 11 個までの引数を与えることが可能です。
    !
    character(*), intent(in) :: c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,c11
    character(STRING) :: result(11)

  continue
    result(1) = c1
    result(2) = c2
    result(3) = c3
    result(4) = c4
    result(5) = c5
    result(6) = c6
    result(7) = c7
    result(8) = c8
    result(9) = c9
    result(10) = c10
    result(11) = c11

str_to_array12()

character(string) function, dimension(12) dc_string::str_to_array12 ( character(*), intent(in)  c1, character(*), intent(in)  c2, character(*), intent(in)  c3, character(*), intent(in)  c4, character(*), intent(in)  c5, character(*), intent(in)  c6, character(*), intent(in)  c7, character(*), intent(in)  c8, character(*), intent(in)  c9, character(*), intent(in)  c10, character(*), intent(in)  c11, character(*), intent(in)  c12  )

private

Definition at line 1115 of file dc_string.f90.

    !
    ! 異なる長さの複数の文字型変数を 1 つの文字型配列に変換します。
    !
    ! 1 から 12 個までの引数を与えることが可能です。
    !
    character(*), intent(in) :: c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,c11,c12
    character(STRING) :: result(12)

  continue
    result(1) = c1
    result(2) = c2
    result(3) = c3
    result(4) = c4
    result(5) = c5
    result(6) = c6
    result(7) = c7
    result(8) = c8
    result(9) = c9
    result(10) = c10
    result(11) = c11
    result(12) = c12

str_to_array2()

character(string) function, dimension(2) dc_string::str_to_array2 ( character(*), intent(in)  c1, character(*), intent(in)  c2  )

private

Definition at line 930 of file dc_string.f90.

    !
    ! 異なる長さの複数の文字型変数を 1 つの文字型配列に変換します。
    !
    ! 1 から 2 個までの引数を与えることが可能です。
    !
    character(*), intent(in) :: c1,c2
    character(STRING) :: result(2)

  continue
    result(1) = c1
    result(2) = c2

str_to_array3()

character(string) function, dimension(3) dc_string::str_to_array3 ( character(*), intent(in)  c1, character(*), intent(in)  c2, character(*), intent(in)  c3  )

private

Definition at line 944 of file dc_string.f90.

    !
    ! 異なる長さの複数の文字型変数を 1 つの文字型配列に変換します。
    !
    ! 1 から 3 個までの引数を与えることが可能です。
    !
    character(*), intent(in) :: c1,c2,c3
    character(STRING) :: result(3)

  continue
    result(1) = c1
    result(2) = c2
    result(3) = c3

str_to_array4()

character(string) function, dimension(4) dc_string::str_to_array4 ( character(*), intent(in)  c1, character(*), intent(in)  c2, character(*), intent(in)  c3, character(*), intent(in)  c4  )

private

Definition at line 959 of file dc_string.f90.

    !
    ! 異なる長さの複数の文字型変数を 1 つの文字型配列に変換します。
    !
    ! 1 から 4 個までの引数を与えることが可能です。
    !
    character(*), intent(in) :: c1,c2,c3,c4
    character(STRING) :: result(4)

  continue
    result(1) = c1
    result(2) = c2
    result(3) = c3
    result(4) = c4

str_to_array5()

character(string) function, dimension(5) dc_string::str_to_array5 ( character(*), intent(in)  c1, character(*), intent(in)  c2, character(*), intent(in)  c3, character(*), intent(in)  c4, character(*), intent(in)  c5  )

private

Definition at line 975 of file dc_string.f90.

    !
    ! 異なる長さの複数の文字型変数を 1 つの文字型配列に変換します。
    !
    ! 1 から 5 個までの引数を与えることが可能です。
    !
    character(*), intent(in) :: c1,c2,c3,c4,c5
    character(STRING) :: result(5)

  continue
    result(1) = c1
    result(2) = c2
    result(3) = c3
    result(4) = c4
    result(5) = c5

str_to_array6()

character(string) function, dimension(6) dc_string::str_to_array6 ( character(*), intent(in)  c1, character(*), intent(in)  c2, character(*), intent(in)  c3, character(*), intent(in)  c4, character(*), intent(in)  c5, character(*), intent(in)  c6  )

private

Definition at line 992 of file dc_string.f90.

    !
    ! 異なる長さの複数の文字型変数を 1 つの文字型配列に変換します。
    !
    ! 1 から 6 個までの引数を与えることが可能です。
    !
    character(*), intent(in) :: c1,c2,c3,c4,c5,c6
    character(STRING) :: result(6)

  continue
    result(1) = c1
    result(2) = c2
    result(3) = c3
    result(4) = c4
    result(5) = c5
    result(6) = c6

str_to_array7()

character(string) function, dimension(7) dc_string::str_to_array7 ( character(*), intent(in)  c1, character(*), intent(in)  c2, character(*), intent(in)  c3, character(*), intent(in)  c4, character(*), intent(in)  c5, character(*), intent(in)  c6, character(*), intent(in)  c7  )

private

Definition at line 1010 of file dc_string.f90.

    !
    ! 異なる長さの複数の文字型変数を 1 つの文字型配列に変換します。
    !
    ! 1 から 7 個までの引数を与えることが可能です。
    !
    character(*), intent(in) :: c1,c2,c3,c4,c5,c6,c7
    character(STRING) :: result(7)

  continue
    result(1) = c1
    result(2) = c2
    result(3) = c3
    result(4) = c4
    result(5) = c5
    result(6) = c6
    result(7) = c7

str_to_array8()

character(string) function, dimension(8) dc_string::str_to_array8 ( character(*), intent(in)  c1, character(*), intent(in)  c2, character(*), intent(in)  c3, character(*), intent(in)  c4, character(*), intent(in)  c5, character(*), intent(in)  c6, character(*), intent(in)  c7, character(*), intent(in)  c8  )

private

Definition at line 1029 of file dc_string.f90.

    !
    ! 異なる長さの複数の文字型変数を 1 つの文字型配列に変換します。
    !
    ! 1 から 8 個までの引数を与えることが可能です。
    !
    character(*), intent(in) :: c1,c2,c3,c4,c5,c6,c7,c8
    character(STRING) :: result(8)

  continue
    result(1) = c1
    result(2) = c2
    result(3) = c3
    result(4) = c4
    result(5) = c5
    result(6) = c6
    result(7) = c7
    result(8) = c8

str_to_array9()

character(string) function, dimension(9) dc_string::str_to_array9 ( character(*), intent(in)  c1, character(*), intent(in)  c2, character(*), intent(in)  c3, character(*), intent(in)  c4, character(*), intent(in)  c5, character(*), intent(in)  c6, character(*), intent(in)  c7, character(*), intent(in)  c8, character(*), intent(in)  c9  )

private

Definition at line 1049 of file dc_string.f90.

    !
    ! 異なる長さの複数の文字型変数を 1 つの文字型配列に変換します。
    !
    ! 1 から 9 個までの引数を与えることが可能です。
    !
    character(*), intent(in) :: c1,c2,c3,c4,c5,c6,c7,c8,c9
    character(STRING) :: result(9)

  continue
    result(1) = c1
    result(2) = c2
    result(3) = c3
    result(4) = c4
    result(5) = c5
    result(6) = c6
    result(7) = c7
    result(8) = c8
    result(9) = c9

strhead_cc()

logical function dc_string::strhead_cc	(	character(len = *), intent(in)	whole,
		character(len = *), intent(in)	head
	)

Definition at line 402 of file dc_string.f90.

    !
    ! 文字列 head と文字列 whole の先頭部分 (head と同じ文字列長)
    ! とを比較し、同じものならば .true. を、異なる場合には .false.
    ! を返します。 whole の文字列長が head の文字列長よりも短い場合には
    ! .false. を返します。
    !
    character(len = *), intent(in):: whole
    character(len = *), intent(in):: head

    continue

    result = (len(whole) >= len(head))
    if (.not. result) return
    result = (whole(1:len(head)) == head)

strieq_cc()

logical function dc_string::strieq_cc ( character(len = *), intent(in)  string_a, character(len = *), intent(in)  string_b  )

private

Definition at line 420 of file dc_string.f90.

Referenced by str_include_ac().

    !
    ! 大文字・小文字を無視して文字列の比較を行います。
    ! 文字列 string_a と文字列 string_b を比較し、同じものならば
    ! .true. を、異なる場合には .false. を返します。
    !
    !--
    ! ※ 注意書き ※
    !
    ! コンパイラによっては character(len = len(string_a)):: abuf
    ! が通らないため, 文字数を dc_types で提供される種別型
    ! パラメタ STRING で制限
    !++
    !
    character(len = *), intent(in):: string_a
    character(len = *), intent(in):: string_b
    character(len = STRING):: abuf
    character(len = STRING):: bbuf
    abuf = string_a
    bbuf = string_b
    call toupper(abuf)
    call toupper(bbuf)
    result = (abuf == bbuf)

Here is the caller graph for this function:

uchar()

character(string) function, public dc_string::uchar

(

character(len = *), intent(in)

ch

)

Definition at line 1386 of file dc_string.f90.

    !
    ! 文字列 ch に英字が含まれる場合、その英字を大文字に変換して返します。
    ! 英字でない文字や既に大文字になっている文字はそのまま返します。
    !
    character(len = *), intent(in):: ch
  continue
    result = ch
    call toupper(result)