integer*4  function idcodc (idata, ic)
c
c-----------------------------------------------------------------------
c
c     Idcodc decompresses data that has been logarithmically compressed
c     (or coded) by codecr.
c
c-----------------------------------------------------------------------
c
c definition of arguments:
c
c idata - compressed (coded) data.
c ic    - indicates whether data is valid (ic = 1) or fill (ic = 0)
c
c-----------------------------------------------------------------------
c
c idcodc returns a zero value if data is fill, i.e. equal to -1
c
c-----------------------------------------------------------------------
c
c count summation can be done as follows:
c
c            cts = cts + idcodc(idata, ic)
c            ctn = ctn + ic
c
c-----------------------------------------------------------------------
c
      integer*2 idata
c
      integer*4 ic
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      if (idata .le. 7128) then
         if (idata .lt. 0) then
            ic = 0
            idcodc = 0
         else
            ic = 1
            idcodc = idata
         end if
      else
         ic = 1
         f = idata
         idcodc = 10.0 ** ((6.092796e-5 * f) + 3.418674)
      end if
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end