subroutine showmg (inar, exar)

      character*(*) inar, exar
      character*4 temp
      real rmag

      if (inar(9:10) .eq. '99') then
        exar = ' '
      else
        temp = inar(:4)
        call exchange (temp, ' ', '0')
        rmag = 0.01*itchk(temp)

c average magnitude if over range

        if (inar(5:8) .ne. ' ') then
          temp = inar(5:8)
          call exchange (temp, ' ', '0')
          rmag = 0.5 *(rmag + 0.01*itchk(temp))
        end if
        write (exar, '(f3.1,a)') rmag, inar(11:12)
      end if
      return
      end