fortran - 使用 write 语句的 Fortran 变量赋值

Question

我正在尝试将旧代码升级到 F95 标准。我不明白如何使用以下函数中的 write 语句为字符串afpn赋值。我在几个地方都遇到过这种情况。这是如何运作的？

      CHARACTER(LEN=15) FUNCTION XFPN2AL( FPN )

      IMPLICIT NONE
      ! external variables
      REAL(KIND=4)INTENT(IN):: FPN

      ! internal variables
      CHARACTER(LEN=15):: AFPN

      ! initialize variables
      AFPN = ' '
      XFPN2AL = ' '

      WRITE(AFPN,'(G15.7)') FPN
      XFPN2AL = ADJUSTL(AFPN)

      END FUNCTION XFPN2AL

Answer 1

这是利用 Fortran 的内部文件（另见Wikipedia）功能。除了读取和写入文件之外，您还可以使用内部文件来读取和写入字符数组。作为实际操作的示例，请参阅this other SO question ，该问题描述了使用内部文件将整数转换为字符串。