[thread display] [new arrival display] [word search] [past log] [管理用]
| Subject | ： Re: src/trade.f r1.19 - r1.20の変更内容 |
| Date | ： 2012/11/27(Tue) 19:31:11 |
| Contributor | ： Akio Morita |
design_example.sadのEMITXを変えたのは、この部分の変更でした。
変数 alは、おそらく長さの次元を持つので、radi(6,1)の第2項の次元を変える変更
(dldxは、dl/dxのことで無次元量と思われる)
> Index: src/trade.f
> ===================================================================
> RCS file: /SAD/cvsroot/oldsad/src/trade.f,v
> retrieving revision 1.19
> retrieving revision 1.20
> diff -d -u -r1.19 -r1.20
> --- src/trade.f 17 Jan 2010 07:19:11 -0000 1.19
> +++ src/trade.f 18 Jan 2010 13:08:29 -0000 1.20
> @@ -43,7 +43,7 @@
> call tclr(radi,36)
> radi(6,1)=-h1sq*tlc*2.d0*
> $ (pzi*(-vx*bxy+vy*bxx)+vz*(pxi*bxy-pyi*bxx))
> - 1 -h1sq*brad*dtdsc*al*dldx
> + 1 -h1sq*brad*dtdsc*dldx
> radi(6,2)=(dp*dtds**2*pxi-h1sq*tlc*2.d0*
> $ ((vx*by-vy*bx)*pxi/pzi-vy*bz+vz*by))/pr
> radi(6,3)=-h1sq*tlc*2.d0*