File: ML_passrng.cpp

package info (click to toggle)
r-cran-pcapp 1.9-73-2
  • links: PTS, VCS
  • area: main
  • in suites: bullseye, sid
  • size: 800 kB
  • sloc: cpp: 5,961; ansic: 917; sh: 13; makefile: 2
file content (37 lines) | stat: -rw-r--r-- 804 bytes parent folder | download
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
#ifdef MATLAB_MEX_FILE

#include "ML_passrng.h"

#ifdef ES_DEV_ENV
	#include "../SMat/smat.meal.h"
	#include "../SMat/smat_meal_passrng.h"
	#include "../SMat/smat_meal_passrng_hpp.h"
#else
	#include "smat.meal.h"
	#include "smat_meal_passrng.h"
	#include "smat_meal_passrng_hpp.h"
#endif	//	#ifdef ES_DEV_ENV

#include "matrix.h"

	void ML_pass_runif (int nlhs, mxArray* plhs[], int nrhs, mxArray *prhs[])
	{
		mxArray *aData = prhs [0] ;

		int n = mxGetM (aData) * mxGetN (aData) ;
		double *pData = mxGetPr (aData) ;

		pass_runif (pData, n) ;
	}

	void ML_pass_rnorm (int nlhs, mxArray* plhs[], int nrhs, mxArray *prhs[])
	{
		mxArray *aData = prhs [0] ;

		int n = mxGetM (aData) * mxGetN (aData) ;
		double *pData = mxGetPr (aData) ;

		pass_rnorm (pData, n) ;
	}

#endif	//	#ifdef MATLAB_MEX_FILE