1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
// Copyright (c) 2017-2023, University of Tennessee. All rights reserved.
// SPDX-License-Identifier: BSD-3-Clause
// This program is free software: you can redistribute it and/or modify it under
// the terms of the BSD 3-Clause license. See the accompanying LICENSE file.
#ifndef BLAS_MANGLING_H
#define BLAS_MANGLING_H
#include "blas/defines.h"
// -----------------------------------------------------------------------------
// Fortran name mangling depends on compiler.
// Define FORTRAN_UPPER for uppercase,
// define FORTRAN_LOWER for lowercase (IBM xlf),
// else the default is lowercase with appended underscore
// (GNU gcc, Intel icc, PGI pgfortan, Cray ftn).
#ifndef BLAS_FORTRAN_NAME
#if defined(BLAS_FORTRAN_UPPER)
#define BLAS_FORTRAN_NAME( lower, UPPER ) UPPER
#elif defined(BLAS_FORTRAN_LOWER)
#define BLAS_FORTRAN_NAME( lower, UPPER ) lower
#else
#define BLAS_FORTRAN_NAME( lower, UPPER ) lower##_
#endif
#endif
#endif // #ifndef BLAS_MANGLING_H
|
