/*
 * C/Matlab/mex test program.
 *
 * R. Perry, 19 April 1999
 */

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

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

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

  a = mxGetPr( mx_a);

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

  b = mxGetPr( mx_b);

  mexPrintf( "mx_a = %p, a = %p\n", mx_a, a);
  mexPrintf( "mx_b = %p, b = %p\n", mx_b, b);

  if( a)
    ++*a;

  if( mexCallMATLAB( 0, NULL, 0, NULL, "winky"))
    mexErrMsgTxt( "mexCallMATLAB winky failed");
}