Searched refs:adj0 (Results 1 – 1 of 1) sorted by relevance
317 double adj, adj0, rv, tol; in strtodg() local851 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()[all …]