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

*** empty log message ***

Browse source
This commit is contained in:
Dave Goodwin 2004-12-02 23:07:17 +00:00
parent 4c65331514
commit e7a6155da2
3 changed files with 3875 additions and 1605 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
Cantera/src/MultiPhaseEquil.cpp
View file

@ -7,7 +7,7 @@
#include <iostream>
using namespace std;
#define DEBUG_MULTIPHASE_EQUIL
#undef DEBUG_MULTIPHASE_EQUIL
namespace Cantera {
@ -462,7 +462,7 @@ namespace Cantera {
// such that all
if (m_dsoln[k] == 1) {
if ((m_moles[k] > MAJOR_THRESHOLD) ) || (ik < m_nel)) {
if ((m_moles[k] > MAJOR_THRESHOLD) || (ik < m_nel)) {
omax = m_moles[k]*FCTR/(fabs(m_work[k]) + TINY);
if (m_work[k] < 0.0 && omax < omegamax) {
omegamax = omax;
@ -695,4 +695,5 @@ namespace Cantera {
}
return maxerr;
}
}

5471
config/configure vendored
View file

File diff suppressed because it is too large Load diff

4
config/configure.in
View file

@ -643,7 +643,8 @@ AC_MSG_RESULT(${has_sstream})
# Fortran
#---------------------------------
AC_PROG_F77()
if test -z $build_with_f2c; then
AC_PROG_F77()
# if G77 is defined, then add a flag to turn off adding a second underscore
# to procedures that have an underscore in the name
@ -663,6 +664,7 @@ if test -n $override_f77_libs; then
echo the configuration process. They are being manually set to
echo FLIBS = $FLIBS
fi
fi
has_f90=no
f90type=none