Searched refs:sd1 (Results 1 – 3 of 3) sorted by relevance
15 /* Subroutine */ int srotmg_(real *sd1, real *sd2, real *sx1, real *sy1, real in srotmg_() argument104 if (! (*sd1 < zero)) { in srotmg_()119 sp1 = *sd1 * *sx1; in srotmg_()138 *sd1 /= su; in srotmg_()155 *sd2 = *sd1 / su; in srotmg_()156 *sd1 = stemp; in srotmg_()168 *sd1 = zero; in srotmg_()200 if (! (*sd1 <= rgamsq)) { in srotmg_()203 if (*sd1 == zero) { in srotmg_()213 *sd1 *= r__1 * r__1; in srotmg_()[all …]
120 …�!H�f�3j���ʻ��'���(��يZ��ޡQω�1CR���k���q@��h�9���mH���F�OD�ح��L�n���T�sd1��N�^0z��h���795�…