Lines Matching refs:adj0
317 double adj, adj0, rv, tol; in strtodg() local
851 adj0 = dval(adj) = 1.; in strtodg()
854 adj0 = dval(adj) *= 0.5; in strtodg()
860 L = (Long)adj0; in strtodg()
861 adj0 -= L; in strtodg()
864 if (adj0 >= .5) in strtodg()
868 if (asub && adj0 > 0.) in strtodg()
872 if (!asub && adj0 > 0.) { in strtodg()
956 dval(adj) = adj0 - .5; in strtodg()
958 if (adj0 > tol) { in strtodg()
963 else if (dval(adj) > tol && adj0 < 1. - tol) { in strtodg()