From fbb4b7c8d67e1e6a98bce659ab5ec18fd3362d13 Mon Sep 17 00:00:00 2001
From: torset
Date: Thu, 13 Nov 2008 08:53:04 +0000
Subject: change repertory for the multiplication and division and made the
 modifs in the files using them.

---
 src/matrixOperations/expm/cexpma.c | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src/matrixOperations/expm/cexpma.c')

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++)
-- 
cgit