Back out commit b30713388 -- it broke the behavior of Messages and Band Map.

This commit is contained in:
Joe Taylor 2021-04-13 17:33:58 -04:00
parent 12f3faa0a1
commit 30ecae5193

View File

@ -339,11 +339,10 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb, &
endif
enddo
! Comment out these lines to prevent display of non-decode lines:
! if(nwrite.eq.0 .and. nwrite_q65.eq.0) then
! write(*,1012) mousefqso,nutc
!1012 format('!',i3,9x,i6.4,' ')
! endif
if(nwrite.eq.0 .and. nwrite_q65.eq.0) then
write(*,1012) mousefqso,nutc
1012 format('!',i3,9x,i6.4,' ')
endif
endif !nqd.eq.1
if(ndphi.eq.1 .and.iloop.lt.12) then