2
#define INTGR4 integer*8
4
#define INTGR4 integer*4
7
INTGR4 iam, nnodes,nprow,npcol, myrow, mycol, iSLctxt,
8
A maxproc, iSLctxt2,nprow2,npcol2, myrow2, mycol2
9
logical init,init2, init3, init4
10
common /SLface/ init, init2, init3, init4,
11
* iam, nnodes, nprow,npcol, myrow, mycol,
13
* maxproc,nprow2,npcol2, myrow2, mycol2
15
#ifdef LINUX_DBL_UNDERSCORE
16
#define blacs_pinfo blacs_pinfo_
17
#define blacs_get blacs_get_
18
#define blacs_gridinit blacs_gridinit_
19
#define blacs_gridinfo blacs_gridinfo_