dc_string::toupper Interface Reference

Private Member Functions
subroutine	cupper (ch)

Detailed Description

Definition at line 134 of file dc_string.f90.

Member Function/Subroutine Documentation

cupper()

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

private

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

---

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

• dc_utils/dc_string.f90