Searched refs:xlmda (Results 1 – 2 of 2) sorted by relevance
404 extern doublereal determ_(integer *n, doublereal *tri, doublereal *xlmda);
4003 doublereal determ_(integer *n, doublereal *tri, doublereal *xlmda) in determ_() argument4019 d2 = tri[(*n << 1) - 2] - *xlmda; in determ_()4020 d1 = d2 * (tri[(*n << 1) - 4] - *xlmda) - tri[(*n << 1) - 1]; in determ_()4028 d1 = (tri[((l - 1) << 1) - 2] - *xlmda) * d2 - d3 * tri[(l << 1) - 1]; in determ_()