| 1183 | ********************************************************************/ |
| 1184 | |
| 1185 | static boole CVEwtSetSV(CVodeMem cv_mem, real *rtol, N_Vector atol, |
| 1186 | N_Vector ycur, N_Vector ewtvec, integer neq) |
| 1187 | { |
| 1188 | real rtoli; |
| 1189 | |
| 1190 | rtoli = *rtol; |
| 1191 | N_VAbs(ycur, tempv); |
| 1192 | N_VLinearSum(rtoli, tempv, ONE, atol, tempv); |
| 1193 | if (N_VMin(tempv) <= ZERO) return(FALSE); |
| 1194 | N_VInv(tempv, ewtvec); |
| 1195 | return(TRUE); |
| 1196 | } |
| 1197 | |
| 1198 | /******************* CVHin *************************************** |
| 1199 |
no test coverage detected