uo9xpb74
/
mathnet-numerics
forked from tsai/mathnet-numerics
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Browse Source

FFT: do not mask MKL error status

benchmark-la
Christoph Ruegg 10 years ago
parent
3b92b38afd
commit
df3264c173
1 changed files with 5 additions and 9 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 14
      src/NativeProviders/MKL/fft.cpp

14
src/NativeProviders/MKL/fft.cpp
View File

@ -13,27 +13,23 @@ inline MKL_LONG fft_1d_inplace(const MKL_LONG n, Data x[], const Precision forwa
MKL_LONG status = 0; MKL_LONG status = 0;
DFTI_DESCRIPTOR_HANDLE descriptor = 0; DFTI_DESCRIPTOR_HANDLE descriptor = 0;
status = DftiCreateDescriptor(&descriptor, precision, domain, 1, n); status = DftiCreateDescriptor(&descriptor, precision, domain, 1, n);
if (0 != status) goto failed; if (0 != status) goto cleanup;
status = DftiSetValue(descriptor, DFTI_FORWARD_SCALE, forward_scale); status = DftiSetValue(descriptor, DFTI_FORWARD_SCALE, forward_scale);
if (0 != status) goto failed; if (0 != status) goto cleanup;
status = DftiSetValue(descriptor, DFTI_BACKWARD_SCALE, backward_scale); status = DftiSetValue(descriptor, DFTI_BACKWARD_SCALE, backward_scale);
if (0 != status) goto failed; if (0 != status) goto cleanup;
status = DftiCommitDescriptor(descriptor); status = DftiCommitDescriptor(descriptor);
if (0 != status) goto failed; if (0 != status) goto cleanup;
status = fft(descriptor, x); status = fft(descriptor, x);
if (0 != status) goto failed; if (0 != status) goto cleanup;
cleanup: cleanup:
DftiFreeDescriptor(&descriptor); DftiFreeDescriptor(&descriptor);
return status; return status;
failed:
status = 1;
goto cleanup;
} }
extern "C" { extern "C" {

Write Preview
Loading…
Cancel
Save