_RL X0NUM(irun),X1NUM(irun),X0DEN(irun)
X1NUM(I) = 1. + 5. * Z1(I)
X1DEN(I) = 1. / (1. + CM1 * (X1NUM(I) * Z1(I)) )
X1(I) = X1NUM(I) * X1DEN(I)
Y1DEN(I) = 1. + CM1 * ( X1NUM(I) * Z(I) )
Y1(I) = X1NUM(I) / Y1DEN(I)