Browse Source

[Minor] Fix fortran mangling on gnu systems

tags/2.6
Vsevolod Stakhov 3 years ago
parent
commit
2549b7686d
1 changed files with 4 additions and 0 deletions
  1. 4
    0
      contrib/kann/kautodiff.c

+ 4
- 0
contrib/kann/kautodiff.c View File

@@ -900,6 +900,10 @@ void kad_vec_mul_sum(int n, float *a, const float *b, const float *c)
void kad_saxpy(int n, float a, const float *x, float *y) { kad_saxpy_inlined(n, a, x, y); }

#ifdef HAVE_CBLAS
#ifndef __APPLE__
/* As gfortran mangles names */
#define ssyev ssyev_
#endif
extern void ssyev(const char* jobz, const char* uplo, int* n, float* a, int* lda, float* w, float* work, int* lwork, int* info);
#ifdef HAVE_CBLAS_H
#include "cblas.h"

Loading…
Cancel
Save