w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-02-03 09:44:24 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fixed end-of-line garbage in bandmap2.txt.

Browse Source 
git-svn-id: svn+ssh://svn.code.sf.net/p/wsjt/wsjt/branches/map65@390 ab8295b8-cf94-4d9e-aec4-7959e3be5d79
This commit is contained in:
Joe Taylor 2007-06-15 14:17:57 +00:00
parent 462b0da07c
commit 95bb84bb17
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
display.F90
View File

@ -133,6 +133,7 @@ subroutine display
freqcall(nc)=' '
nc=nc+1
freqcall(nc)=' '
freqcall(nc+1)=' '
iz=(nc+2)/3
do i=1,iz
bm2=freqcall(i)//' '//freqcall(i+iz)//' '//freqcall(i+2*iz)
@ -140,6 +141,7 @@ subroutine display
1040 format(a36)
enddo
call flushqqq(20)
print*,3*iz,nc
return
end subroutine display

1
map65a.f90
View File

@ -84,6 +84,7 @@ subroutine map65a
npol=45*(ipol-1)
write(11,1010) nkHz,ndf,npol,nutc,nsync2,dt,nw,decoded,nkv,nqual
1010 format(i3,i5,i4,i5.4,i4,f5.1,i3,2x,a22,2i3)
call flushqqq(11)
ndecdone=1
endif
if(newdat2.eq.0) go to 999