...

CASE device OF
  'ARC noninductive' : BEGIN
    R0 = 3.3 ; m
    a = 1.13 ;m
    epsilon = a/R0
    kappa = 1.84
    delta = 0.3 ; Not stated, guessing
    Im = 7.8 ;MA
    nebar19 = 13. ;x10^19 m^-3
    Tebarkv =  13.9; keV guess from Figure 89 ch2
    B0 = 9.25 ;T
    q95 = 5.6
    betaN = 2.59/100
    beta = 0.019
    Pfus = 525 ;MW,
    Ptrans = 100. ;MW ; Not stated, just guessing
    Wp =  0.; Not stated
    Wmag =  0.; Not stated
    Prad =  0.; not stated
    zeff = 1.4 ;
    tauE =  0 ; Not stated
    amu =  2.5 ;
    fG =  0.67 ;
    nu_n = 0.38; 1.75/1.3 -1
    nu_t = 0.93; 27/13.9-1
    dillution = 0.9; guess
     H=1.8
    scaling = 'ITER98y2'
    TF_inner_ratio = 0.52
    shield_thickness = 0.85
  END
 'ARIES ACT-1' : BEGIN
    R0 = 6.25 ; m
    a = 1.56 ;m
    epsilon = a/R0
    kappa = 2.2
    delta = 0.63
    Im = 10.95;MA
    nebar19 = 13.0 ;x10^19 m^-3
    Tebarkv =  20.6; keV
    B0 = 6.0 ;T
    q95 = 4.4 ; given as q95 =4.5
    betaN = 4.75/100
    beta = 5.54 ;
    Pfus = 1813 ;
    Ptrans = 405.6 ;MW ;
    Wp =  691;
    Wmag =  395;
    Prad =  24.2+56.3+35.0; MW ;Line+brem+sync
    zeff = 2.11 ;
    tauE =  2.0; s
    amu =  2.5 ;
    fG =  1.0 ;
    nu_n = 0.27;
    nu_t = 1.15;
    dillution = 075;
    H = 1.65;
    scaling = 'ITER98y2'
    TF_inner_ratio = 0.52 ;madeup
    shield_thickness = 0.85 ; madeup
  END
'ARIES ACT-2' : BEGIN
    R0 = 9.75 ; m
    a = 2.44 ;m
    epsilon = a/R0
    kappa = 2.2
    delta = 0.63
    Im = 13.98;MA
    nebar19 = 8.6 ;x10^19 m^-3
    Tebarkv =  17.8; keV
    B0 = 8.75 ;T
    q95 = 7.9 ; given as q95 =8.0
    betaN = 2.25/100
    beta = 1.48 ;
    Pfus = 2637. ;
    Ptrans = 633.4 ;MW ;
    Wp =  1486.;
    Wmag =  0; unkown
    Prad =  42.9+96.5+150.4; MW ;Line+brem+sync
    zeff = 2.12 ;
    tauE =  2.0; ?
    amu =  2.5 ;
    fG =  1.3 ;
    nu_n = 0.41;
    nu_t = 1.15;
    dillution = 0.74;
    H = 1.22;
    scaling = 'ITER98y2'
    TF_inner_ratio = 0.52 ;madeup
    shield_thickness = 0.85 ; madeup
  END
ENDCASE