Fortran 90 文字関数

• achar
ASCII順序の位置の文字を求める

     c = achar(i)

     integer,intent(in) :: i ! 0 <= i <= 127
     character          :: c*1
     

• adjustl,adjustr
adjustl: 文字列を左にそろえる
adjustr: 文字列を右にそろえる

     c = adjustl(string)

     character,intent(in) :: string
     character            :: c		! length is same to string

     c = adjustr(string)

     character,intent(in) :: strint
     character            :: c		! length is same to string
     

• char
コンパイラ順序の位置の文字を求める

     c = char(i [,kind])

     integer,intent(in)   :: i ! 0 <= i
     integer,intent(in)   :: kind
     character(kind=kind) :: c
     

• iachar
ASCII順序の文字の位置を求める

     i = iachar(c)

     character,intent(in) :: c*1
     integer              :: i
     

• ichar
コンパイラ順序の文字の位置を求める

     i = ichar(c)

     character,intent(in) :: c*1
     integer              :: i
     

• index
文字列string中に文字列substringが含まれているときその開始位置を求める
含まれない場合は0を返す
backが真(偽)の時もっとも右(左)にある文字列substringの開始位置を求める

     i = index(string, substring [,back])

     character,intent(in) :: string, substring
     logical,intent(in)   :: back ! default .false.
     

• len
stringが文字列の時文字数を返す
stringが配列の時各要素の文字数を返す

     i = len(string)

     character,intent(in) :: string, or string(:)
     integer              :: i
     

• len_trim
空白を取り除いた文字列の長さを求める

     i = len_trim(string)

     character,intent(in) :: string
     integer              :: i
     

• lge,lgt,lle,llt
lge: ASCII順序で文字列string_aがstring_bよりも後ろ、または等しいとき.true.を返す
lgt: ASCII順序で文字列string_aがstring_bよりも後ろのとき.true.を返す
lle: ASCII順序で文字列string_aがstring_bよりも前、または等しいとき.true.を返す
llt: ASCII順序で文字列string_aがstring_bよりも前のとき.true.を返す

     l = lge(string_a,string_b)

     character,intent(in) :: string_a, string_b
     logical              :: l

     l = lgt(string_a,string_b)

     character,intent(in) :: string_a, string_b
     logical              :: l

     l = lle(string_a,string_b)

     character,intent(in) :: string_a, string_b
     logical              :: l

     l = llt(string_a,string_b)

     character,intent(in) :: string_a, string_b
     logical              :: l

     

• repeat
文字列stringをncopes個複写して連結する

     c = repeat(string, ncopes)

     character,intent(in) :: string
     integer,intent(in)   :: ncopes
     character            :: c
     

• scan,verify
scan: 文字列string中に文字列set中に含まれる文字が含まれているときその開始位置を返す
verify: 文字列string中に文字列set中に含まれない文字が含まれているときその開始位置を返す
文字が含まれていなければ0を返す
backが真(偽)の時str1のもっとも右(左)にある文字の開始位置を返す

     i = scan(string, set [,back])

     character,intent(in) :: string, set
     logical,intent(in)   :: back ! default .false.
     integer              :: i

     i = verify(string, set [,back])

     character,intent(in) :: string, set
     logical,intent(in)   :: back
     integer              :: i
     

• trim
右側の空白を除いた文字列を返す

     c = trim(string)

     character,intent(in) :: string
     character            :: c