diff options
Diffstat (limited to 'src/matrixOperations/spec/sspeca.c')
| -rw-r--r-- | src/matrixOperations/spec/sspeca.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/matrixOperations/spec/sspeca.c b/src/matrixOperations/spec/sspeca.c index 03c56ef6..55da48c4 100644 --- a/src/matrixOperations/spec/sspeca.c +++ b/src/matrixOperations/spec/sspeca.c @@ -15,20 +15,20 @@ -void sspeca(float* in, int rows, floatComplex* out){ +void sspeca(float* in, int rows, float* out){ /* As we use Lapack to find the eigenvalues, we must cast the float input into double and the doubleComplex output of dspeca into floatComplex*/ int i; double* dblin; - doubleComplex* dblout; + double* dblout; dblin=malloc((uint)(rows*rows)*sizeof(double)); - dblout=malloc((uint)rows*sizeof(doubleComplex)); + dblout=malloc((uint)rows*sizeof(double)); for (i=0;i<rows*rows;i++) dblin[i]=(double)in[i]; dspeca(dblin,rows,dblout); - for (i=0;i<rows;i++) out[i]=FloatComplex((float)zreals(dblout[i]),(float)zimags(dblout[i])); + for (i=0;i<rows;i++) out[i]=(float)dblout[i]; } |