如何从Fortran77中的字符串中删除换行符？

Question

我正在从命令行为我的Fortran77程序指定一个文件名。但是，我得到一个附加到文件名字符串的换行符(使用getarg获得)。

如何删除新行字符？

Answer 1

您可以使用len_trim的替代方法从https://stackoverflow.com/a/1259426/721644中找到换行符。

  integer function findnl(s)
    character(len=*) :: s
    integer i

    findnl = len(s)+1
    do i = 1, len(s)
      if (s(i:i) .eq. achar(10)) then
        findln = i
        return
      end if
    end do
  end function

之后，将字符串的其余部分更改为空格。

 l = findnl(str)
 if (l .le. len(str)) str(l:) = " "