11
#define maxnbfn 15 * maxatom
13
#define maxnnbfn maxnbfn * (maxnbfn + 1) / 2
14
#define pi 3.141592653589793
16
#define tol2e 0.000001
18
//#define MAX(a,b) GA_MAX(a,b)
19
//#define MIN(a,b) GA_MIN(a,b)
21
#define MAX(a,b) (((a) >= (b)) ? (a) : (b))
22
#define MIN(a,b) (((a) <= (b)) ? (a) : (b))
24
extern double enrep, q[maxatom], ax[maxatom], ay[maxatom], az[maxatom],
25
x[maxnbfn], y[maxnbfn], z[maxnbfn], expnt[maxnbfn], rnorm[maxnbfn];
26
extern long long int iky[maxnbfn], nocc, nbfn, nnbfn;
27
extern long long int icut1,icut2,icut3,icut4;
28
extern int natom; //long long int --> long
32
extern double eigv[maxnbfn];
33
extern int g_counter, g_dens, g_fock, g_tfock, g_schwarz, g_work, g_ident, g_orbs;
34
extern int g_tmp, g_proc; //temporay global array for storage major transformation