diff options
Diffstat (limited to 'src/matrixOperations/expm/dexpma.c')
| -rw-r--r-- | src/matrixOperations/expm/dexpma.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/matrixOperations/expm/dexpma.c b/src/matrixOperations/expm/dexpma.c index b8616d81..df25146c 100644 --- a/src/matrixOperations/expm/dexpma.c +++ b/src/matrixOperations/expm/dexpma.c @@ -127,7 +127,7 @@ void dexpma (double* in, double* out, int _iLeadDim){ pdblMatrixTemp[iIndex1] = out[iIndex1] ; /*E = D\E*/ - dldiva ( pdblMatrixD , _iLeadDim , _iLeadDim , pdblMatrixTemp , _iLeadDim , _iLeadDim , out ); + dldivma ( pdblMatrixD , _iLeadDim , _iLeadDim , pdblMatrixTemp , _iLeadDim , _iLeadDim , out ); /* Undo scaling by repeated squaring*/ for(iLoop1 = 0 ; iLoop1 < dblS ; iLoop1++) |