summaryrefslogtreecommitdiff
path: root/src/matrixOperations/expm/sexpma.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/matrixOperations/expm/sexpma.c')
-rw-r--r--src/matrixOperations/expm/sexpma.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/matrixOperations/expm/sexpma.c b/src/matrixOperations/expm/sexpma.c
index 77a1e43a..cd969981 100644
--- a/src/matrixOperations/expm/sexpma.c
+++ b/src/matrixOperations/expm/sexpma.c
@@ -79,10 +79,10 @@ void sexpma (float* in, float* out, int _iLeadDim){
/*E = Eye + cA*/
- saddma (pfltMatrixEye , iSquare, pfltMatrixcA ,iSquare, out ) ;
+ sadda (pfltMatrixEye , iSquare, pfltMatrixcA ,iSquare, out ) ;
/*D = Eye - cA*/
- sdiffma (pfltMatrixEye , iSquare, pfltMatrixcA ,iSquare,pfltMatrixD ) ;
+ sdiffa (pfltMatrixEye , iSquare, pfltMatrixcA ,iSquare,pfltMatrixD ) ;
iMax = 6;
iFlag = 1;
@@ -110,15 +110,15 @@ void sexpma (float* in, float* out, int _iLeadDim){
pfltMatrixcX[iIndex1] = pfltMatrixX[iIndex1] * (float) dblCst ;
/*E = E + cX*/
- saddma ( out, iSquare , pfltMatrixcX , iSquare , out ) ;
+ sadda ( out, iSquare , pfltMatrixcX , iSquare , out ) ;
if(iFlag == 1) /*D = D + cX*/
{
- saddma ( pfltMatrixD, iSquare , pfltMatrixcX , iSquare , pfltMatrixD ) ;
+ sadda ( pfltMatrixD, iSquare , pfltMatrixcX , iSquare , pfltMatrixD ) ;
}
else /*D = D - cX*/
{
- sdiffma ( pfltMatrixD, iSquare , pfltMatrixcX , iSquare , pfltMatrixD );
+ sdiffa ( pfltMatrixD, iSquare , pfltMatrixcX , iSquare , pfltMatrixD );
}
/*Toggle iFlag*/