From a17085661f853f70200b3b7fd19b3a091b2b2ca4 Mon Sep 17 00:00:00 2001 From: Ray Speth Date: Fri, 28 Mar 2014 23:12:25 +0000 Subject: [PATCH] [Fortran] Remove unhelpful error handling in _fkin() --- src/fortran/fct.cpp | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/src/fortran/fct.cpp b/src/fortran/fct.cpp index b447a66dc..229d6453e 100644 --- a/src/fortran/fct.cpp +++ b/src/fortran/fct.cpp @@ -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)