From 02a91911f0fe4aa385c0f4644ee65ed31ac0ffb0 Mon Sep 17 00:00:00 2001
From: Florent Pruvost <florent.pruvost@inria.fr>
Date: Tue, 1 Dec 2015 13:09:07 +0000
Subject: [PATCH] remove bulge.h which is apparently a magma file
---
control/CMakeLists.txt | 1 -
control/bulge.h | 105 ------------------------------------
control/common.h | 1 -
coreblas/include/coreblas.h | 1 -
4 files changed, 108 deletions(-)
delete mode 100644 control/bulge.h
diff --git a/control/CMakeLists.txt b/control/CMakeLists.txt
index 6ede4102f..05a510888 100644
--- a/control/CMakeLists.txt
+++ b/control/CMakeLists.txt
@@ -42,7 +42,6 @@ precisions_rules_py(CHAMELEON_HDRS_GENERATED "${ZHDR}"
set(CHAMELEON_HDRS
async.h
auxiliary.h
- bulge.h
common.h
context.h
descriptor.h
diff --git a/control/bulge.h b/control/bulge.h
deleted file mode 100644
index e557670e5..000000000
--- a/control/bulge.h
+++ /dev/null
@@ -1,105 +0,0 @@
-/**
- *
- * @copyright (c) 2009-2014 The University of Tennessee and The University
- * of Tennessee Research Foundation.
- * All rights reserved.
- * @copyright (c) 2012-2014 Inria. All rights reserved.
- * @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
- *
- **/
-
-/**
- *
- * @file bulge.h
- *
- * MORSE auxiliary routines
- * MORSE is a software package provided by Univ. of Tennessee,
- * Univ. of California Berkeley and Univ. of Colorado Denver
- *
- * @version 0.9.0
- * @author Azzam Haidar
- * @author Cedric Castagnede
- * @date 2010-11-15
- *
- **/
-
-/***************************************************************************//**
- * bulge chasing global definition for all L/U HE/HB/GE matrices.
- **/
-#ifndef _MORSE_BULGE_H_
-#define _MORSE_BULGE_H_
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/***************************************************************************//**
- * internal common routines to all bulgechasing function
- **/
-inline static void findVTpos(int N, int NB, int Vblksiz, int sweep, int st, int *Vpos, int *TAUpos, int *Tpos, int *myblkid);
-inline static void findVTsiz(int N, int NB, int Vblksiz, int *blkcnt, int *LDV);
-inline static int morse_ceildiv(int a, int b);
-
-////////////////////////////////////////////////////////////////////////////////////////////////////
-inline static int morse_ceildiv(int a, int b)
-{
- double r = (double)a/(double)b;
- r = (r-(int)r)==0? (int)r:(int)r+1;
- return (int) r;
-}
-////////////////////////////////////////////////////////////////////////////////////////////////////
-
-////////////////////////////////////////////////////////////////////////////////////////////////////
-inline static void findVTpos(int N, int NB, int Vblksiz, int sweep, int st, int *Vpos, int *TAUpos, int *Tpos, int *myblkid)
-{
- int prevcolblknb, prevblkcnt, prevcolblkid;
- int curcolblknb, nbprevcolblk, mastersweep;
- int blkid, locj, LDV;
-
- prevcolblknb = 0;
- prevblkcnt = 0;
- curcolblknb = 0;
-
- nbprevcolblk = sweep/Vblksiz;
- for (prevcolblkid = 0; prevcolblkid < nbprevcolblk; prevcolblkid++)
- {
- mastersweep = prevcolblkid * Vblksiz;
- prevcolblknb = morse_ceildiv((N-(mastersweep+2)),NB);
- prevblkcnt = prevblkcnt + prevcolblknb;
- }
- curcolblknb = morse_ceildiv((st-sweep),NB);
- blkid = prevblkcnt + curcolblknb -1;
- locj = sweep%Vblksiz;
- LDV = NB + Vblksiz -1;
-
- *myblkid= blkid;
- *Vpos = blkid*Vblksiz*LDV + locj*LDV + locj;
- *TAUpos = blkid*Vblksiz + locj;
- *Tpos = blkid*Vblksiz*Vblksiz + locj*Vblksiz + locj;
-}
-////////////////////////////////////////////////////////////////////////////////////////////////////
-
-////////////////////////////////////////////////////////////////////////////////////////////////////
-inline static void findVTsiz(int N, int NB, int Vblksiz, int *blkcnt, int *LDV)
-{
- int colblk, nbcolblk;
- int curcolblknb, mastersweep;
-
- *blkcnt = 0;
- nbcolblk = morse_ceildiv((N-1),Vblksiz);
- for (colblk = 0; colblk<nbcolblk; colblk++)
- {
- mastersweep = colblk * Vblksiz;
- curcolblknb = morse_ceildiv((N-(mastersweep+2)),NB);
- *blkcnt = *blkcnt + curcolblknb;
- }
- *blkcnt = *blkcnt +1;
- *LDV= NB+Vblksiz-1;
-}
-////////////////////////////////////////////////////////////////////////////////////////////////////
-
-#ifdef __cplusplus
-}
-#endif
-
-#endif
diff --git a/control/common.h b/control/common.h
index 8b88dbd2f..97420296e 100644
--- a/control/common.h
+++ b/control/common.h
@@ -98,7 +98,6 @@
#include "control/descriptor.h"
#include "control/tile.h"
#include "control/async.h"
-#include "control/bulge.h"
/** ****************************************************************************
* Determine FORTRAN names
diff --git a/coreblas/include/coreblas.h b/coreblas/include/coreblas.h
index 87f02ce3e..a241074a7 100644
--- a/coreblas/include/coreblas.h
+++ b/coreblas/include/coreblas.h
@@ -47,7 +47,6 @@
//#include "control/auxiliary.h"
//#include "control/descriptor.h"
//#include "control/tile.h"
-//#include "control/bulge.h"
/** ****************************************************************************
* CORE BLAS headers
--
GitLab