Diff of /mex/comp_gga.c [dbf0ef] .. [6db11f] Maximize Restore

  Switch to unified view

a/mex/comp_gga.c b/mex/comp_gga.c
...
...
5
#define TYPEDEPARGS 0
5
#define TYPEDEPARGS 0
6
#define SINGLEARGS
6
#define SINGLEARGS
7
#define COMPLEXINDEPENDENT
7
#define COMPLEXINDEPENDENT
8
//#define NOCOMPLEXFMTCHANGE
8
//#define NOCOMPLEXFMTCHANGE
9
9
10
11
#define GGA_WITH_PLAN
10
#endif // _LTFAT_MEX_FILE - INCLUDED ONCE
12
#endif // _LTFAT_MEX_FILE - INCLUDED ONCE
11
13
12
#define MEX_FILE __BASE_FILE__
14
#define MEX_FILE __BASE_FILE__
13
#include "ltfat_mex_template_helper.h"
15
#include "ltfat_mex_template_helper.h"
14
16
...
...
30
   const double* indVecPtr = (const double*) mxGetPr(prhs[1]);
32
   const double* indVecPtr = (const double*) mxGetPr(prhs[1]);
31
33
32
   plhs[0] = ltfatCreateMatrix(M,W,LTFAT_MX_CLASSID,mxCOMPLEX);
34
   plhs[0] = ltfatCreateMatrix(M,W,LTFAT_MX_CLASSID,mxCOMPLEX);
33
   LTFAT_REAL _Complex* cPtr = (LTFAT_REAL _Complex*) mxGetPr(plhs[0]);
35
   LTFAT_REAL _Complex* cPtr = (LTFAT_REAL _Complex*) mxGetPr(plhs[0]);
34
36
37
   #ifndef GGA_WITH_PLAN
35
   LTFAT_NAME(gga)(fPtr,indVecPtr,L,W,M,cPtr);
38
   LTFAT_NAME(gga)(fPtr,indVecPtr,L,W,M,cPtr);
39
   #else
40
   LTFAT_NAME(gga_plan) p = LTFAT_NAME(create_gga_plan)(indVecPtr,M,L);
41
   LTFAT_NAME(gga_with_plan)(p,fPtr,cPtr,W);
42
   LTFAT_NAME(destroy_gga_plan)(p);
43
   #endif
36
44
37
45
38
   return;
46
   return;
39
}
47
}
40
#endif
48
#endif