mirror of
https://github.com/saitohirga/WSJT-X.git
synced 2025-07-19 10:05:20 -04:00
97aee45aa9
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4300 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
14 lines
246 B
Fortran
14 lines
246 B
Fortran
program t1
|
|
|
|
character*22 msg
|
|
complex c3(0:4096-1)
|
|
complex c5(0:4096-1)
|
|
|
|
do i=1,999
|
|
read(51,end=999) nutc,nsnr,xdt,nfreq,msg,c3,c5
|
|
write(*,1010) nutc,nsnr,xdt,nfreq,msg
|
|
1010 format(2i6,f7.1,i6,2x,a22)
|
|
enddo
|
|
|
|
999 end program t1
|