research/cantera
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added brackets.

Browse source
This commit is contained in:
Harry Moffat 2004-08-05 19:25:28 +00:00
parent 75a8802833
commit deedf7cab7
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
ext/cvode/source/nvector.c
View file

@ -450,20 +450,22 @@ boole N_VConstrMask(N_Vector c, N_Vector x, N_Vector m)
for (i=0; i<N; i++, cd++, xd++, md++) {
if ( *cd == ZERO) *md = ZERO;
else {
if ( *cd > ONEPT5 || (*cd) < -ONEPT5)
if ( (*xd)*(*cd) <= ZERO) {
test = FALSE;
*md = ONE;
}
else
*md = ZERO;
else if ( (*cd) > HALF || (*cd) < -HALF)
if ( (*xd)*(*cd) < ZERO ) {
if ( *cd > ONEPT5 || (*cd) < -ONEPT5) {
if ( (*xd)*(*cd) <= ZERO) {
test = FALSE;
*md = ONE;
}
else
*md = ZERO;
else {
*md = ZERO;
}
} else if ( (*cd) > HALF || (*cd) < -HALF) {
if ( (*xd)*(*cd) < ZERO ) {
test = FALSE;
*md = ONE;
} else {
*md = ZERO;
}
}
}
}
return(test);