diff --git a/display.F90 b/display.F90 index 5d2da7a35..ad12cb550 100644 --- a/display.F90 +++ b/display.F90 @@ -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 diff --git a/map65a.f90 b/map65a.f90 index b1c022fc9..f41f088d7 100644 --- a/map65a.f90 +++ b/map65a.f90 @@ -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