change parameter declaration style
This commit is contained in:
parent
99a216b245
commit
61ecbbaecf
|
|
@ -104,10 +104,10 @@ static void LoadGmin(char *Matrix, double Gmin);
|
||||||
* SMPaddElt()
|
* SMPaddElt()
|
||||||
*/
|
*/
|
||||||
int
|
int
|
||||||
SMPaddElt( Matrix, Row, Col, Value )
|
SMPaddElt(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix,
|
||||||
int Row, Col;
|
int Row, int Col,
|
||||||
double Value;
|
double Value)
|
||||||
{
|
{
|
||||||
*spGetElement( (char *)Matrix, Row, Col ) = Value;
|
*spGetElement( (char *)Matrix, Row, Col ) = Value;
|
||||||
return spErrorState( (char *)Matrix );
|
return spErrorState( (char *)Matrix );
|
||||||
|
|
@ -117,9 +117,9 @@ double Value;
|
||||||
* SMPmakeElt()
|
* SMPmakeElt()
|
||||||
*/
|
*/
|
||||||
double *
|
double *
|
||||||
SMPmakeElt( Matrix, Row, Col )
|
SMPmakeElt(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix,
|
||||||
int Row, Col;
|
int Row, int Col)
|
||||||
{
|
{
|
||||||
return spGetElement( (char *)Matrix, Row, Col );
|
return spGetElement( (char *)Matrix, Row, Col );
|
||||||
}
|
}
|
||||||
|
|
@ -128,8 +128,8 @@ int Row, Col;
|
||||||
* SMPcClear()
|
* SMPcClear()
|
||||||
*/
|
*/
|
||||||
void
|
void
|
||||||
SMPcClear( Matrix )
|
SMPcClear(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix)
|
||||||
{
|
{
|
||||||
spClear( (char *)Matrix );
|
spClear( (char *)Matrix );
|
||||||
}
|
}
|
||||||
|
|
@ -138,8 +138,8 @@ SMPmatrix *Matrix;
|
||||||
* SMPclear()
|
* SMPclear()
|
||||||
*/
|
*/
|
||||||
void
|
void
|
||||||
SMPclear( Matrix )
|
SMPclear(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix)
|
||||||
{
|
{
|
||||||
spClear( (char *)Matrix );
|
spClear( (char *)Matrix );
|
||||||
}
|
}
|
||||||
|
|
@ -149,9 +149,9 @@ SMPmatrix *Matrix;
|
||||||
*/
|
*/
|
||||||
/*ARGSUSED*/
|
/*ARGSUSED*/
|
||||||
int
|
int
|
||||||
SMPcLUfac( Matrix, PivTol )
|
SMPcLUfac(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix,
|
||||||
double PivTol;
|
double PivTol)
|
||||||
{
|
{
|
||||||
spSetComplex( (char *)Matrix );
|
spSetComplex( (char *)Matrix );
|
||||||
return spFactor( (char *)Matrix );
|
return spFactor( (char *)Matrix );
|
||||||
|
|
@ -162,9 +162,9 @@ double PivTol;
|
||||||
*/
|
*/
|
||||||
/*ARGSUSED*/
|
/*ARGSUSED*/
|
||||||
int
|
int
|
||||||
SMPluFac( Matrix, PivTol, Gmin )
|
SMPluFac(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix,
|
||||||
double PivTol, Gmin;
|
double PivTol, double Gmin)
|
||||||
{
|
{
|
||||||
spSetReal( (char *)Matrix );
|
spSetReal( (char *)Matrix );
|
||||||
LoadGmin( (char *)Matrix, Gmin );
|
LoadGmin( (char *)Matrix, Gmin );
|
||||||
|
|
@ -175,10 +175,10 @@ double PivTol, Gmin;
|
||||||
* SMPcReorder()
|
* SMPcReorder()
|
||||||
*/
|
*/
|
||||||
int
|
int
|
||||||
SMPcReorder( Matrix, PivTol, PivRel, NumSwaps )
|
SMPcReorder(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix,
|
||||||
double PivTol, PivRel;
|
double PivTol, double PivRel,
|
||||||
int *NumSwaps;
|
int *NumSwaps)
|
||||||
{
|
{
|
||||||
*NumSwaps = 0;
|
*NumSwaps = 0;
|
||||||
spSetComplex( (char *)Matrix );
|
spSetComplex( (char *)Matrix );
|
||||||
|
|
@ -190,9 +190,9 @@ int *NumSwaps;
|
||||||
* SMPreorder()
|
* SMPreorder()
|
||||||
*/
|
*/
|
||||||
int
|
int
|
||||||
SMPreorder( Matrix, PivTol, PivRel, Gmin )
|
SMPreorder(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix,
|
||||||
double PivTol, PivRel, Gmin;
|
double PivTol, double PivRel, double Gmin)
|
||||||
{
|
{
|
||||||
spSetComplex( (char *)Matrix );
|
spSetComplex( (char *)Matrix );
|
||||||
LoadGmin( (char *)Matrix, Gmin );
|
LoadGmin( (char *)Matrix, Gmin );
|
||||||
|
|
@ -204,9 +204,9 @@ double PivTol, PivRel, Gmin;
|
||||||
* SMPcaSolve()
|
* SMPcaSolve()
|
||||||
*/
|
*/
|
||||||
void
|
void
|
||||||
SMPcaSolve( Matrix, RHS, iRHS, Spare, iSpare)
|
SMPcaSolve(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix,
|
||||||
double RHS[], iRHS[], Spare[], iSpare[];
|
double RHS[], double iRHS[], double Spare[], double iSpare[])
|
||||||
{
|
{
|
||||||
spSolveTransposed( (char *)Matrix, RHS, RHS, iRHS, iRHS );
|
spSolveTransposed( (char *)Matrix, RHS, RHS, iRHS, iRHS );
|
||||||
}
|
}
|
||||||
|
|
@ -215,9 +215,9 @@ double RHS[], iRHS[], Spare[], iSpare[];
|
||||||
* SMPcSolve()
|
* SMPcSolve()
|
||||||
*/
|
*/
|
||||||
void
|
void
|
||||||
SMPcSolve( Matrix, RHS, iRHS, Spare, iSpare)
|
SMPcSolve(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix,
|
||||||
double RHS[], iRHS[], Spare[], iSpare[];
|
double RHS[], double iRHS[], double Spare[], double iSpare[])
|
||||||
{
|
{
|
||||||
spSolve( (char *)Matrix, RHS, RHS, iRHS, iRHS );
|
spSolve( (char *)Matrix, RHS, RHS, iRHS, iRHS );
|
||||||
}
|
}
|
||||||
|
|
@ -226,9 +226,9 @@ double RHS[], iRHS[], Spare[], iSpare[];
|
||||||
* SMPsolve()
|
* SMPsolve()
|
||||||
*/
|
*/
|
||||||
void
|
void
|
||||||
SMPsolve( Matrix, RHS, Spare )
|
SMPsolve(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix,
|
||||||
double RHS[], Spare[];
|
double RHS[], double Spare[])
|
||||||
{
|
{
|
||||||
spSolve( (char *)Matrix, RHS, RHS, (spREAL*)NULL, (spREAL*)NULL );
|
spSolve( (char *)Matrix, RHS, RHS, (spREAL*)NULL, (spREAL*)NULL );
|
||||||
}
|
}
|
||||||
|
|
@ -237,8 +237,8 @@ double RHS[], Spare[];
|
||||||
* SMPmatSize()
|
* SMPmatSize()
|
||||||
*/
|
*/
|
||||||
int
|
int
|
||||||
SMPmatSize( Matrix )
|
SMPmatSize(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix)
|
||||||
{
|
{
|
||||||
return spGetSize( (char *)Matrix, 1 );
|
return spGetSize( (char *)Matrix, 1 );
|
||||||
}
|
}
|
||||||
|
|
@ -247,9 +247,9 @@ SMPmatrix *Matrix;
|
||||||
* SMPnewMatrix()
|
* SMPnewMatrix()
|
||||||
*/
|
*/
|
||||||
int
|
int
|
||||||
SMPnewMatrix( pMatrix, dummy )
|
SMPnewMatrix(
|
||||||
SMPmatrix **pMatrix;
|
SMPmatrix **pMatrix,
|
||||||
int dummy;
|
int dummy)
|
||||||
{
|
{
|
||||||
int Error;
|
int Error;
|
||||||
*pMatrix = (SMPmatrix *)spCreate( 0, 1, &Error );
|
*pMatrix = (SMPmatrix *)spCreate( 0, 1, &Error );
|
||||||
|
|
@ -260,8 +260,8 @@ int Error;
|
||||||
* SMPdestroy()
|
* SMPdestroy()
|
||||||
*/
|
*/
|
||||||
void
|
void
|
||||||
SMPdestroy( Matrix )
|
SMPdestroy(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix)
|
||||||
{
|
{
|
||||||
spDestroy( (char *)Matrix );
|
spDestroy( (char *)Matrix );
|
||||||
}
|
}
|
||||||
|
|
@ -270,8 +270,8 @@ SMPmatrix *Matrix;
|
||||||
* SMPpreOrder()
|
* SMPpreOrder()
|
||||||
*/
|
*/
|
||||||
int
|
int
|
||||||
SMPpreOrder( Matrix )
|
SMPpreOrder(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix)
|
||||||
{
|
{
|
||||||
spMNA_Preorder( (char *)Matrix );
|
spMNA_Preorder( (char *)Matrix );
|
||||||
return spErrorState( (char *)Matrix );
|
return spErrorState( (char *)Matrix );
|
||||||
|
|
@ -291,9 +291,9 @@ SMPprintRHS(SMPmatrix *Matrix, char *Filename, RealVector RHS, RealVector iRHS)
|
||||||
*/
|
*/
|
||||||
/*ARGSUSED*/
|
/*ARGSUSED*/
|
||||||
void
|
void
|
||||||
SMPprint( Matrix, File )
|
SMPprint(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix,
|
||||||
char *File;
|
char *File)
|
||||||
{
|
{
|
||||||
spPrint( (char *)Matrix, 0, 1, 1 );
|
spPrint( (char *)Matrix, 0, 1, 1 );
|
||||||
}
|
}
|
||||||
|
|
@ -302,9 +302,9 @@ char *File;
|
||||||
* SMPgetError()
|
* SMPgetError()
|
||||||
*/
|
*/
|
||||||
void
|
void
|
||||||
SMPgetError( Matrix, Col, Row)
|
SMPgetError(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix,
|
||||||
int *Row, *Col;
|
int *Row, int *Col)
|
||||||
{
|
{
|
||||||
spWhereSingular( (char *)Matrix, Row, Col );
|
spWhereSingular( (char *)Matrix, Row, Col );
|
||||||
}
|
}
|
||||||
|
|
@ -313,10 +313,10 @@ int *Row, *Col;
|
||||||
* SMPcProdDiag()
|
* SMPcProdDiag()
|
||||||
*/
|
*/
|
||||||
int
|
int
|
||||||
SMPcProdDiag( Matrix, pMantissa, pExponent)
|
SMPcProdDiag(
|
||||||
SMPmatrix *Matrix;
|
SMPmatrix *Matrix,
|
||||||
SPcomplex *pMantissa;
|
SPcomplex *pMantissa,
|
||||||
int *pExponent;
|
int *pExponent)
|
||||||
{
|
{
|
||||||
spDeterminant( (char *)Matrix, pExponent, &(pMantissa->real),
|
spDeterminant( (char *)Matrix, pExponent, &(pMantissa->real),
|
||||||
&(pMantissa->imag) );
|
&(pMantissa->imag) );
|
||||||
|
|
@ -418,9 +418,9 @@ SMPcDProd(SMPmatrix *Matrix, SPcomplex *pMantissa, int *pExponent)
|
||||||
*/
|
*/
|
||||||
#include "spDefs.h"
|
#include "spDefs.h"
|
||||||
static void
|
static void
|
||||||
LoadGmin( eMatrix, Gmin )
|
LoadGmin(
|
||||||
char *eMatrix;
|
char *eMatrix,
|
||||||
register double Gmin;
|
register double Gmin)
|
||||||
{
|
{
|
||||||
MatrixPtr Matrix = (MatrixPtr)eMatrix;
|
MatrixPtr Matrix = (MatrixPtr)eMatrix;
|
||||||
register int I;
|
register int I;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue