| 1714 | ******************************************************************/ |
| 1715 | |
| 1716 | static real CVAltSum(int iend, real a[], int k) |
| 1717 | { |
| 1718 | int i, sign; |
| 1719 | real sum; |
| 1720 | |
| 1721 | if (iend < 0) return(ZERO); |
| 1722 | |
| 1723 | sum = ZERO; |
| 1724 | sign = 1; |
| 1725 | for (i=0; i <= iend; i++) { |
| 1726 | sum += sign * (a[i] / (i+k)); |
| 1727 | sign = -sign; |
| 1728 | } |
| 1729 | return(sum); |
| 1730 | } |
| 1731 | |
| 1732 | /***************** CVSetBDF ************************************** |
| 1733 |
no outgoing calls
no test coverage detected