Remove magma from crontrol directory

control/common.h

@@ -69,17 +69,9 @@
 #include <mpi.h>
 #endif
 
-
-/** ****************************************************************************
- * Linear Algebra headers
- **/
-#if defined(CHAMELEON_USE_MAGMA) && !defined(CHAMELEON_SIMULATION)
-#include <magma.h>
-#endif
-
 /** ****************************************************************************
- *  Line to avoid conflict with magma, because, we don't know why
- *  but lapacke provide a wrong interface of lapack in fortran
+ *  Line to avoid conflict with other linear algebra libraries, because, we
+ *  don't know why but lapacke provide a wrong interface of lapack in fortran
  **/
 #ifndef LAPACK_NAME
 #define LAPACK_NAME(a, b) lapackef77_##a

control/config.h.in

@@ -42,7 +42,4 @@
 #cmakedefine HAVE_STARPU_MPI_COMM_RANK
 #cmakedefine HAVE_STARPU_MPI_CACHED_RECEIVE
 
-/* MAGMA functions */
-#cmakedefine HAVE_MAGMA_GETRF_INCPIV_GPU
-
 #endif  /* CONFIG_H_HAS_BEEN_INCLUDED */

control/control.c

@@ -110,9 +110,6 @@ int MORSE_InitPar(int ncpus, int ncudas, int nthreads_per_worker)
       }
     }
 #  endif
-#endif
-#if defined(CHAMELEON_USE_MAGMA) && !defined(CHAMELEON_SIMULATION)
-    magma_init();
 #endif
     RUNTIME_init_scheduler( morse, ncpus, ncudas, nthreads_per_worker );
     return MORSE_SUCCESS;
@@ -142,9 +139,6 @@ int MORSE_Finalize(void)
     RUNTIME_barrier(morse);
 #  endif
     RUNTIME_finalize_scheduler( morse );
-#if defined(CHAMELEON_USE_MAGMA) && !defined(CHAMELEON_SIMULATION)
-    magma_finalize();
-#endif
 
 #if defined(CHAMELEON_USE_MPI)
     if (!morse->mpi_outer_init)

control/workspace.c

@@ -133,10 +133,6 @@ int morse_alloc_ipiv(int M, int N, MORSE_enum func, int type, MORSE_desc_t **des
     NB = MORSE_NB;
     IB = MORSE_IB;
 
-#if defined(CHAMELEON_USE_MAGMA)
-/*     IB *= 2; */
-#endif
-
     NT = (N%NB==0) ? (N/NB) : ((N/NB)+1);
     MT = (M%NB==0) ? (M/NB) : ((M/NB)+1);