_RL ZZ0(irun),Z(irun),Z2(irun),Z1(irun),Z0(irun)
Z1(I) = Z(I)
Z1(I) = ZWM
X1NUM(I) = 1. + 5. * Z1(I)
X1DEN(I) = 1. / (1. + CM1 * (X1NUM(I) * Z1(I)) )
1 HZ(I) = Z1(I) / Z0(I)
ARG0(I) = (Z1(I) + 0.1) * (Z0(I) + 0.1)
ARG0(I) = ( Z1(I) - Z0(I) ) / ARG0(I)