You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
639 B
14 lines
639 B
do ep=-2,0
|
|
S0000ii(z2(1,1),ep)=+2d0*(Csum00(ep)+Csum001(ep)+Csum002(ep))
|
|
. +2d0*m1*Dv(dd0011+N0,ep)
|
|
S0000ii(z2(1,2),ep)=-2d0*Csum001(ep)
|
|
. +2d0*m1*Dv(dd0012+N0,ep)
|
|
S0000ii(z2(1,3),ep)=-2d0*Csum002(ep)
|
|
. +2d0*m1*Dv(dd0013+N0,ep)
|
|
S0000ii(z2(2,2),ep)=+2d0*Cv(cc0011+C234,ep)
|
|
. +2d0*m1*Dv(dd0022+N0,ep)
|
|
S0000ii(z2(2,3),ep)=+2d0*Cv(cc0012+C234,ep)
|
|
. +2d0*m1*Dv(dd0023+N0,ep)
|
|
S0000ii(z2(3,3),ep)=+2d0*Cv(cc0022+C234,ep)
|
|
. +2d0*m1*Dv(dd0033+N0,ep)
|
|
enddo
|