foreach {var lname type priv units klass} {
  BeamCenterX      BeamCenterX        float user     mm   parameter
  BeamCenterZ      BeamCenterZ        float user     mm   parameter
  BeamStop         BeamStop           int   user     none parameter
} {
  ::utility::mkVar $var $type $priv $lname true $klass true true
  if {$units != "none"} {
    sicslist setatt $var units $units
  }
}