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)