!--------1---------2---------3---------4---------5---------6---------7---------8
! DSP (dispersion suppressor)
!--------1---------2---------3---------4---------5---------6---------7---------8

! Drifts

  DDSP1:   DRIFT, L=1.50-LDBPM
  DDSP2:   DRIFT, L=3.10      -LCOR-LDCOR
  DDSP3:   DRIFT, L=3.10-LDBPM-LCOR-LDCOR
  DDSP4:   DRIFT, L=2.35-LDBPM-LCOR-LDCOR
  DDSP5:   DRIFT, L=4.10-LDBPM
  DDSP6:   DRIFT, L=1.80      -LCOR-LDCOR
  DDSP7:   DRIFT, L=3.70-LDBPM-LCOR-LDCOR
  DDSP8:   DRIFT, L=4.70-LDBPM-LCOR-LDCOR
  DDSP9:   DRIFT, L=7.25-LDBPM-LCOR-LDCOR
  DDSPA:   DRIFT, L=9.20-LDBPM-LCOR-LDCOR - 2.55 !7/4/11 this makes dsp same length as psd

! Bends

  ANGDSP1:= ANGARCB*0.35 !try this 7/4/2011
  ANGDSP2:= ANGARCB*0.65 !7/4/11
!  ANGDSP1:= ANGARCB*0.25
!  ANGDSP2:= ANGARCB*0.75

!  ANGDSP1:= ANGARCB
!  ANGDSP2:= ANGARCB

  BDSP1:   SBEND, L=BLENGTH, ANGLE=ANGDSP1, E1=ANGDSP1/2, E2=ANGDSP1/2
  BDSP2:   SBEND, L=BLENGTH, ANGLE=ANGDSP2, E1=ANGDSP2/2, E2=ANGDSP2/2


! Quadrupoles



  QDSP0:   QUADRUPOLE, L=QLENGTH ! , K1=K1.QDSP0
  QDSP1:   QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP1
  QDSP2:   QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP2
  QDSP3:   QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP3
  QDSP4:   QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP4
  QDSP5:   QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP5
  QDSP6:   QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP6
  QDSP7:   QUADRUPOLE, L=QLENGTH !, K1=K1.QDSP7

QDSP0[K1] =      0.29347523    
QDSP1[K1] =     -0.46622525    
QDSP2[K1] =      0.70590941    
QDSP3[K1] =     -0.40741606    
QDSP4[K1] =      0.44054341    
QDSP5[K1] =     -0.48880829    
QDSP6[K1] =      0.30330856    
QDSP7[K1] =     -0.22635299    

QDSP0[K1] =      0.29352583    
QDSP1[K1] =     -0.46638143    
QDSP2[K1] =      0.70640813    
QDSP3[K1] =     -0.40730903    
QDSP4[K1] =      0.44076657    
QDSP5[K1] =     -0.48907633    
QDSP6[K1] =      0.30322085    
QDSP7[K1] =     -0.22621012    

QDSP0[K1] =      0.29377729    
QDSP1[K1] =     -0.46643153    
QDSP2[K1] =      0.69966479    
QDSP3[K1] =     -0.39449519    
QDSP4[K1] =      0.44113884    
QDSP5[K1] =     -0.49023664    
QDSP6[K1] =      0.30320091    
QDSP7[K1] =     -0.22691922    
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
QDSP0[K1] =      0.29374322    
QDSP1[K1] =     -0.46649358    
QDSP2[K1] =      0.69976166    
QDSP3[K1] =     -0.39459447    
QDSP4[K1] =      0.44120432    
QDSP5[K1] =     -0.49027034    
QDSP6[K1] =      0.30313855    
QDSP7[K1] =     -0.22693192    
!!!!!!!!!!!!! 10:19
QDSP0[K1] =      0.28453960    
QDSP1[K1] =     -0.46434816    
QDSP2[K1] =      0.70495025    
QDSP3[K1] =     -0.39531109    
QDSP4[K1] =      0.44274104    
QDSP5[K1] =     -0.48916837    
QDSP6[K1] =      0.30287204    
QDSP7[K1] =     -0.22432570    
!!!!!!!!!!!!!!!3:53
QDSP0[K1] =      0.28584763    
QDSP1[K1] =     -0.47040428    
QDSP2[K1] =      0.70685120    
QDSP3[K1] =     -0.39404312    
QDSP4[K1] =      0.44374006    
QDSP5[K1] =     -0.48348434    
QDSP6[K1] =      0.30685222    
QDSP7[K1] =     -0.22394950    
!!!!!!!!!!!!!!!!!3:54
QPSD0[K1] =     -0.99926511E-02
QPSD1[K1] =      0.49728003    
QPSD2[K1] =     -0.88928338    
QPSD3[K1] =      0.52168275    
QPSD4[K1] =     -0.24361371    
QPSD5[K1] =      0.66420924    
QPSD6[K1] =     -0.60037006    
QPSD7[K1] =      0.46844891    

! Beam lines

  DSP:     LINE=( CQB(QDSP0), DDSP1, &
                  BDSP1,      DDSP2, &
                  CQB(QDSP1), DDSP3, &
                  CQB(QDSP2), DDSP4, &
                  CQB(QDSP3), DDSP5, &
                  BDSP2,      DDSP6, &
                  CQB(QDSP4), DDSP7, &
                  CQB(QDSP5), DDSP8, &
                  CQB(QDSP6), DDSP9, &
                  CQB(QDSP7), DDSPA )