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

      subroutine avhr83(srr,wmin,wmax,dww,nnf) 1
c     noaa-8    ahvrr channel 3
      parameter (wmn=3.40, wmx=4.05, dw=.025)
      parameter (mwv=27)
      dimension srr(*),sr(mwv)
      data sr/
     &   0.0000, 0.0084, 0.0953, 0.2715, 0.4908, 0.7088, 0.8807, 0.9713,
     &   1.0000, 0.9932, 0.9719, 0.9551, 0.9506, 0.9427, 0.9295, 0.9197,
     &   0.9128, 0.9067, 0.8991, 0.8869, 0.8325, 0.6741, 0.3732, 0.1003,
     &   0.0306, 0.0056, 0.0000/
      wmin=wmn
      wmax=wmx
      dww=dw
      nnf=mwv
      do 10 i=1,nnf
        srr(i)=sr(i)
 10   continue
c
      return
      end