source: CIVL/examples/amg/csr/csr_add_spec.c@ 1aaefd4

#include <stdlib.h>

// Dense matrix spec...

#pragma TASS input {N==3}
int N;
#pragma TASS input {M==3}
int M;

#pragma TASS input
double A0[N*M];
#pragma TASS input
double B0[N*M];
#pragma TASS output
double OUT[N*M];


struct DM_struct{
  double * data;
  int num_rows;
  int num_cols;
};


typedef struct DM_struct DenseMatrix;

DenseMatrix * dense_create(int n, int m) {
  DenseMatrix* mat;

  mat->num_rows = n;
  mat->num_cols = m;
  mat->data = (double*) malloc(n*m*sizeof(double));
  
  return mat;
}


DenseMatrix * dense_add(DenseMatrix * X, DenseMatrix * Y) {
  int i;
  int n;
  int m;
  DenseMatrix * R;

  n = X->num_rows;
  m = X->num_cols;
  R = dense_create(n,m);
  for (i=0; i<n*m; i++)
    R->data[i] = X->data[i] + Y->data[i];
  return R;
}

void free_dense(DenseMatrix * matrix) {
  free(matrix->data);
  free(matrix);
}

int main() {
  int i;
  DenseMatrix * X;
  DenseMatrix * Y;
  DenseMatrix * Z;
  
  X = dense_create(N,M);
  Y = dense_create(N,M);
  for (i=0; i<N*M; i++)
    X->data[i] = A0[i];
  for (i=0; i<N*M; i++)
    Y->data[i] = B0[i];
  Z = dense_add(X,Y);
  for (i=0; i<N*M; i++)
    OUT[i] = Z->data[i];
  free_dense(X);
  free_dense(Y);
  free_dense(Z);
  return 0;
}