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

Question

我从命令行为我的Fortran77程序指定了一个文件名。但是，我在文件名字符串中添加了换行符（使用getarg获得）。

如何删除换行符？

Answer 1

您可以使用来自https://stackoverflow.com/a/1259426/721644 len_trim的替代版本来查找换行符

  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:) = " "