要素番号を指定して、ビームのエネルギーを得る方法はありますでしょうか？
ring でなくて、trpt モードでよく、TrackParticles で１粒子トラッキングすれば
分かりますが、disp a で出てくる p(GeV) や DDP を関数で得る方法があったら、
教えてください。
　
　　どうぞよろしくお願い申し上げます。

% cd CVSwork/acsad/oldsad/src
% grep DDP *.f
initb1.f: kytbl(kwDDP ,0)=sethtb('DDP ',icKWRD,kwDZ )
initb1.f: kytbl(kwDDP ,icMark)=20
pbump1.f:c -- 'DDPX' ---
pbump1.f:c -- 'DDPY' ---
tfdisp.f: 1 ' Element p(GeV)emitx(m)emity(m) DDP',' ',
tffsa.f: 1 'DY ','DPY ','DZ ','DDP ',
tffsa.f: $ 'DEPY ','DDX ','DDPX ','DDY ',
tffsa.f: $ 'DDPY ','PDEX ','PDEPX ','PDEY ',
tfsetparam.f: dp0=rlist(kx+kytbl(kwDDP,icMARK))
tftwiss.f: 1 'DY ','DPY ','DZ ','DDP ',
track.f: $ 'DP0:=LINE["DDP",1];(DP0=v_)^:=(LINE["DDP",1]=v);'//
だから Twiss[]で拾えるのでは?