diff options
| author | simon | 2008-09-10 08:41:15 +0000 |
|---|---|---|
| committer | simon | 2008-09-10 08:41:15 +0000 |
| commit | fe87aaa9e01095a869aa04ee6af8c568216f0293 (patch) | |
| tree | 882eea926944c2b4e931a1a61997176268d6ff10 /src/matrixOperations/inversion/zinverma.c | |
| parent | b54a0679d78d899af6609541aa6130c8789d54d4 (diff) | |
| download | scilab2c-fe87aaa9e01095a869aa04ee6af8c568216f0293.tar.gz scilab2c-fe87aaa9e01095a869aa04ee6af8c568216f0293.tar.bz2 scilab2c-fe87aaa9e01095a869aa04ee6af8c568216f0293.zip | |
added functions to create matrix full of one
Diffstat (limited to 'src/matrixOperations/inversion/zinverma.c')
| -rw-r--r-- | src/matrixOperations/inversion/zinverma.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/src/matrixOperations/inversion/zinverma.c b/src/matrixOperations/inversion/zinverma.c index ef91f55e..c8d5052e 100644 --- a/src/matrixOperations/inversion/zinverma.c +++ b/src/matrixOperations/inversion/zinverma.c @@ -17,7 +17,7 @@ void zinverma ( doubleComplex* in, doubleComplex* out, int leadDimIn ) { int info = 0 ; - int* vectPivot = (int*) malloc ( sizeof(int) * (unsigned int)( leadDimIn*leadDimIn) ); + int* vectPivot = (int*) malloc ( sizeof(int) * (unsigned int)( leadDimIn) ); doubleComplex* work = (doubleComplex*) malloc ( sizeof(doubleComplex) * (unsigned int) (leadDimIn*leadDimIn) ); int i = 0 ; @@ -27,9 +27,7 @@ void zinverma ( doubleComplex* in, doubleComplex* out, int leadDimIn ) out[i] = in[i] ; } - printf ("avant dgefa\n"); zgetrf_ ( &leadDimIn, &leadDimIn, out, &leadDimIn, vectPivot, &info ); -printf ("avant dge\n"); zgetri_ ( &leadDimIn, out, &leadDimIn , vectPivot, work , &leadDimIn , &info ); |