luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Updated SMPprint and SMPprintRHS for KLU, SuperLU and UMFPACK

This commit is contained in:
Francesco Lannutti 2012-11-02 10:39:33 +01:00 committed by Francesco Lannutti
parent 16ac211b90
commit 005f86a00a
4 changed files with 64 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
src/maths/KLU/klusmp.c
View File

@ -448,16 +448,31 @@ SMPpreOrder (SMPmatrix *Matrix)
}
}
/*
* SMPprintRHS()
*/
void
SMPprintRHS (SMPmatrix *Matrix, char *Filename, RealVector RHS, RealVector iRHS)
{
if (!Matrix->CKTkluMODE)
spFileVector (Matrix->SPmatrix, Filename, RHS, iRHS) ;
}
/*
* SMPprint()
*/
/*ARGSUSED*/
void
SMPprint (SMPmatrix *Matrix, FILE *File)
{
NG_IGNORE (File) ;
spPrint (Matrix->SPmatrix, 0, 1, 1) ;
void
SMPprint (SMPmatrix *Matrix, char *Filename)
{
if (!Matrix->CKTkluMODE)
{
if (Filename)
spFileMatrix (Matrix->SPmatrix, Filename, "Circuit Matrix", 0, 1, 1) ;
else
spPrint (Matrix->SPmatrix, 0, 1, 1) ;
}
}
/*

27
src/maths/SuperLU/superlusmp.c
View File

@ -416,16 +416,31 @@ SMPpreOrder (SMPmatrix *Matrix)
}
}
/*
* SMPprintRHS()
*/
void
SMPprintRHS (SMPmatrix *Matrix, char *Filename, RealVector RHS, RealVector iRHS)
{
if (!Matrix->CKTsuperluMODE)
spFileVector (Matrix->SPmatrix, Filename, RHS, iRHS) ;
}
/*
* SMPprint()
*/
/*ARGSUSED*/
void
SMPprint (SMPmatrix *Matrix, FILE *File)
{
NG_IGNORE (File) ;
spPrint (Matrix->SPmatrix, 0, 1, 1) ;
void
SMPprint (SMPmatrix *Matrix, char *Filename)
{
if (!Matrix->CKTsuperluMODE)
{
if (Filename)
spFileMatrix (Matrix->SPmatrix, Filename, "Circuit Matrix", 0, 1, 1) ;
else
spPrint (Matrix->SPmatrix, 0, 1, 1) ;
}
}
/*

27
src/maths/UMFPACK/umfpacksmp.c
View File

@ -395,16 +395,31 @@ SMPpreOrder (SMPmatrix *Matrix)
}
}
/*
* SMPprintRHS()
*/
void
SMPprintRHS (SMPmatrix *Matrix, char *Filename, RealVector RHS, RealVector iRHS)
{
if (!Matrix->CKTumfpackMODE)
spFileVector (Matrix->SPmatrix, Filename, RHS, iRHS) ;
}
/*
* SMPprint()
*/
/*ARGSUSED*/
void
SMPprint (SMPmatrix *Matrix, FILE *File)
{
NG_IGNORE (File) ;
spPrint (Matrix->SPmatrix, 0, 1, 1) ;
void
SMPprint (SMPmatrix *Matrix, char *Filename)
{
if (!Matrix->CKTumfpackMODE)
{
if (Filename)
spFileMatrix (Matrix->SPmatrix, Filename, "Circuit Matrix", 0, 1, 1) ;
else
spPrint (Matrix->SPmatrix, 0, 1, 1) ;
}
}
/*

2
src/maths/sparse/spsmp.c
View File

@ -275,7 +275,7 @@ SMPpreOrder(SMPmatrix *Matrix)
}
/*
* SMPprint()
* SMPprintRHS()
*/
void