! ------------------------------------------------------------------------------
! hydrogen plasma beamline with QS0 (January 2015)
! ------------------------------------------------------------------------------

  LPLASMA  := 2.791 !reducing flange to reducing flange (est. from drawing)

  DEXPT00  : DRIF, L=0-dZQFF6
  DEXPT01a : DRIF, L=0.17785
  DEXPT01b : DRIF, L=0.127
  DEXPT01c : DRIF, L=0.035
  DEXPT02  : DRIF, L=0.117
  DEXPT03  : DRIF, L=0.2481
  DPC200   : DRIF, L=0.1778/2
  DEXPT04  : DRIF, L=0.1041
  DEXPT05  : DRIF, L=0.096
  DEXPT06  : DRIF, L=0.111-0.001
  DEXPT07  : DRIF, L=0.074+0.001
  DEXPT08  : DRIF, L=0.434
  DEXPT09  : DRIF, L=0.603
  DPLASa   : DRIF, L=0.3
  DPLASb   : DRIF, L=0.025
  DPLASc   : DRIF, L=0.11
  DPLASd   : DRIF, L=0.389
  DPLASe   : DRIF, L=0.501
  DPLASf   : DRIF, L=0.501
  DPLASg   : DRIF, L=0.38
  DPLASh   : DRIF, L=0.025
  DPLASi   : DRIF, L=0.56
  DEXPT10  : DRIF, L=0.4
  DEXPT11  : DRIF, L=0.42-LQS0/2
  DEXPT12  : DRIF, L=0.287-LQS0/2
  DEXPT13  : DRIF, L=0.099
  DEXPT14  : DRIF, L=0.103
  DEXPT15  : DRIF, L=0.072
  DEXPT16  : DRIF, L=0.115
  DKR01    : DRIF, L=0.2
  DKR02    : DRIF, L=0.2
  DKR03    : DRIF, L=0.01
  DKR04    : DRIF, L=0.05
  DKR05    : DRIF, L=0.04
  DKR06    : DRIF, L=0.3
  DEXPT17  : DRIF, L=0.113
  DEXPT18  : DRIF, L=0.129
  DEXPT19  : DRIF, L=0.148
  DEXPT20  : DRIF, L=0.092
  DEXPT21  : DRIF, L=0.258

! ------------------------------------------------------------------------------

  COMMENT !verify total length of 2015 experimental area
    Lexpt0 := 8.989022 !center of QFF6 to center of QS1
    Lexpt  := DEXPT00[L]+DEXPT01a[L]+DEXPT01b[L]+DEXPT01c[L]+DEXPT02[L]+ &
              DEXPT03[L]+2*DPC200[L]+DEXPT04[L]+DEXPT05[L]+DEXPT06[L]+ &
              DEXPT07[L]+DEXPT08[L]+DEXPT09[L]+DPLASa[L]+DPLASb[L]+DPLASc[L]+ &
              DPLASd[L]+DPLASe[L]+DPLASf[L]+DPLASg[L]+DPLASh[L]+DPLASi[L]+ &
              DEXPT10[L]+DEXPT11[L]+DEXPT12[L]+DEXPT13[L]+LQS0+DEXPT14[L]+ &
              DEXPT15[L]+DEXPT16[L]+DKR01[L]+DKR02[L]+DKR03[L]+DKR04[L]+ &
              DKR05[L]+DKR06[L]+DEXPT17[L]+DEXPT18[L]+DEXPT19[L]+DEXPT20[L]+ &
              DEXPT21[L]+dZQFF6-dZQS1
    VALUE, QFF6[L]+Lexpt+QS1[L],Lexpt0,QFF6[L]+Lexpt+QS1[L]-Lexpt0
  ENDCOMMENT

  PCUBE1 : MARK, TYPE="6 inch cube #1"
  PCUBE2 : MARK, TYPE="6 inch cube #2"
  PCUBE3 : MARK, TYPE="6 inch cube #3"
  PCUBE4 : MARK, TYPE="6 inch cube #4"
  PCUBE5 : MARK, TYPE="6 inch cube #5"
  CUBE6  : MARK, TYPE="gold mirror"
  LDUMP  : MARK, TYPE="laser dump"
  LINJ   : MARK, TYPE="laser injector"

  PLASMA : LINE=(PENT,DPLASa,IPOTR1,DPLASb,MIP,DBMARK69,PCUBE1,DPLASc,&
    WSIP2,DPLASd,PCUBE2,DPLASe,PCUBE3,DPLASf,PCUBE4,DPLASg,PCUBE5,DPLASh,&
    IPOTR2,DPLASi,PEXT)

  EXPT   : LINE=(DEXPT00,M5FF,&
    DEXPT01a,VV3160,DEXPT01b,TABLE1,DEXPT01c,USOTR,&
    DEXPT02,IM3163,DEXPT03,DPC200,PC200,DPC200,DEXPT04,WSIP1,&
    DEXPT05,BW203160,DEXPT06,EOS,DEXPT07,M3167,DEXPT08,IPODR,&
    DEXPT09,PLASMA,DEXPT10,CUBE6,DEXPT11,BLQS0,DEXPT12,LDUMP,&
    DEXPT13,BW203208,DEXPT14,LINJ,DEXPT15,IP2A,DEXPT16,LKRAKEN,&
    DEXPT17,WSIP3,DEXPT18,IP2B,DEXPT19,VV3250,DEXPT20,IM3255,&
    DEXPT21)

! ------------------------------------------------------------------------------

  RETURN