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

[Fortran] Remove unhelpful error handling in _fkin()

Browse source
This commit is contained in:
Ray Speth 2014-03-28 23:12:25 +00:00
parent 4587883d5e
commit a17085661f
1 changed files with 1 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/fortran/fct.cpp
View file

@ -40,12 +40,7 @@ inline ThermoPhase* _fph(const integer* n)
static Kinetics* _fkin(const integer* n)
{
if (*n >= 0) {
return &KineticsCabinet::item(*n);
} else {
error("_fkin: negative kinetics index");
return &KineticsCabinet::item(0);
}
return &KineticsCabinet::item(*n);
}
inline ThermoPhase* _fth(const integer* n)