change parameter declaration style

This commit is contained in:
dwarning 2023-06-06 22:54:44 +02:00
parent 99a216b245
commit 61ecbbaecf
1 changed files with 55 additions and 55 deletions

View File

@ -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;