1

古いコードを F95 標準にアップグレードしようとしています。afpn以下の関数の write ステートメントを使用して、文字列に値が割り当てられている方法がわかりません。私はいくつかの場所でこれに遭遇しました。これはどのように作動しますか？

      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
4

1 に答える 1

3

これは、Fortranの内部ファイル(ウィキペディアも参照) 機能を利用しています。ファイルの読み取りと書き込みに加えて、内部ファイルを使用して文字配列の読み取りと書き込みを行うことができます。この実際の例として、整数を文字列に変換するための内部ファイルの使用について説明しているこの他の SO の質問を参照してください。

于 2013-05-24T13:30:10.660 に答える