| 1158 | ********************************************************************/ |
| 1159 | |
| 1160 | static boole CVEwtSetSS(CVodeMem cv_mem, real *rtol, real *atol, |
| 1161 | N_Vector ycur, N_Vector ewtvec, integer neq) |
| 1162 | { |
| 1163 | real rtoli, atoli; |
| 1164 | |
| 1165 | rtoli = *rtol; |
| 1166 | atoli = *atol; |
| 1167 | N_VAbs(ycur, tempv); |
| 1168 | N_VScale(rtoli, tempv, tempv); |
| 1169 | N_VAddConst(tempv, atoli, tempv); |
| 1170 | if (N_VMin(tempv) <= ZERO) return(FALSE); |
| 1171 | N_VInv(tempv, ewtvec); |
| 1172 | return(TRUE); |
| 1173 | } |
| 1174 | |
| 1175 | /*********************** CVEwtSetSV ********************************* |
| 1176 | |