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

      subroutine avhr85(srr,wmin,wmax,dww,nnf) 1
c     noaa-8    ahvrr channel 5
      parameter (wmn=11.300, wmx=12.600, dw=.05)
      parameter (mwv=27)
      dimension srr(*),sr(mwv)
      data sr/
     &   0.0000, 0.0613, 0.2334, 0.5287, 0.8555, 0.9537, 0.9249, 0.9351,
     &   0.9946, 1.0000, 0.9491, 0.8988, 0.8862, 0.8969, 0.9098, 0.9071,
     &   0.8867, 0.8515, 0.8029, 0.7409, 0.6642, 0.5720, 0.4648, 0.3412,
     &   0.2026, 0.0694, 0.0000/
      wmin=wmn
      wmax=wmx
      dww=dw
      nnf=mwv
      do 10 i=1,nnf
        srr(i)=sr(i)
 10   continue
c
      return
      end