Searched refs:xntrial (Results 1 – 2 of 2) sorted by relevance
29730 static real xntrial; in pmxb_() local30239 xntrial = xmtrnum0; in pmxb_()30241 if ((r__1 = r_mod(&xntrial, &c_b807), dabs(r__1)) < in pmxb_()30245 xntrial *= 2; in pmxb_()30252 xntrial = 1.f; in pmxb_()30255 i__1 = i_nint(&xntrial); in pmxb_()
19694 xntrial = xmtrnum019696 if (abs(mod(xntrial,1.)) .lt. tol) go to 619697 xntrial = xntrial*219700 xntrial = 1.19703 call midievent('m',nint(xntrial),2**ip2*mtrdenl)