| 2317 | ******************************************************************/ |
| 2318 | |
| 2319 | static real CVComputeEtaqp1(CVodeMem cv_mem) |
| 2320 | { |
| 2321 | real etaqp1, dup, cquot; |
| 2322 | |
| 2323 | etaqp1 = ZERO; |
| 2324 | if (q != qmax) { |
| 2325 | cquot = (tq[5] / saved_tq5) * RPowerI(h/tau[2], L); |
| 2326 | N_VLinearSum(-cquot, zn[qmax], ONE, acor, tempv); |
| 2327 | dup = N_VWrmsNorm(tempv, ewt) /tq[3]; |
| 2328 | etaqp1 = ONE / (RPowerR(BIAS3*dup, ONE/(L+1)) + ADDON); |
| 2329 | } |
| 2330 | return(etaqp1); |
| 2331 | } |
| 2332 | |
| 2333 | /******************* CVChooseEta ********************************** |
| 2334 |
no test coverage detected