|
| #define | _HAL_ 0 |
| |
| #define | _T3D_ 1 |
| |
| #define | _MACH_ _HAL_ |
| |
| #define | _F2C_ADD_ 0 |
| |
| #define | _F2C_NOCHANGE 1 |
| |
| #define | _F2C_UPCASE 2 |
| |
| #define | _F2C_F77ISF2C 3 |
| |
| #define | _F2C_CALL_ _F2C_ADD_ |
| |
| #define | Int int |
| |
| #define | F2C_CHAR(a) (a) |
| |
| #define | C2F_CHAR(a) (a) |
| |
| #define | F_VOID_FCT void /* Subroutine */ |
| |
| #define | F_INTG_FCT Int /* INTEGER function */ |
| |
| #define | F_DBLE_FCT double /* DOUBLE PRECISION function */ |
| |
| #define | DLEN_ 9 /* Length of a descriptor */ |
| |
| #define | DT_ 0 /* Descriptor Type */ |
| |
| #define | CTXT_ 1 /* BLACS context */ |
| |
| #define | M_ 2 /* Global Number of Rows */ |
| |
| #define | N_ 3 /* Global Number of Columns */ |
| |
| #define | MB_ 4 /* Row Blocking Size */ |
| |
| #define | NB_ 5 /* Column Blocking Size */ |
| |
| #define | RSRC_ 6 /* Starting Processor Row */ |
| |
| #define | CSRC_ 7 /* Starting Processor Column */ |
| |
| #define | LLD_ 8 /* Local Leading Dimension */ |
| |
| #define | BLOCK_CYCLIC_2D 1 |
| |
| #define | BLOCK_CYCLIC_INB_2D 2 |
| |
| #define | BROADCAST "B" /* Blacs operation definitions */ |
| |
| #define | COMBINE "C" |
| |
| #define | ALL "A" /* Scope definitions */ |
| |
| #define | COLUMN "C" |
| |
| #define | ROW "R" |
| |
| #define | TOPDEF " " /* Default BLACS topology, PB-BLAS routines */ |
| |
| #define | CTOPDEF ' ' |
| |
| #define | TOPGET "!" |
| |
| #define | YES "Y" |
| |
| #define | NO "N" |
| |
| #define | MULLENFAC 2 |
| |
| #define | ONE 1.0 |
| |
| #define | ZERO 0.0 |
| |
| #define | ABS(a) (((a) < 0) ? -(a) : (a)) |
| |
| #define | MIN(a, b) (((a) < (b)) ? (a) : (b)) |
| |
| #define | MAX(a, b) (((a) > (b)) ? (a) : (b)) |
| |
| #define | CEIL(a, b) ( ((a)+(b)-1) / (b) ) |
| |
| #define | Mlowcase(C) ( ((C) > 64 && (C) < 91) ? (C) | 32 : (C) ) |
| |
| #define | Mupcase(C) ( ((C) > 96 && (C) < 123) ? (C) & 0xDF : (C) ) |
| |
| #define | INDXG2L(iglob, nb, iproc, isrcproc, nprocs) |
| |
| #define | INDXL2G(iloc, nb, iproc, isrcproc, nprocs) |
| |
| #define | INDXG2P(iglob, nb, iproc, isrcproc, nprocs) ( ( (isrcproc) + ( (iglob) - 1 ) / (nb) ) % (nprocs) ) |
| |
| #define | MYROC0(nblocks, n, nb, nprocs) |
| |