Cleaning headers

control/chameleon_zcf90.F90

 !!!
 !
+! @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

control/common.h

@@ -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_ */

control/compute_z.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_ */

control/context.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_ */

control/descriptor.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_ */

control/gkkleader.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_ */

control/global.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_ */

control/primes.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_ */

control/workspace.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_ */

coreblas/include/coreblas.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_ */

coreblas/include/coreblas/cblas.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_ */

coreblas/include/coreblas/coreblas_z.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_ */

coreblas/include/coreblas/coreblas_zc.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_ */

coreblas/include/coreblas/lapacke.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_ */

coreblas/include/coreblas/lapacke_config.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_ */

coreblas/include/coreblas/lapacke_mangling.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_ */