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 2005-09-15 03:50:36 +00:00
parent 2db47e4018
commit 2775bed68d
2 changed files with 18 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
Cantera/src/BandMatrix.cpp
View file

@ -20,7 +20,8 @@
#include "ctlapack.h"
#include "utilities.h"
#include "ctexceptions.h"
#include "stringUtils.h"
#include "global.h"
namespace Cantera {
@ -136,12 +137,14 @@ namespace Cantera {
}
else {
m_factored = false;
ofstream fout("bandmatrix.csv");
fout << *this << endl;
fout.close();
//throw CanteraError("BandMatrix::factor",
// "DGBTRF returned info = "+int2str(info)+".\n"
// +"Matrix written to file bandmatrix.csv\n");
ofstream fout("bandmatrix.csv");
fout << *this << endl;
fout.close();
error("DGBTRF returned info = "+int2str(info)+".\n"
+"Matrix written to file bandmatrix.csv\n");
//throw CanteraError("BandMatrix::factor",
// "DGBTRF returned info = "+int2str(info)+".\n"
// +"Matrix written to file bandmatrix.csv\n");
}
return info;
}
@ -192,9 +195,9 @@ namespace Cantera {
ofstream fout("bandmatrix.csv");
fout << *this << endl;
fout.close();
// throw CanteraError("BandMatrix::solve",
// "DGBTRS returned info = "+int2str(info)+".\n"
// +"Matrix written to file bandmatrix.csv\n");
throw CanteraError("BandMatrix::solve",
"DGBTRS returned info = "+int2str(info)+".\n"
+"Matrix written to file bandmatrix.csv\n");
}
return info;
}
@ -204,11 +207,11 @@ namespace Cantera {
int nc = m.columns();
int i,j;
for (i = 0; i < nr; i++) {
s << "Row " << i+1 << ": ";
//s << "Row " << i+1 << ": ";
for (j = 0; j < nc; j++) {
s << m(i,j) << ", ";
}
s << endl << endl;
s << endl;
}
return s;
}

5
ext/f2c_libs/arith.h
View file

@ -1,3 +1,4 @@
#define IEEE_8087
#define Arith_Kind_ASL 1
#define IEEE_MC68k
#define Arith_Kind_ASL 2
#define Double_Align
#define NANCHECK