97ce2ae61a
git-svn-id: https://swig.svn.sourceforge.net/svnroot/swig/trunk@10074 626c5289-ae23-0410-ae9c-e8d60b6d4f22
36 lines
702 B
OpenEdge ABL
36 lines
702 B
OpenEdge ABL
//
|
|
// FILE : matrix.i
|
|
|
|
%{
|
|
|
|
void set_m(double **M, int i, int j, double val) {
|
|
M[i][j] = val;
|
|
}
|
|
|
|
double get_m(double **M, int i, int j) {
|
|
return M[i][j];
|
|
}
|
|
%}
|
|
|
|
%inline {
|
|
/*** Matrix Operations ***/
|
|
|
|
extern double **new_matrix();
|
|
/* Creates a new matrix and returns a pointer to it */
|
|
|
|
extern void destroy_matrix(double **M);
|
|
/* Destroys the matrix M */
|
|
|
|
extern void print_matrix(double **M);
|
|
/* Prints out the matrix M */
|
|
|
|
extern void set_m(double **M, int i, int j, double val);
|
|
/* Sets M[i][j] = val*/
|
|
|
|
extern double get_m(double **M, int i, int j);
|
|
/* Returns M[i][j] */
|
|
|
|
extern void mat_mult(double **a, double **b, double **c);
|
|
/* Multiplies matrix a by b and places the result in c*/
|
|
|
|
}
|