      SUBROUTINE SETSPI(IPRINT)
      PARAMETER (NSPECI=46,NSPC1I=47)
      COMMON /SPECTI/ BWNI(NSPC1I),WNOI(NSPECI),DWNI(NSPECI)
     &           ,WLNI(NSPECI)
C SET UP SPECRAL INTERVALS
      BWNI(1)=8.
      BWNI(2)=15.
      BWNI(3)=25.
      BWNI(4)=37.5
      DO 100 K=5,27
      BWNI(K)=BWNI(K-1)+25.
 100  CONTINUE
      BWNI(28)=645.
      BWNI(29)=645.+35.6760
      BWNI(30)=BWNI(29)+4.324/2.
      BWNI(31)=BWNI(30)+4.324/2.
      BWNI(32)=BWNI(31)+12.327/4.
      BWNI(33)=BWNI(32)+12.327/4.
      BWNI(34)=BWNI(33)+12.327/4.
      BWNI(35)=BWNI(34)+12.327/4.
      BWNI(36)=BWNI(35)+35.6290
      BWNI(37)=BWNI(36)+7.044/4.
      BWNI(38)=BWNI(37)+7.044/4.
      BWNI(39)=BWNI(38)+7.044/4.
      BWNI(40)=BWNI(39)+7.044/4.
      BWNI(41)=BWNI(40)+16.32/3.
      BWNI(42)=BWNI(41)+16.32/3.
      BWNI(43)=BWNI(42)+16.32/3.
      BWNI(44)=BWNI(43)+156.48
      BWNI(45)=BWNI(44)+27.2/3.
      BWNI(46)=BWNI(45)+27.2/3.
      BWNI(47)=BWNI(46)+27.2/3.
C
C SET UP MEAN WAVENUMBERS AND DELTAS
C UNITS ON WAVENUMBER ARE CM-1
C UNITS ON WAVELN ARE MICRONS
      DO 160 K=1,NSPECI
      WNOI(K)=( BWNI(K+1)+BWNI(K) )*0.5
      DWNI(K)=BWNI(K+1)-BWNI(K)
      WLNI(K)=1.E+4/WNOI(K)
  160 CONTINUE
C IF THERE IS ONLY ONE INTERVAL THEN TOTAL ENERGY IS USED AND
      IF (NSPECI .EQ. 1) DWNI(1) = 1.0
C PRINT OUT SPECTRAL INTERVALS
      IF (IPRINT .GT. 1) THEN
          WRITE (6,190)
          DO 200 K=1,NSPECI
          WRITE (6,210)K,WLNI(K),WNOI(K),BWNI(K)
     &    ,BWNI(K+1),DWNI(K)
  200     CONTINUE
      END IF
  210 FORMAT(1X,I3,F10.3,F10.2,F10.2,'-',F8.2,F10.3)
  190 FORMAT(///'  SPECTRAL INTERVALS'//
     &       ' SNUM  MICRONS   WAVENU      INTERVAL',11X,'DELTA-WN')
C ***** END SPECTRAL INTERVAL SET UP *************
      RETURN
      END
