Просмотр исходного кода

[Minor] Fix fortran mangling on gnu systems

tags/2.6
Vsevolod Stakhov 3 лет назад
Родитель
Сommit
2549b7686d
1 измененных файлов: 4 добавлений и 0 удалений
  1. 4
    0
      contrib/kann/kautodiff.c

+ 4
- 0
contrib/kann/kautodiff.c Просмотреть файл

@@ -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"

Загрузка…
Отмена
Сохранить