| 1626 | *****************************************************************/ |
| 1627 | |
| 1628 | static void CVSetAdams(CVodeMem cv_mem) |
| 1629 | { |
| 1630 | real m[L_MAX], M[3], hsum; |
| 1631 | |
| 1632 | if (q == 1) { |
| 1633 | l[0] = l[1] = tq[1] = tq[5] = ONE; |
| 1634 | tq[2] = TWO; |
| 1635 | tq[3] = TWELVE; |
| 1636 | tq[4] = CORTES * tq[2]; /* = 0.1 * tq[2] */ |
| 1637 | return; |
| 1638 | } |
| 1639 | |
| 1640 | hsum = CVAdamsStart(cv_mem, m); |
| 1641 | |
| 1642 | M[0] = CVAltSum(q-1, m, 1); |
| 1643 | M[1] = CVAltSum(q-1, m, 2); |
| 1644 | |
| 1645 | CVAdamsFinish(cv_mem, m, M, hsum); |
| 1646 | } |
| 1647 | |
| 1648 | /****************** CVAdamsStart ******************************** |
| 1649 |
no test coverage detected