%N razerocg %F $MIR/src/subs/cgsubs.for
%D See if RA axis crosses RA=0
%P nebk
%: plotting
%B
      subroutine razerocg (lun, blc, trc, zero)

      integer lun, blc(2), trc(2)
      logical zero(2)
  ---------------------------------------------------------------------
     See if an RA axis crosses RA=0. Only looks at
     first two axes

     Input:
       lun     Handle of image
       blc,trc Window being displayed in absolute
               unbinned full image pixels
     Output
       zero   True if that axis is a) RA and b) crosses 0
