Save a temporary test program.

git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/wsjtx@4300 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2014-09-11 00:07:49 +00:00
parent 35cde3e35a
commit 6e8dc0925a
2 changed files with 14 additions and 1 deletions

View File

@ -1 +1 @@
svn status | grep -v '?'
svn status | grep -v "?"

13
lib/t1.f90 Normal file
View File

@ -0,0 +1,13 @@
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