w4kek/WSJT-X
1
0
Fork 0
mirror of https://github.com/saitohirga/WSJT-X.git synced 2025-05-29 04:42:28 -04: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 69ac7de4c7
commit d5245e541f
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)=' ' freqcall(nc)=' '
nc=nc+1 nc=nc+1
freqcall(nc)=' ' freqcall(nc)=' '
freqcall(nc+1)=' '
iz=(nc+2)/3 iz=(nc+2)/3
do i=1,iz do i=1,iz
bm2=freqcall(i)//' '//freqcall(i+iz)//' '//freqcall(i+2*iz) bm2=freqcall(i)//' '//freqcall(i+iz)//' '//freqcall(i+2*iz)
@ -140,6 +141,7 @@ subroutine display
1040 format(a36) 1040 format(a36)
enddo enddo
call flushqqq(20) call flushqqq(20)
print*,3*iz,nc
return return
end subroutine display end subroutine display

1
map65a.f90
View File

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