22 int bsynz_(real *coef, integer *ip, integer *iv, real *sout, real *rms, real *ratio, real *g2pass, …
91 /* Subroutine */ int bsynz_(real *coef, integer *ip, integer *iv,   in bsynz_()
92 	real *sout, real *rms, real *ratio, real *g2pass,  in bsynz_()
98     real *rmso;  in bsynz_()
101     real *exc;  in bsynz_()
102     real *exc2;  in bsynz_()
103     real *lpi1;  in bsynz_()
104     real *lpi2;  in bsynz_()
105     real *lpi3;  in bsynz_()
106     real *hpi1;  in bsynz_()
107     real *hpi2;  in bsynz_()
108     real *hpi3;  in bsynz_()
112     real r__1, r__2;  in bsynz_()
118     real gain, xssq;  in bsynz_()
120     real noise[166], pulse;  in bsynz_()
122     real sscale;  in bsynz_()
124     real xy, sum, ssq;  in bsynz_()
125     real lpi0, hpi0;  in bsynz_()
252 	    exc[contrl_1.order + i__ - 1] = (real) (random_(st) / 64);  in bsynz_()
272 	sscale = sqrt((real) (*ip)) / 6.928f;  in bsynz_()