[thread display] [new arrival display] [word search] [past log] [管理用]
| Subject | ： Re: ビームのエネルギー |
| Date | ： 2006/08/03(Thu) 18:05:43 |
| Contributor | ： Akio Morita |
% 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[]で拾えるのでは?