#include <ch.h>
#include "mxm.h"

EXPORTCH void matrixmultiply_chdl(void *varg) {
  ChInterp_t interp;
  ChVaList_t ap;

  double **a, **b, **c;
  int m, n, r;

  Ch_VaStart(interp, ap, varg);
  a = Ch_VaArg(interp, ap, double **);
  b = Ch_VaArg(interp, ap, double **);
  c = Ch_VaArg(interp, ap, double **);
  m = Ch_VaArg(interp, ap, int);
  n = Ch_VaArg(interp, ap, int);
  r = Ch_VaArg(interp, ap, int);

  matrixmultiply(a, b, c, m, n, r);

  Ch_VaEnd(interp, ap);
}