7
#define F77_SET_MA_USE_ARMCI_MEM(name) \
11
if((retval=setenv("MA_USE_ARMCI_MEM", "YES", 1)) != 0) \
12
GA_Error("setenv failed: insufficient space in the environment",1); \
14
F77_SET_MA_USE_ARMCI_MEM(set_ma_use_armci_mem)
15
F77_SET_MA_USE_ARMCI_MEM(set_ma_use_armci_mem_)
16
F77_SET_MA_USE_ARMCI_MEM(set_ma_use_armci_mem__)
17
F77_SET_MA_USE_ARMCI_MEM(SET_MA_USE_ARMCI_MEM)
18
F77_SET_MA_USE_ARMCI_MEM(SET_MA_USE_ARMCI_MEM_)
19
F77_SET_MA_USE_ARMCI_MEM(SET_MA_USE_ARMCI_MEM__)
21
#define F77_UTIL_MDTOB(name) \
22
Integer name(Integer *n) \
25
GA_Error("util_MDTOB_: negative argument",*n); \
26
return (Integer) (*n * sizeof(DoublePrecision)); \
28
F77_UTIL_MDTOB(util_mdtob)
29
F77_UTIL_MDTOB(util_mdtob_)
30
F77_UTIL_MDTOB(util_mdtob__)
31
F77_UTIL_MDTOB(UTIL_MDTOB)
32
F77_UTIL_MDTOB(UTIL_MDTOB_)
33
F77_UTIL_MDTOB(UTIL_MDTOB__)
35
#define F77_UTIL_TIMER(name) \
40
F77_UTIL_TIMER(util_timer)
41
F77_UTIL_TIMER(util_timer_)
42
F77_UTIL_TIMER(util_timer__)
43
F77_UTIL_TIMER(UTIL_TIMER)
44
F77_UTIL_TIMER(UTIL_TIMER_)
45
F77_UTIL_TIMER(UTIL_TIMER__)
47
#define F77_FLUSH(name) \
48
void name(Integer *unit) \