Commit ee4a3e6f authored by Mathieu Faverge's avatar Mathieu Faverge

Cleaning headers

parent ee72ba37
!!!
!
! @file chameleon_zcf90.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
! @author Mathieu Faverge
! @author Emmanuel Agullo
! @author Cedric Castagnede
! @date 2011-09-15
! @precisions mixed zc -> ds
!
! -- Inria
! -- (C) Copyright 2012
!
......@@ -64,19 +81,6 @@
! software, even if advised of the possibility of such damage.
!
!
!
! 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
!
! @version 1.0.0
! @author Numerical Algorithms Group
! @author Mathieu Faverge
! @author Emmanuel Agullo
! @author Cedric Castagnede
! @date 2011-12-15
! @precisions mixed zc -> ds
!
module chameleon_zc
interface
......
This diff is collapsed.
This diff is collapsed.
......@@ -21,8 +21,8 @@
* CHAMELEON facilities of interest to both CHAMELEON core developer
* and also of interest to CHAMELEON community contributor.
*/
#ifndef _CHAMELEON_COMMON_H_
#define _CHAMELEON_COMMON_H_
#ifndef _chameleon_common_h_
#define _chameleon_common_h_
#if defined( _WIN32 ) || defined( _WIN64 )
......@@ -128,4 +128,4 @@ void chameleon_pclag2z(CHAM_context_t *chamctxt);
}
#endif
#endif
#endif /* _chameleon_common_h_ */
......@@ -22,6 +22,9 @@
* @precisions normal z -> c d s
*
*/
#ifndef _compute_z_h_
#define _compute_z_h_
/**
* LAPACK/Tile Descriptor accesses
*/
......@@ -236,3 +239,5 @@ chameleon_ztile2lap_cleanup( CHAM_context_t *chamctxt, CHAM_desc_t *descAl, CHAM
RUNTIME_desc_destroy( descAl );
RUNTIME_desc_destroy( descAt );
}
#endif /* _compute_z_h_ */
......@@ -19,8 +19,8 @@
* @date 2012-09-15
*
*/
#ifndef _CHAMELEON_CONTEXT_H_
#define _CHAMELEON_CONTEXT_H_
#ifndef _chameleon_context_h_
#define _chameleon_context_h_
#include "chameleon/struct.h"
......@@ -33,10 +33,10 @@ extern "C" {
CHAM_context_t* chameleon_context_create ();
CHAM_context_t* chameleon_context_self ();
int chameleon_context_destroy ();
int chameleon_context_destroy ();
#ifdef __cplusplus
}
#endif
#endif
#endif /* _chameleon_context_h_ */
......@@ -18,8 +18,8 @@
* @date 2012-09-15
*
*/
#ifndef _CHAMELEON_DESCRIPTOR_H_
#define _CHAMELEON_DESCRIPTOR_H_
#ifndef _chameleon_descriptor_h_
#define _chameleon_descriptor_h_
#include <assert.h>
#include "chameleon/config.h"
......@@ -246,4 +246,4 @@ inline static int chameleon_desc_islocal( const CHAM_desc_t *A, int m, int n )
}
#endif
#endif
#endif /* _chameleon_descriptor_h_ */
......@@ -19,8 +19,8 @@
* and its fortran implementation.
*
*/
#ifndef GKKLEADERS_H
#define GKKLEADERS_H
#ifndef _gkkleaders_h_
#define _gkkleaders_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 /* _gkkleaders_h_ */
......@@ -22,8 +22,8 @@
* CHAMELEON internals of interest to CHAMELEON core developers, but not necessarily
* of interest to CHAMELEON community contributors.
*/
#ifndef _CHAMELEON_GLOBAL_H_
#define _CHAMELEON_GLOBAL_H_
#ifndef _chameleon_global_h_
#define _chameleon_global_h_
/**
* Numerical operations
......@@ -105,4 +105,4 @@
#define CHAMELEON_FUNC_ZSYSV 75
#define CHAMELEON_FUNC_CSYSV 76
#endif
#endif /* _chameleon_global_h_ */
......@@ -20,8 +20,8 @@
* and its fortran implementation.
*
*/
#ifndef PRIMES_H
#define PRIMES_H
#ifndef _primes_h_
#define _primes_h_
#define IMBALANCE_THRESHOLD 10
#define PWR_MAXSIZE 32
......@@ -55,4 +55,4 @@ int minloc(int n, int *T);
int64_t maxval(int n, int *T);
int64_t sum (int n, int *T);
#endif /* PRIMES_H */
#endif /* _primes_h_ */
......@@ -17,8 +17,8 @@
* @date 2010-11-15
*
*/
#ifndef _CHAMELEON_WORKSPACE_H_
#define _CHAMELEON_WORKSPACE_H_
#ifndef _chameleon_workspace_h_
#define _chameleon_workspace_h_
#ifdef __cplusplus
extern "C" {
......@@ -34,4 +34,4 @@ int chameleon_alloc_ipiv(int M, int N, cham_tasktype_t func, int type, CHAM_desc
}
#endif
#endif
#endif /* _chameleon_workspace_h_ */
......@@ -17,8 +17,8 @@
* @date 2010-11-15
*
*/
#ifndef _CORE_BLAS_H_
#define _CORE_BLAS_H_
#ifndef _coreblas_h_
#define _coreblas_h_
#include <stdio.h>
#include <math.h>
......@@ -85,4 +85,4 @@ int get_coreblas_gemm3m_enabled( void );
END_C_DECLS
#endif
#endif /* _coreblas_h_ */
......@@ -16,8 +16,8 @@
* @date 2012-09-15
*
*/
#ifndef CBLAS_H
#define CBLAS_H
#ifndef _cblas_h_
#define _cblas_h_
#include <stddef.h>
/*
......@@ -594,4 +594,4 @@ void cblas_xerbla(int p, const char *rout, const char *form, ...);
#endif
#endif
#endif /* _cblas_h_ */
......@@ -24,8 +24,8 @@
* @precisions normal z -> c d s
*
*/
#ifndef _CHAMELEON_CORE_ZBLAS_H_
#define _CHAMELEON_CORE_ZBLAS_H_
#ifndef _coreblas_z_h_
#define _coreblas_z_h_
/**
* Declarations of serial kernels - alphabetical order
......@@ -399,4 +399,5 @@ int CORE_zunmqr(cham_side_t side, cham_trans_t trans,
const CHAMELEON_Complex64_t *T, int LDT,
CHAMELEON_Complex64_t *C, int LDC,
CHAMELEON_Complex64_t *WORK, int LDWORK);
#endif
#endif /* _coreblas_z_h_ */
......@@ -23,8 +23,8 @@
* @precisions mixed zc -> ds
*
*/
#ifndef _CHAMELEON_CORE_ZCBLAS_H_
#define _CHAMELEON_CORE_ZCBLAS_H_
#ifndef _coreblas_zc_h_
#define _coreblas_zc_h_
/**
* Declarations of serial kernels - alphabetical order
......@@ -36,4 +36,4 @@ void CORE_zlag2c(int m, int n,
const CHAMELEON_Complex64_t *A, int lda,
CHAMELEON_Complex32_t *B, int ldb, int *info);
#endif
#endif /* _coreblas_zc_h_ */
......@@ -47,8 +47,8 @@
* Generated November, 2011
*/
#ifndef _LAPACKE_H_
#define _LAPACKE_H_
#ifndef _lapacke_h_
#define _lapacke_h_
/*
* Turn on HAVE_LAPACK_CONFIG_H to redefine C-LAPACK datatypes
......@@ -16458,4 +16458,4 @@ void LAPACK_ilaver( const lapack_int* vers_major, const lapack_int* vers_minor,
}
#endif /* __cplusplus */
#endif /* _LAPACKE_H_ */
#endif /* _lapacke_h_ */
......@@ -47,8 +47,8 @@
* Generated May, 2011
*/
#ifndef _LAPACKE_CONFIG_H_
#define _LAPACKE_CONFIG_H_
#ifndef _lapacke_config_h_
#define _lapacke_config_h_
#ifdef __cplusplus
#if defined(LAPACK_COMPLEX_CPP)
......@@ -132,4 +132,4 @@ lapack_complex_double lapack_make_complex_double( double re, double im );
}
#endif /* __cplusplus */
#endif /* _LAPACKE_CONFIG_H_ */
#endif /* _lapacke_config_h_ */
......@@ -14,8 +14,8 @@
* @version 1.0.0
*
*/
#ifndef LAPACK_HEADER_INCLUDED
#define LAPACK_HEADER_INCLUDED
#ifndef _lapacke_mangling_h_
#define _lapacke_mangling_h_
/* Mangling for Fortran global symbols without underscores. */
#define LAPACK_GLOBAL(name,NAME) name##_
......@@ -29,4 +29,4 @@
/* Mangling for Fortran module symbols with underscores. */
#define LAPACK_MODULE_(mod_name,name, mod_NAME,NAME) __##mod_name##_MOD_##name
#endif
#endif /* _lapacke_mangling_h_ */
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