/*
 * C/Matlab/mex argument test program.
 *
 * R. Perry, 3 May 1999
 */

#include "mex.h"		/* for Matlab/mex stuff */

void mexFunction( int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
{
  int i;
  const mxArray *mx_a;
  double *a;

  for( i = 0; i < nrhs; ++i) {
    mx_a = prhs[i];
    a = mxGetPr( mx_a);
    mexPrintf( "arg %d, mx_a = %p, Pr = %p\n", i, mx_a, a);
  }

  if( (mx_a = (mxArray *) mexGetArrayPtr( "a", "global")) == NULL)
    mexErrMsgTxt("global variable ``a'' not found");

  a = mxGetPr( mx_a);

  mexPrintf( "Global a: mx_a = %p, a = %p\n", mx_a, a);
}