formatting - 行の終わり（またはタブを変数に）に書き込むにはどうすればよいですか？

Question

行末にファイル名を付けたいコードを書いています。これを行うには2つの論理的な方法がありますが、それらがFortranに存在するかどうかはわかりません。

1. 読んでいる行の最後に文字変数を追加するだけです。

2. [推奨] T（タブ）記述子を、スキップする列を指示する数値変数とともに使用し、その列から文字変数を書き込みます。

Answer 1

各行を文字列として読み取り、文字列の最後の空白を削除し、最後にファイル名を追加します。文字変数が十分に大きいことを確認してください。以下は、アイデアを説明する簡単なプログラムです。

program append_to_rows

implicit none

integer :: j
character(len=10) :: fname = 'mydata.txt'
character(len=100) :: row

open(1,file=fname, status='old')
open(2,file='processed.txt', status='unknown')

do j=1,6
    read(1,'(a)') row
    row = trim(row)//fname
    write(2,'(a)') trim(row)
end do

close(1)
close(2)

end program

mydata.txt：

1,2,3,4,dfkldf
1,2,3fdfkj
1

123
  3434j,43,5

処理された.txt：

1,2,3,4,dfkldfmydata.txt
1,2,3fdfkjmydata.txt
1mydata.txt
mydata.txt
123mydata.txt
  3434j,43,5mydata.txt