--- trunk/OOPSE/libmdtools/ForceFields.cpp 2003/03/27 21:07:14 428 +++ trunk/OOPSE/libmdtools/ForceFields.cpp 2003/03/31 21:50:59 438 @@ -68,6 +68,7 @@ void ForceFields::doForces( int calcPot, int calcStres isError = 0; entry_plug->lrPot = 0.0; + fortranForceLoop( pos, A, @@ -81,6 +82,8 @@ void ForceFields::doForces( int calcPot, int calcStres &isError ); + + if( isError ){ sprintf( painCave.errMsg, "Error returned from the fortran force calculation.\n" );