string - 如何在 F90 中编写 to_upper() 或 to_lower() 函数？

Question

如何编写(英特尔)F90 函数将字符串转换为小写(或大写)？我想将一个字符数组传递给函数并让它返回一个字符数组，例如

program main
    implicit none

    character*32 :: origStr = "Hello, World!"
    character*32 :: newStr

    newStr = to_lower(origStr)
    write (*,*) newStr

end program main

使得该程序输出 hello, world! .

我已经开始使用 to_lower()在 RosettaCode 处找到子程序，但我不知道如何将其编写为函数。

提前致谢!

PS——如果你能用不固定长度的字符串来做，那就加分!

Answer 1

哇——尽管我搜索了一个多小时，但在发布这篇文章后，我立即找到了答案 here (在“杂项 Fortran 提示和技巧”下)。

我使用的代码如下(对于to_upper):

function to_upper(strIn) result(strOut)
! Adapted from http://www.star.le.ac.uk/~cgp/fortran.html (25 May 2012)
! Original author: Clive Page

     implicit none

     character(len=*), intent(in) :: strIn
     character(len=len(strIn)) :: strOut
     integer :: i,j

     do i = 1, len(strIn)
          j = iachar(strIn(i:i))
          if (j>= iachar("a") .and. j<=iachar("z") ) then
               strOut(i:i) = achar(iachar(strIn(i:i))-32)
          else
               strOut(i:i) = strIn(i:i)
          end if
     end do

end function to_upper

希望这对某人有帮助!