Commit 867c0f22 authored by Mathieu Faverge's avatar Mathieu Faverge

Keep cleaning headers

parent 6ec36bd9
!!!
!
! @file chameleon_f90.f90
!
! CHAMELEON Fortran 90 interfaces using Fortran 2003 ISO C bindings
! CHAMELEON is a software package provided by Univ. of Tennessee,
! Univ. of California Berkeley and Univ. of Colorado Denver
!
! @copyright 2012-2018 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
! Univ. Bordeaux. All rights reserved.
!
! @version 1.0.0
! @author Numerical Algorithm Group
! @date 2011-09-15
!
! -- Inria
! -- (C) Copyright 2012
!
......@@ -34,7 +47,6 @@
! knowledge of the CeCILL-B license and that you accept its terms.
!
!!!
!
! Copyright © 2011 The Numerical Algorithms Group Ltd. All rights reserved.
!
......@@ -63,17 +75,6 @@
! negligence or otherwise) arising in any way out of the use of this
! software, even if advised of the possibility of such damage.
!
!
!
! CHAMELEON fortran 90 interface
! CHAMELEON is a software package provided by Univ. of Tennessee,
! Univ. of California Berkeley and Univ. of Colorado Denver
!
! @version 1.0.0
! @author Numerical Algorithm Group
! @date 2011-09-15
! @precisions normal z -> c d s
!
module chameleon
use chameleon_s
......
......@@ -240,4 +240,4 @@ chameleon_ztile2lap_cleanup( CHAM_context_t *chamctxt, CHAM_desc_t *descAl, CHAM
RUNTIME_desc_destroy( descAt );
}
#endif /* _compute_z_h_ */
#endif /* _compute_z_h_ */
......@@ -19,8 +19,8 @@
* and its fortran implementation.
*
*/
#ifndef _gkkleaders_h_
#define _gkkleaders_h_
#ifndef _gkkleader_h_
#define _gkkleader_h_
int GKK_doublingtable(int x, int m, int emax, int *dt);
int GKK_modpow(int *dt, int e, int m);
......@@ -39,4 +39,4 @@ void GKK_output_tables(int m, int n, int q, primedec_t *pr_q, int t,
int GKK_getLeaderNbr(int me, int ne, int *nleaders, int **leaders);
#endif /* _gkkleaders_h_ */
#endif /* _gkkleader_h_ */
......@@ -17,8 +17,8 @@
* @precisions normal z -> c d s
*
*/
#ifndef _CUDA_BLAS_H_
#define _CUDA_BLAS_H_
#ifndef _cudablas_h_
#define _cudablas_h_
#include "chameleon/config.h"
......@@ -102,4 +102,4 @@ extern int chameleon_cublas_constants[];
END_C_DECLS
#endif
#endif /* _cudablas_h_ */
......@@ -17,8 +17,8 @@
* @precisions normal z -> c d s
*
*/
#ifndef _CHAMELEON_CUDA_ZBLAS_H_
#define _CHAMELEON_CUDA_ZBLAS_H_
#ifndef _cudablas_z_h_
#define _cudablas_z_h_
/**
* Declarations of cuda kernels - alphabetical order
......@@ -44,4 +44,4 @@ int CUDA_zttmqr( cham_side_t side, cham_trans_t trans, int M1, int N1, int M2, i
int CUDA_zunmlqt(cham_side_t side, cham_trans_t trans, int M, int N, int K, int IB, const cuDoubleComplex *A, int LDA, const cuDoubleComplex *T, int LDT, cuDoubleComplex *C, int LDC, cuDoubleComplex *WORK, int LDWORK, CUBLAS_STREAM_PARAM );
int CUDA_zunmqrt(cham_side_t side, cham_trans_t trans, int M, int N, int K, int IB, const cuDoubleComplex *A, int LDA, const cuDoubleComplex *T, int LDT, cuDoubleComplex *C, int LDC, cuDoubleComplex *WORK, int LDWORK, CUBLAS_STREAM_PARAM );
#endif
#endif /* _cudablas_z_h_ */
!**
!
! @file chameleon_fortran.h
! @brief Chameleon Fortran77 header
!
! @copyright 2009-2014 The University of Tennessee and The University of
! Tennessee Research Foundation. All rights reserved.
! @copyright 2012-2018 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
! Univ. Bordeaux. All rights reserved.
!
! @version 1.0.0
! @author Bilel Hadri
! @author Mathieu Faverge
! @author Cedric Castagnede
! @date 2010-11-15
!
!**
!
! -- Inria
! -- (C) Copyright 2012
!
......@@ -34,15 +50,6 @@
! knowledge of the CeCILL-B license and that you accept its terms.
!
!**
!
! @brief Chameleon Fortran77 header
! @version 1.0.0
! @author Bilel Hadri
! @author Mathieu Faverge
! @author Cedric Castagnede
! @date 2010-11-15
!
!**
!********************************************************************
! CHAMELEON constants - precisions
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment