!--------1---------2---------3---------4---------5---------6---------7---------8
! PSD (reversed dispersion suppressor)
!  betax      betay       etax      alphax     alphay    betax       betay      etax       alphax
! 14.2899     8.2846     0.00      -1.2457     0.7401 to 15.8949    14.2970    0.3175      0.0000

!--------1---------2---------3---------4---------5---------6---------7---------8

! Drifts

  DPSD1:   DRIFT, L= 1.50      -LCOR-LDCOR
  DPSD2:   DRIFT, L= 1.30-LDBPM
  DPSD3:   DRIFT, L= 4.00-LDBPM-LCOR-LDCOR
  DPSD4:   DRIFT, L= 1.70-LDBPM-LCOR-LDCOR
  DPSD5:   DRIFT, L= 5.65      -LCOR-LDCOR

  DPSD6:   DRIFT, L= 2.50-LDBPM
  DPSD7:   DRIFT, L= 2.80-LDBPM-LCOR-LDCOR
  DPSD8:   DRIFT, L= 5.80-LDBPM-LCOR-LDCOR
  DPSD9:   DRIFT, L=10.40-LDBPM-LCOR-LDCOR
  DPSDA:   DRIFT, L= 2.60


! Bends

  ANGPSD1:= ANGARCB*0.25
  ANGPSD2:= ANGARCB*0.75

  BPSD1:   SBEND, L=BLENGTH, ANGLE=ANGPSD1, E1=ANGPSD1/2, E2=ANGPSD1/2
  BPSD2:   SBEND, L=BLENGTH, ANGLE=ANGPSD2, E1=ANGPSD2/2, E2=ANGPSD2/2


! Quadrupoles

  QPSD0:   QUADRUPOLE, L=QLENGTH!, K1=K1.QPSD0
  QPSD1:   QUADRUPOLE, L=QLENGTH!, K1=K1.QPSD1
  QPSD2:   QUADRUPOLE, L=QLENGTH!, K1=K1.QPSD2
  QPSD3:   QUADRUPOLE, L=QLENGTH!, K1=K1.QPSD3

  QPSD4:   QUADRUPOLE, L=QLENGTH!, K1=K1.QPSD4
  QPSD5:   QUADRUPOLE, L=QLENGTH!, K1=K1.QPSD5
  QPSD6:   QUADRUPOLE, L=QLENGTH!, K1=K1.QPSD6
  QPSD7:   QUADRUPOLE, L=QLENGTH!, K1=K1.QPSD7



 ! Vars not in original file


QPSD0[K1] =     -0.11631066E-01
QPSD1[K1] =      0.50421023    
QPSD2[K1] =     -0.89013385    
QPSD3[K1] =      0.51515444    
QPSD4[K1] =     -0.24562754    
QPSD5[K1] =      0.66585877    
QPSD6[K1] =     -0.59957850    
QPSD7[K1] =      0.47329735    

QPSD0[K1] =     -0.11392435E-01
QPSD1[K1] =      0.50422416    
QPSD2[K1] =     -0.89001739    
QPSD3[K1] =      0.51460774    
QPSD4[K1] =     -0.24599890    
QPSD5[K1] =      0.66580239    
QPSD6[K1] =     -0.59951892    
QPSD7[K1] =      0.47330583    

QPSD0[K1] =     -0.11543994E-01
QPSD1[K1] =      0.50377610    
QPSD2[K1] =     -0.89258673    
QPSD3[K1] =      0.51666767    
QPSD4[K1] =     -0.24552526    
QPSD5[K1] =      0.66659823    
QPSD6[K1] =     -0.60107138    
QPSD7[K1] =      0.47035318    

!!!!!!!!!!!!!!!!!
QPSD0[K1] =     -0.11621739E-01
QPSD1[K1] =      0.50374842    
QPSD2[K1] =     -0.89257139    
QPSD3[K1] =      0.51668631    
QPSD4[K1] =     -0.24549195    
QPSD5[K1] =      0.66655599    
QPSD6[K1] =     -0.60101623    
QPSD7[K1] =      0.47031086    
!!!!!!!!!!!!!10:20
 
QPSD0[K1] =     -0.96737404E-02
QPSD1[K1] =      0.49971580    
QPSD2[K1] =     -0.89178734    
QPSD3[K1] =      0.51579327    
QPSD4[K1] =     -0.24554377    
QPSD5[K1] =      0.66673781    
QPSD6[K1] =     -0.60700638    
QPSD7[K1] =      0.46960046    

! Beam lines

  PSD:     LINE=(             DPSDA, &
                  CQB(QPSD7), DPSD9, &
                  CQB(QPSD6), DPSD8, &
                  CQB(QPSD5), DPSD7, &
                  CQB(QPSD4), DPSD6, &
                  BPSD2,      DPSD5, &
                  CQB(QPSD3), DPSD4, &
                  CQB(QPSD2), DPSD3, &
                  CQB(QPSD1), DPSD2, &
                  BPSD1,      DPSD1, &
                  CORRNG,     DCOR,  &
                      QPSD0 )