Fortran 中的字符串：可移植 LEN_TRIM 和 LNBLNK？

发布于 2024-07-30 11:10:24 字数 1557 浏览 8 评论 0原文

我需要一个可移植函数/子例程来定位字符串中最后一个非空白字符的位置。我找到了两个选项：LEN_TRIM 和 LNBLNK。然而，不同的编译器似乎有不同的标准。以下编译器的官方文档表明 LEN_TRIM 是以下平台上 Fortran 95 标准的一部分：

IBM：LEN_TRIM
英特尔：LNBLNK 和 LEN_TRIM
gfortran：LNBLNK 和 LEN_TRIM
PGI：LEN_TRIM

但是，似乎没有什么在 F95 标准之前发布的编译器上得到保证。我的经验是，较旧的编译器可能会指定 LEN_TRIM 或 LNBLNK，但不一定同时指定两者。我的解决方案是使用预处理器条件：

#ifdef USE_LEN_TRIM
        iNameLen = LEN_TRIM(cabase)
        iExtLen = LEN_TRIM(caext)
#else
        iNameLen = LNBLNK(cabase)
        iExtLen = LNBLNK(caext)
#endif

然后将 -DUSE_LEN_TRIM 传递给预处理器。然而，我不太喜欢预处理器条件和条件。额外的编译时标志。 对于定位字符串中最后一个非空白字符的位置的可移植（Fortran 95 标准之前）函数，您有什么建议吗？

原文

I need a portable function/subroutine to locate the position of the last non-blank character in a string. I've found two options: LEN_TRIM and LNBLNK. However, different compilers seem to have different standards. The official documentation for the following compilers suggests that LEN_TRIM is part of the Fortran 95 standard on the following platforms:

IBM: LEN_TRIM
Intel: LNBLNK and LEN_TRIM
gfortran: LNBLNK and LEN_TRIM
PGI: LEN_TRIM

However, it appears that nothing is guaranteed on compilers released before the F95 standard. My experience has been that older compilers might specify either LEN_TRIM or LNBLNK, but not necessarily both. My solution has been to use preprocessor conditionals:

#ifdef USE_LEN_TRIM
        iNameLen = LEN_TRIM(cabase)
        iExtLen = LEN_TRIM(caext)
#else
        iNameLen = LNBLNK(cabase)
        iExtLen = LNBLNK(caext)
#endif

and then pass -DUSE_LEN_TRIM to the preprocessor. However, I am not a big fan of preprocessor conditionals & extra compile-time flags. Do you have any suggestions for a portable (before the Fortran 95 standard) function that locate the position of the last non-blank character in a string?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

我喜欢麦丽素 2024-08-06 11:10:24

LEN_TRIM 是 Fortran 95 标准的一部分。我不知道 Fortran 77 中是否有任何简单的内在函数组合可以解决这个问题（TRIM 也出现在 Fortran 95 中，但在 Fortran 77 中不可用）。但是，如果您确实希望在不依赖编译器内部函数和预处理器的情况下进行移植，则可以使用简单的用户函数来执行该任务：（

  function lentrim(s)
    implicit none
    character(len=*) :: s
    integer lentrim

    do lentrim = len(s), 1, -1
      if (s(lentrim:lentrim) .ne. ' ') return
    end do
  end function lentrim

使用 g77 和 gfortran 进行测试；使用选项-ffree-form 编译自由格式的源代码，如下所示）。

LEN_TRIM is part of the Fortran 95 standard. I am not aware of any simple combination of intrinsics in Fortran 77 that could tackle this (TRIM also appeared with Fortran 95, and wasn't available in Fortran 77). But you can use a simple user function to perform that task if you really want to be portable without relying on compiler intrinsics and preprocessor:

  function lentrim(s)
    implicit none
    character(len=*) :: s
    integer lentrim

    do lentrim = len(s), 1, -1
      if (s(lentrim:lentrim) .ne. ' ') return
    end do
  end function lentrim

(tested with g77 and gfortran; use option -ffree-form to compile free-form source like this).

回复收藏 0 原文