[ba1662]: mex / comp_dgt_ola.c  Maximize  Restore  History

Download this file

58 lines (44 with data), 1.2 kB

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
#ifndef _LTFAT_MEX_FILE
#define _LTFAT_MEX_FILE
#define ISNARGINEQ 5
#define TYPEDEPARGS 0, 1
#define SINGLEARGS
#define COMPLEXARGS
#endif // _LTFAT_MEX_FILE - INCLUDED ONCE
#define MEX_FILE __BASE_FILE__
#include "ltfat_mex_template_helper.h"
#if defined(LTFAT_SINGLE) || defined(LTFAT_DOUBLE)
#include "ltfat_types.h"
// Calling convention:
// comp_dgt_ola(f,g,a,M,bl);
void
LTFAT_NAME(ltfatMexFnc)( int nlhs, mxArray *plhs[],
int nrhs, const mxArray *prhs[] )
{
mwSignedIndex L, gl,W, a, M, N, bl;
mwSize ndim;
mwSize dims[3];
// Get matrix dimensions.
L = mxGetM(prhs[0]);
W = mxGetN(prhs[0]);
gl = mxGetM(prhs[1]);
a=(mwSignedIndex) mxGetScalar(prhs[2]);
M=(mwSignedIndex) mxGetScalar(prhs[3]);
bl=(mwSignedIndex) mxGetScalar(prhs[4]);
N=L/a;
dims[0]=M;
dims[1]=N;
dims[2]=W;
ndim=3;
if (W==1)
{
ndim=2;
}
plhs[0] = ltfatCreateNdimArray(ndim,dims,LTFAT_MX_CLASSID,mxCOMPLEX);
const LTFAT_COMPLEX* f_combined = mxGetData(prhs[0]);
const LTFAT_COMPLEX* g_combined = mxGetData(prhs[1]);
LTFAT_COMPLEX* out_combined = mxGetData(plhs[0]);
LTFAT_NAME(dgt_ola)(f_combined,g_combined,L,gl,W,a,M,bl,out_combined);
return;
}
#endif

Get latest updates about Open Source Projects, Conferences and News.

Sign up for the SourceForge newsletter:





No, thanks