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 endif
enddo enddo
! Comment out these lines to prevent display of non-decode lines: if(nwrite.eq.0 .and. nwrite_q65.eq.0) then
! if(nwrite.eq.0 .and. nwrite_q65.eq.0) then write(*,1012) mousefqso,nutc
! write(*,1012) mousefqso,nutc 1012 format('!',i3,9x,i6.4,' ')
!1012 format('!',i3,9x,i6.4,' ') endif
! endif
endif !nqd.eq.1 endif !nqd.eq.1
if(ndphi.eq.1 .and.iloop.lt.12) then if(ndphi.eq.1 .and.iloop.lt.12) then