diff options
| author | torset | 2008-11-13 08:53:04 +0000 |
|---|---|---|
| committer | torset | 2008-11-13 08:53:04 +0000 |
| commit | fbb4b7c8d67e1e6a98bce659ab5ec18fd3362d13 (patch) | |
| tree | c8b12bbb58726a21a6339cce4ba9e909cd285816 /src/matrixOperations/expm/cexpma.c | |
| parent | e4bf45d022a05af69e506fec2c9bde6ec105905a (diff) | |
| download | scilab2c-fbb4b7c8d67e1e6a98bce659ab5ec18fd3362d13.tar.gz scilab2c-fbb4b7c8d67e1e6a98bce659ab5ec18fd3362d13.tar.bz2 scilab2c-fbb4b7c8d67e1e6a98bce659ab5ec18fd3362d13.zip | |
change repertory for the multiplication and division and made the modifs in the files using them.
Diffstat (limited to 'src/matrixOperations/expm/cexpma.c')
| -rw-r--r-- | src/matrixOperations/expm/cexpma.c | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/matrixOperations/expm/cexpma.c b/src/matrixOperations/expm/cexpma.c index b58855dd..fd73ea85 100644 --- a/src/matrixOperations/expm/cexpma.c +++ b/src/matrixOperations/expm/cexpma.c @@ -1,5 +1,4 @@ -/* - * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +/* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab * Copyright (C) 2008-2008 - INRIA - Allan SIMON * * This file must be used under the terms of the CeCILL. @@ -60,7 +59,7 @@ void cexpma(floatComplex * in, floatComplex * out, int _iLeadDim) /*A = A./2^s */ for ( iIndex1 = 0 ; iIndex1 < iSquare ; iIndex1++ ) - pfltMatrixA[iIndex1] = cdevides ( in[iIndex1] , FloatComplex ( fltS2 , 0 )); + pfltMatrixA[iIndex1] = cdivides ( in[iIndex1] , FloatComplex ( fltS2 , 0 )); /* Pade approximation for exp(A) @@ -136,7 +135,7 @@ void cexpma(floatComplex * in, floatComplex * out, int _iLeadDim) pfltMatrixTemp[iIndex1] = out[iIndex1] ; /* E = D\E */ - cldiva ( pfltMatrixD , _iLeadDim , _iLeadDim , pfltMatrixTemp , _iLeadDim , _iLeadDim , out ) ; + cldivma ( pfltMatrixD , _iLeadDim , _iLeadDim , pfltMatrixTemp , _iLeadDim , _iLeadDim , out ) ; /*/ Undo scaling by repeated squaring */ for(iLoop1 = 0 ; iLoop1 < fltS ; iLoop1++) |