20*4 次元に文字とデジタルが含まれるファイルを読み込んで別のファイルに変換したいのですが、常に forrtl server(64): Fortran の入力変換エラーがあります。
次のような入力ファイル a.txt (20*4) があります。
index Ti Te Ne
1 2.3 2.5 0.6
2 2.9 3.2 0.8
3 3.4 3.6 1.1
.
.
.
20 7.3 8.9 3.5
私のプログラムは以下のような test.f90 です:
program test
implicit none
real*8,allocatable :: prof_Ne(:),prof_Te(:),prof_Ti(:)
integer :: i, j, n_skip, n_prof
character :: index*22
n_prof = 20
allocate(prof_Ne(n_prof), prof_Te(n_prof), prof_Ti(n_prof))
open(21,file='a.txt')
read(21,'(A25)') index
write(*,*) index
n_skip = 4
do i=1,n_skip
read(21,*)
enddo
do i=1,n_prof
read(21,'(i2,3e9.5)') j,prof_Ne(i),prof_Te(i),prof_Ti(i)
enddo
close(21)
write(*,*) prof_Ne
end program