      subroutine   mss(iwa)
      common /sixs_ffu/ s(1501),wlinf,wlsup
      real sr(4,1501),wli(4),wls(4)
      real s,wlinf,wlsup
      integer iwa,l,i
c
c    1st spectral band of multi spectral scanner
c
      data (sr(1,l),l=1,1501)/  90*0.,
     a    .00,    .01,    .01,    .01,    .02,    .04,    .05,
     a    .09,    .13,    .21,    .29,    .45,    .61,    .72,
     a    .82,    .85,    .89,    .92,    .95,    .96,    .98,
     a    .99,    .99,   1.00,   1.00,   1.00,   1.00,   1.00,
     a   1.00,   1.00,    .99,    .99,    .98,    .98,    .98,
     a    .97,    .97,    .96,    .96,    .96,    .96,    .95,
     a    .95,    .93,    .91,    .89,    .87,    .85,    .82,
     a    .73,    .65,    .54,    .43,    .38,    .33,    .24,
     a    .15,    .11,    .08,    .06,    .04,    .03,    .03,
     a    .02,    .02,    .02,    .01,
     a1344*0./
c
c    2nd spectral band of multi spectral scanner
c
      data (sr(2,l),l=1,1501)/ 132*0.,
     a    .01,    .01,    .01,    .01,    .01,    .01,    .02,
     a    .03,    .04,    .08,    .13,    .21,    .29,    .43,
     a    .57,    .69,    .80,    .86,    .92,    .94,    .96,
     a    .97,    .99,    .99,   1.00,   1.00,   1.00,    .99,
     a    .98,    .97,    .96,    .94,    .93,    .90,    .88,
     a    .92,    .96,    .96,    .96,    .95,    .95,    .90,
     a    .84,    .82,    .80,    .79,    .78,    .79,    .80,
     a    .80,    .80,    .73,    .67,    .59,    .50,    .38,
     a    .25,    .18,    .11,    .09,    .08,    .07,    .06,
     a    .05,    .05,    .04,    .04,    .03,    .03,
     a1300*0./
c
c    3rd spectral band of multi spectral scanner
c
      data (sr(3,l),l=1,1501)/ 162*0.,
     a    .01,    .01,    .01,    .02,    .02,    .02,    .02,
     a    .03,    .03,    .05,    .07,    .10,    .14,    .17,
     a    .20,    .31,    .41,    .48,    .56,    .66,    .75,
     a    .83,    .90,    .93,    .97,    .98,    .99,   1.00,
     a   1.00,   1.00,    .99,    .99,    .98,    .97,    .96,
     a    .94,    .93,    .90,    .88,    .87,    .86,    .84,
     a    .83,    .82,    .82,    .82,    .82,    .82,    .83,
     a    .83,    .83,    .83,    .83,    .81,    .80,    .78,
     a    .75,    .68,    .61,    .55,    .49,    .41,    .34,
     a    .29,    .24,    .19,    .15,    .12,    .08,    .07,
     a    .07,    .05,    .03,    .03,    .03,    .02,    .02,
     a    .01,    .01,    .01,    .01,
     a1258*0./
c    4th spectral band of multi spectral scanner
c
      data (sr(4,l),l=1,284)/ 214*0.,
     a    .01,    .02,    .02,    .04,    .06,    .14,    .21,
     a    .45,    .68,    .76,    .83,    .89,    .94,    .94,
     a    .94,    .94,    .95,    .95,    .96,    .97,    .98,
     a    .99,    .99,   1.00,   1.00,   1.00,   1.00,   1.00,
     a   1.00,   1.00,    .99,    .98,    .97,    .96,    .95,
     a    .94,    .93,    .92,    .92,    .91,    .90,    .89,
     a    .88,    .87,    .86,    .86,    .85,    .83,    .82,
     a    .81,    .80,    .78,    .77,    .76,    .76,    .75,
     a    .74,    .72,    .70,    .69,    .68,    .66,    .64,
     a    .63,    .62,    .61,    .60,    .58,    .57,    .56/
      data (sr(4,l),l=285,1501)/ 
     a    .55,    .55,    .54,    .52,    .51,    .50,    .49,
     a    .47,    .46,    .45,    .44,    .43,    .42,    .41,
     a    .40,    .39,    .39,    .38,    .37,    .36,    .35,
     a    .34,    .33,    .32,    .31,    .30,    .29,    .28,
     a    .27,    .26,    .25,    .24,    .23,    .22,    .21,
     a    .20,    .20,    .19,    .18,    .16,    .15,    .14,
     a    .13,    .12,    .12,    .11,    .10,    .08,    .07,
     a    .06,    .06,    .05,    .04,    .03,    .02,    .01,
     a    .01,
     a1160*0./
      wli(1)=0.4749999
      wls(1)=0.6399999
      wli(2)=0.5799999
      wls(2)=0.75
      wli(3)=0.6549999
      wls(3)=0.8549998
      wli(4)=0.7849999
      wls(4)=1.1
      do 1 i=1,1501
      s(i)=sr(iwa,i)
    1 continue
      wlinf=wli(iwa)
      wlsup=wls(iwa)
      return
      end

