/* Copyright INRIA */
#include "../../routines/stack-c.h"

/****************************************
 *     an example with  GetMatrixptr 
 *     -->param=[1,2,3];         
 *     -->link('ext8c.o','ext8c','C');     
 *     -->y=call('ext8c','out',size(param),1,'d');
 ****************************************/

int ext8c(y)
     double *y;
{
  static int m, n, lp,i;
  GetMatrixptr("param", &m, &n, &lp);
  /* param can be changed */
  *stk(lp)=18.0;
  /* param can be read */
  for (i=0; i < m*n ; i++ ) y[i] = (*stk(lp+i));
  return 0;
}