2 * fixed by patch
to safe_from_p
to avoid visiting any SAVE_EXPR
3 * node twice in a given top
-level
call to it
.
4 * (JCB com
.c patch of
1998-06-04.)
10 . * ( rdw
* (epsh*gzi1
(A
,B
)-gzi2
(A
,B
))
11 . + rdw
* (epsh*gzi1
(A
,B
)-gzi2
(A
,B
)) )
12 . + (-1./2. + 2.*sw2
/3.) / (sw*cw
)
13 . * rdw
* (epsh*gzi1
(A
,B
)-gzi2
(A
,B
)
14 . + rdw
* (epsh*gzi1
(A
,B
)-gzi2
(A
,B
))
15 . + rdw
* (epsh*gzi1
(A
,B
)-gzi2
(A
,B
)) )
16 . * rup
* (epsh*gzi1
(A
,B
)-gzi2
(A
,B
)
17 . + rup
* (epsh*gzi1
(A
,B
)-gzi2
(A
,B
)) )
18 . * 4.*(3.-tw**2
) * gzi2
(A
,B
)
19 . + ((1.+2./tauw
)*tw**2
-(5.+2./tauw
))* gzi1
(A
,B
)