aboutsummaryrefslogtreecommitdiff
path: root/redist/dclhelpers.c
diff options
context:
space:
mode:
authorcnlohr <lohr85@gmail.com>2018-03-17 01:13:28 -0400
committercnlohr <lohr85@gmail.com>2018-03-17 01:13:28 -0400
commit8b9a196232661bd6506a41b7ceca015d684086a8 (patch)
treea37e294ebc9c7944bea3c8e0e1f0bfc67fbc1c6d /redist/dclhelpers.c
parent75a176d2ef65de8450b2054065d5c068a19966a6 (diff)
downloadlibsurvive-8b9a196232661bd6506a41b7ceca015d684086a8.tar.gz
libsurvive-8b9a196232661bd6506a41b7ceca015d684086a8.tar.bz2
Update variable ordering...
Diffstat (limited to 'redist/dclhelpers.c')
-rw-r--r--redist/dclhelpers.c36
1 files changed, 18 insertions, 18 deletions
diff --git a/redist/dclhelpers.c b/redist/dclhelpers.c
index 9d3d0eb..2ee6c4a 100644
--- a/redist/dclhelpers.c
+++ b/redist/dclhelpers.c
@@ -15,49 +15,49 @@ void dclIdentity( DCL_FLOAT * A, int n )
IDENTITY( A, n );
}
-void dclTransp( const DCL_FLOAT * A, DCL_FLOAT * B, int n, int m)
+void dclTransp( DCL_FLOAT * R, const DCL_FLOAT * A, int n, int m )
{
- TRANSP(A,B,n,m);
+ TRANSP(R,A,n,m);
}
-void dclLU( const DCL_FLOAT * A, DCL_FLOAT * L, DCL_FLOAT * U, int * Piv, int n )
+void dclLU( DCL_FLOAT * L, DCL_FLOAT * U, const DCL_FLOAT * A, int * Piv, int n )
{
- LU(A,L,U,Piv,n);
+ LU(L,U,A,Piv,n);
}
-void dclPivot( const DCL_FLOAT * A, DCL_FLOAT * B, int * Piv, int n, int m )
+void dclPivot( DCL_FLOAT * R, const DCL_FLOAT * A, int * Piv, int n, int m )
{
- PIVOT(A,B,Piv,n,m);
+ PIVOT(R,A,Piv,n,m);
}
-void dclLSub( const DCL_FLOAT * L, DCL_FLOAT * X, const DCL_FLOAT * B, int n, int m )
+void dclLSub( DCL_FLOAT * X, const DCL_FLOAT * L, const DCL_FLOAT * B, int n, int m )
{
- L_SUB(L,X,B,n,m);
+ L_SUB(X,L,B,n,m);
}
-void dclUSub( const DCL_FLOAT * U, DCL_FLOAT * X, const DCL_FLOAT * B, int n, int m )
+void dclUSub( DCL_FLOAT * X, const DCL_FLOAT * U, const DCL_FLOAT * B, int n, int m )
{
- U_SUB(U,X,B,n,m);
+ U_SUB(X,U,B,n,m);
}
-void dclInv( const DCL_FLOAT * A, DCL_FLOAT * Ainv, int n )
+void dclInv( DCL_FLOAT * Ainv, const DCL_FLOAT * A, int n )
{
- INV(A,Ainv,n,n);
+ INV(Ainv,A,n,n);
}
-void dclMul( const DCL_FLOAT * A, const DCL_FLOAT * B, DCL_FLOAT * C, int n, int m, int p )
+void dclMul( DCL_FLOAT * R, const DCL_FLOAT * A, const DCL_FLOAT * B, int n, int m, int p )
{
- MUL(A,B,C,n,m,p);
+ MUL(R,A,B,n,m,p);
}
-void dclMulAdd( const DCL_FLOAT * A, const DCL_FLOAT * B, const DCL_FLOAT * C, DCL_FLOAT * D, int n, int m, int p )
+void dclMulAdd( DCL_FLOAT * R, const DCL_FLOAT * A, const DCL_FLOAT * B, const DCL_FLOAT * C, int n, int m, int p )
{
- MULADD(A,B,C,D,n,m,p);
+ MULADD(R,A,B,C,n,m,p);
}
-void dclGMulAdd( const DCL_FLOAT * A, const DCL_FLOAT * B, const DCL_FLOAT * C, DCL_FLOAT * D, DCL_FLOAT alpha, DCL_FLOAT beta, int n, int m, int p )
+void dclGMulAdd( DCL_FLOAT * R, const DCL_FLOAT * A, const DCL_FLOAT * B, const DCL_FLOAT * C, DCL_FLOAT alpha, DCL_FLOAT beta, int n, int m, int p )
{
- GMULADD(A,B,C,D,alpha,beta,n,m,p);
+ GMULADD(R,A,B,C,alpha,beta,n,m,p);
}