From 6d852b8d86c6882e4a6aba96d68fef0722e9c8d3 Mon Sep 17 00:00:00 2001
From: Mathieu Faverge <mathieu.faverge@inria.fr>
Date: Wed, 7 Feb 2018 13:52:20 +0100
Subject: [PATCH] Aply the same change to link_to_chameleon.c
---
example/link_chameleon/link_chameleon.c | 19 ++++---------------
1 file changed, 4 insertions(+), 15 deletions(-)
diff --git a/example/link_chameleon/link_chameleon.c b/example/link_chameleon/link_chameleon.c
index 612a3c531..33d4eb578 100644
--- a/example/link_chameleon/link_chameleon.c
+++ b/example/link_chameleon/link_chameleon.c
@@ -132,17 +132,6 @@ static void print_header(char *prog_name, int * iparam) {
return;
}
-/**
- * Macro to allocate a matrix as a 1D array
- */
-#define PASTE_CODE_ALLOCATE_MATRIX(_name_, _type_, _m_, _n_) \
- _type_ *_name_ = NULL; \
- _name_ = (_type_*)malloc( (_m_) * (_n_) * sizeof(_type_) ); \
- if ( ! _name_ ) { \
- fprintf(stderr, "Out of Memory for %s\n", #_name_); \
- return -1; \
- }
-
/*
* test external application link with chameleon
*/
@@ -203,10 +192,10 @@ int main(int argc, char *argv[]) {
* - set of RHS vectors B : size N x NRHS
* - set of solutions vectors X : size N x NRHS
*/
- PASTE_CODE_ALLOCATE_MATRIX( A, double, N, N );
- PASTE_CODE_ALLOCATE_MATRIX( B, double, N, NRHS );
- PASTE_CODE_ALLOCATE_MATRIX( X, double, N, NRHS );
- PASTE_CODE_ALLOCATE_MATRIX( Acpy, double, N, N );
+ double *A = malloc( N * N * sizeof(double) );
+ double *Acpy = malloc( N * N * sizeof(double) );
+ double *B = malloc( N * NRHS * sizeof(double) );
+ double *X = malloc( N * NRHS * sizeof(double) );
/* generate A matrix with random values such that it is spd */
MORSE_dplgsy( (double)N, MorseUpperLower, N, A, N, 51 );
--
GitLab