      subroutine   goes(iwa)
      common /sixs_ffu/ s(1501),wlinf,wlsup
      real sr(2,1501),wli(2),wls(2)
      real s,wlinf,wlsup
      integer iwa,l,i
c
c    spectral band of goes east
c
c
      data (sr(1,l),l=1,166)/  96*0.,
     a    .00,    .00,    .00,    .01,    .01,    .03,    .05,
     a    .09,    .13,    .22,    .30,    .38,    .46,    .52,
     a    .58,    .63,    .68,    .70,    .73,    .75,    .77,
     a    .79,    .81,    .82,    .84,    .85,    .86,    .87,
     a    .88,    .89,    .90,    .91,    .92,    .93,    .93,
     a    .94,    .95,    .96,    .96,    .97,    .98,    .99,
     a    .99,    .99,    .98,    .98,    .97,    .97,    .96,
     a    .95,    .95,    .94,    .94,    .93,    .93,    .92,
     a    .92,    .91,    .91,    .91,    .91,    .91,    .91,
     a    .91,    .91,    .91,    .91,    .90,    .89,    .88/
      data (sr(1,l),l=167,1501)/  
     a    .88,    .86,    .84,    .83,    .81,    .79,    .77,
     a    .75,    .73,    .71,    .69,    .69,    .68,    .67,
     a    .66,    .65,    .64,    .63,    .61,    .60,    .59,
     a    .57,    .56,    .54,    .52,    .50,    .49,    .47,
     a    .46,    .44,    .43,    .41,    .40,    .38,    .36,
     a    .35,    .33,    .32,    .30,    .29,    .28,    .27,
     a    .26,    .25,    .23,    .22,    .21,    .20,    .19,
     a    .18,    .17,    .16,    .15,    .14,    .13,    .12,
     a    .11,    .10,    .10,    .09,    .08,    .08,    .07,
     a    .06,    .06,    .05,    .05,    .04,    .04,    .03,
     a    .03,    .03,    .02,    .02,    .02,    .02,    .01,
     a    .01,    .01,    .01,    .01,    .00,    .00,    .00,
     a    .00,    .00,    .00,    .00,    .00,    .00,    .00,
     a    .00,    .00,    .00,    .00,
     a1240*0./
c    spectral band of goes west
c
      data (sr(2,l),l=1,166)/  96*0.,
     a    .00,    .00,    .00,    .00,    .00,    .01,    .02,
     a    .04,    .06,    .12,    .18,    .30,    .41,    .51,
     a    .61,    .69,    .77,    .83,    .89,    .91,    .93,
     a    .94,    .96,    .96,    .97,    .98,    .99,    .99,
     a    .99,   1.00,   1.00,   1.00,   1.00,   1.00,   1.00,
     a    .99,    .99,    .99,    .98,    .98,    .97,    .97,
     a    .96,    .96,    .96,    .95,    .95,    .95,    .94,
     a    .94,    .93,    .92,    .91,    .90,    .89,    .88,
     a    .87,    .86,    .85,    .84,    .83,    .82,    .81,
     a    .80,    .80,    .79,    .78,    .77,    .76,    .75/
      data (sr(2,l),l=167,1501)/  
     a    .74,    .73,    .72,    .70,    .69,    .67,    .66,
     a    .64,    .63,    .61,    .59,    .58,    .56,    .55,
     a    .54,    .52,    .51,    .50,    .49,    .48,    .46,
     a    .45,    .44,    .43,    .41,    .40,    .38,    .37,
     a    .36,    .34,    .33,    .32,    .31,    .29,    .28,
     a    .27,    .26,    .24,    .23,    .22,    .21,    .20,
     a    .19,    .18,    .17,    .17,    .16,    .15,    .14,
     a    .14,    .13,    .12,    .12,    .11,    .10,    .09,
     a    .09,    .08,    .08,    .07,    .07,    .07,    .06,
     a    .06,    .05,    .05,    .05,    .04,    .04,    .03,
     a    .03,    .03,    .03,    .02,    .02,    .02,    .02,
     a    .02,    .01,    .01,    .01,    .01,    .01,    .01,
     a    .01,    .00,    .00,    .00,    .00,    .00,    .00,
     a    .00,    .00,    .00,    .00,
     a1240*0./
      wli(1)=0.49
      wls(1)=0.8999999
      wli(2)=0.49
      wls(2)=0.8999999
      do 1 i=1,1501
      s(i)=sr(iwa,i)
    1 continue
      wlinf=wli(iwa)
      wlsup=wls(iwa)
      return
      end

