Question

fortran中将数组输出至txt文件的问题

program QFactor
character*80 fpiwav,fpiwav1,fpiwav2,str
integer maxlen
parameter (maxlen=100000)
integer maxfreq
integer mch,nSamp,ntnew
REAL, ALLOCATABLE ::RECD(:,:)

real Tdelay(40)

open(10,file='timedelay.txt')
do i=1,40
read(10,*) Tdelay(i)
enddo
close(10)

fpiwav='shot-blend1.sgd'
open(50,file=fpiwav,access='direct',recl=100,FORM='FORMATTED'
& ,status='old')
read(50,rec=1)mCh,nSamp,dx,dt,ofr,t0 !道数/采样点数/道间距/采样间隔
!偏移距/起跳时间
close(50)
! write(*,*) mch,nSamp,dx,dt,ofr,t0
allocate( Recd(mCh,nSamp)) !12*400 1500
ich=0
nrec=nSamp*4 !四个字节
open(50,file=fpiwav,access='direct',recl=nrec,FORM='FORMATTED'
& ,status='old')
do i=1,mCh
ich =ich+1
read(50,rec=i+1)(Recd(ich,j),j=1,nSamp)
end do
close(50)
deallocate(recd)
end

之前的代码已经读取了Recd这个数组，为5000x2000的数组，请问下我如何将这个数组以5000x2000的格式输出到txt文件中？

Answer 1

'shot-blend1.sgd'
难道不是txt文件么？你为啥要从txt读入，再写入txt呢？
写入txt文件是最简单的了。
Open( 12 , File = 文件名 )
Do i = 1 , 2000
write( 12 , * ) Recd( : , i )
End Do
Close( 12 )
既可