Fortran使用write语句赋值变量

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的internal files（另请参阅Wikipedia）功能。除了读取和写入文件之外，您还可以使用内部文件来读取和写入字符数组。作为此操作的示例，请参阅this other SO question，其中描述了使用内部文件将整数转换为字符串。