lower_ascii Function

public pure function lower_ascii(s) result(out)

ASCII 英字を小文字化した文字列を返す。

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	s

Return Value character(len=len)

Called by

Help

Source Code

  pure function lower_ascii(s) result(out)
    character(len=*), intent(in) :: s
    character(len=len(s)) :: out
    integer :: i, code

    out = s
    do i = 1, len(s)
      code = iachar(out(i:i))
      if (code >= iachar('A') .and. code <= iachar('Z')) then
        out(i:i) = achar(code + 32)
      end if
    end do
  end function lower_ascii