11
# define gai_diag_ F77_FUNC_(gai_diag,GAI_DIAG)
12
# define gai_diag_std_ F77_FUNC_(gai_diag_std,GAI_DIAG_STD)
13
# define gai_diag_reuse_ F77_FUNC_(gai_diag_reuse,GAI_DIAG_REUSE)
14
extern gai_diag_(Integer*,Integer*,Integer*,DoublePrecision*);
15
extern gai_diag_std_(Integer*,Integer*,DoublePrecision*);
16
extern gai_diag_reuse_(Integer*,Integer*,Integer*,Integer*,DoublePrecision*);
22
#if HAVE_SYS_WEAK_ALIAS_PRAGMA
23
# pragma weak wnga_diag = pnga_diag
25
void pnga_diag(Integer g_a, Integer g_s, Integer g_v, DoublePrecision *eval) {
28
gai_diag_(&g_a, &g_s, &g_v, eval);
30
pnga_error("ga_diag:peigs interfaced, need to configure --enable-f77",0L);
33
pnga_error("ga_diag:peigs not interfaced",0L);
37
#if HAVE_SYS_WEAK_ALIAS_PRAGMA
38
# pragma weak wnga_diag_std = pnga_diag_std
40
void pnga_diag_std(Integer g_a, Integer g_v, DoublePrecision *eval) {
43
gai_diag_std_(&g_a, &g_v, eval);
45
pnga_error("ga_diag:peigs interfaced, need to configure --enable-f77",0L);
48
pnga_error("ga_diag:peigs not interfaced",0L);
52
#if HAVE_SYS_WEAK_ALIAS_PRAGMA
53
# pragma weak wnga_diag_reuse = pnga_diag_reuse
55
void pnga_diag_reuse(Integer reuse, Integer g_a, Integer g_s,
56
Integer g_v, DoublePrecision *eval) {
59
gai_diag_reuse_(&reuse, &g_a, &g_s, &g_v, eval);
61
pnga_error("ga_diag:peigs interfaced, need to configure --enable-f77",0L);
64
pnga_error("ga_diag:peigs not interfaced",0L);