c=======================================================================

      subroutine avhr84(srr,wmin,wmax,dww,nnf) 1
c     noaa-8    ahvrr channel 4
      parameter (wmn=10.225, wmx=11.675, dw=.05)
      parameter (mwv=30)
      dimension srr(*),sr(mwv)
      data sr/
     &   0.0000, 0.1228, 0.3305, 0.5884, 0.8287, 0.9459, 0.9889, 1.0000,
     &   0.9901, 0.9670, 0.9371, 0.9061, 0.8765, 0.8479, 0.8193, 0.7899,
     &   0.7590, 0.7255, 0.6881, 0.6450, 0.5895, 0.5109, 0.3960, 0.2395,
     &   0.1127, 0.0509, 0.0238, 0.0101, 0.0013, 0.0000/
      wmin=wmn
      wmax=wmx
      dww=dw
      nnf=mwv
      do 10 i=1,nnf
        srr(i)=sr(i)
 10   continue
c
      return
      end