C Copyright(c) 1997, Space Science and Engineering Center, UW-Madison
C Refer to "McIDAS Software Acquisition and Distribution Policies"
C in the file  mcidas/data/license.txt

      integer function isenhstr(iss, iband, stretch_name) 
C *** $Id: isenhstr.f,v 1.17 2021/01/24 05:50:38 daves Exp $ ***

      implicit none
      integer iss
      integer iband
      character*(*) stretch_name

      INTEGER           i
      INCLUDE           'abincalb.inc'

      isenhstr = -1
      stretch_name = ' '

c --- GOES-R Series

      do i = 1, Num_GOESR
         if(iss .eq. L1B_SSS(i)) then
            if(iband .eq. 2) then
               stretch_name = 'ALBXCORE'
               isenhstr = 0
            else if(iband .eq. 7) then
               stretch_name = 'SWIRCORE'
               isenhstr = 0
            else if(iband .eq. 8) then
               stretch_name = 'WVXXCORE'
               isenhstr = 0
            else if(iband .eq. 9) then
               stretch_name = 'WVXXCORE'
               isenhstr = 0
            else if(iband .eq.10) then
               stretch_name = 'WVXXCORE'
               isenhstr = 0
            endif
         endif
      enddo
         
c --- Himawari-8 and -9

      if(iss .eq. 86 .or. iss .eq. 287) then
         if(iband .eq. 3) then
            stretch_name = 'ALBXCORE'
            isenhstr = 0
         else if(iband .eq. 7) then
            stretch_name = 'SWIRCORE'
            isenhstr = 0
         else if(iband .eq. 8) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         else if(iband .eq. 9) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         else if(iband .eq.10) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         endif

c --- HimawariCAST-8 and -9

      else if(iss .eq. 286 .or. iss .eq. 289) then
         if(iband .eq. 3) then
            stretch_name = 'ALBXCORE'
            isenhstr = 0
         else if(iband .eq. 7) then
            stretch_name = 'SWIRCORE'
            isenhstr = 0
         else if(iband .eq. 8) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         else if(iband .eq. 9) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         else if(iband .eq.10) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         endif

c --- Meteosat-8, -9, -10, -11

      else if((iss .ge. 51 .and. iss .le. 53) .or. 
     *         iss .eq.354) then
         if(iband .eq. 4) then
            stretch_name = 'SWIRCORE'
            isenhstr = 0
         else if(iband .eq. 5) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         else if(iband .eq. 6) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         endif

c --- GOES GVAR 8, 9, 10, 11

      else if(iss .eq. 70 .or. iss .eq. 72 .or.
     *        iss .eq. 74 .or. iss .eq. 76) then
         if(iband .eq. 2) then
            stretch_name = 'SWIRCORE'
            isenhstr = 0
         else if(iband .eq. 3) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         endif

c --- GOES GVAR 12, 13, 14, 15

      else if(iss .eq. 78 .or. iss .eq.174 .or. iss .eq.176 .or.
     *        iss .eq.178 .or. iss .eq.180 .or.
     *        iss .eq.182 .or. iss .eq.184) then
         if(iband .eq. 2) then
            stretch_name = 'SWIRCORE'
            isenhstr = 0
         else if(iband .eq. 3) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         endif

c --- COMS-1

      else if(iss .eq. 250) then
         if(iband .eq. 2) then
            stretch_name = 'SWIRCORE'
            isenhstr = 0
         else if(iband .eq. 3) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         endif

c --- FY-2 D through H (SatID 36 to 40)

      else if(iss .ge. 36 .and. iss .le. 40) then
         if(iband .eq. 4) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         else if(iband .eq. 5) then
            stretch_name = 'SWIRCORE'
            isenhstr = 0
         endif

c --- MODIS

      else if(iss .eq. 101 .or. iss .eq. 111) then
         if(iband .ge. 20 .and. iband .le. 23) then
            stretch_name = 'SWIRCORE'
            isenhstr = 0
         else if(iband .eq. 27) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         else if(iband .eq. 28) then
            stretch_name = 'WVXXCORE'
            isenhstr = 0
         endif

c --- NOAA-10 to -19

      else if(iss .ge. 60 .and. iss .le. 69) then
         if(iband .eq. 3) then
            stretch_name = 'SWIRCORE'
            isenhstr = 0
         endif

c --- Metop-A to -C

      else if(iss .ge. 240 .and. iss .le. 242) then
         if(iband .eq. 3) then
            stretch_name = 'SWIRCORE'
            isenhstr = 0
         endif

c --- S-NPP to NOAA-23 VIIRS band 18

      else if( (iss .ge. 300 .and. iss .le. 304)  .or.
     &         (iss .ge. 320 .and. iss .le. 329)) then
         if(iband .eq. 18) then
            stretch_name = 'SWIRCORE'
            isenhstr = 0
         endif

      endif

      return
      end