#include <stdio.h>
#include <stdlib.h>
Go to the source code of this file.
|
| #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) |
| #define | C2F_CHAR(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) |
| #define | MIN(a, b) |
| #define | MAX(a, b) |
| #define | CEIL(a, b) |
| #define | Mlowcase(C) |
| #define | Mupcase(C) |
| #define | INDXG2L(iglob, nb, iproc, isrcproc, nprocs) |
| #define | INDXL2G(iloc, nb, iproc, isrcproc, nprocs) |
| #define | INDXG2P(iglob, nb, iproc, isrcproc, nprocs) |
| #define | MYROC0(nblocks, n, nb, nprocs) |
◆ _F2C_ADD_
◆ _F2C_CALL_
◆ _F2C_F77ISF2C
◆ _F2C_NOCHANGE
◆ _F2C_UPCASE
◆ _HAL_
◆ _MACH_
◆ _T3D_
◆ ABS
◆ ALL
| #define ALL "A" /* Scope definitions */ |
◆ BLOCK_CYCLIC_2D
| #define BLOCK_CYCLIC_2D 1 |
◆ BLOCK_CYCLIC_INB_2D
| #define BLOCK_CYCLIC_INB_2D 2 |
◆ BROADCAST
| #define BROADCAST "B" /* Blacs operation definitions */ |
◆ C2F_CHAR
◆ CEIL
◆ COLUMN
◆ COMBINE
◆ CSRC_
| #define CSRC_ 7 /* Starting Processor Column */ |
◆ CTOPDEF
◆ CTXT_
| #define CTXT_ 1 /* BLACS context */ |
◆ DLEN_
| #define DLEN_ 9 /* Length of a descriptor */ |
◆ DT_
| #define DT_ 0 /* Descriptor Type */ |
◆ F2C_CHAR
◆ F_DBLE_FCT
◆ F_INTG_FCT
◆ F_VOID_FCT
| #define F_VOID_FCT void /* Subroutine */ |
◆ INDXG2L
| #define INDXG2L |
( |
| iglob, |
|
|
| nb, |
|
|
| iproc, |
|
|
| isrcproc, |
|
|
| nprocs ) |
Value: ( (nb) * ( ( (iglob)-1) / ( (nb) * (nprocs) ) ) +\
( ( (iglob) - 1 ) % (nb) ) + 1 )
Definition at line 183 of file pblas.h.
183#define INDXG2L( iglob, nb, iproc, isrcproc, nprocs )\
184 ( (nb) * ( ( (iglob)-1) / ( (nb) * (nprocs) ) ) +\
185 ( ( (iglob) - 1 ) % (nb) ) + 1 )
◆ INDXG2P
| #define INDXG2P |
( |
| iglob, |
|
|
| nb, |
|
|
| iproc, |
|
|
| isrcproc, |
|
|
| nprocs ) |
Value: ( ( (isrcproc) + ( (iglob) - 1 ) / (nb) ) % (nprocs) )
Definition at line 192 of file pblas.h.
192#define INDXG2P( iglob, nb, iproc, isrcproc, nprocs ) \
193 ( ( (isrcproc) + ( (iglob) - 1 ) / (nb) ) % (nprocs) )
◆ INDXL2G
| #define INDXL2G |
( |
| iloc, |
|
|
| nb, |
|
|
| iproc, |
|
|
| isrcproc, |
|
|
| nprocs ) |
Value: ( (nprocs) * (nb) * ( ( (iloc) - 1 ) / (nb) ) +\
( ( (iloc) - 1 ) % (nb) ) +\
( ( (nprocs) + (iproc) - (isrcproc) ) % (nprocs) ) * (nb) + 1 )
Definition at line 187 of file pblas.h.
187#define INDXL2G( iloc, nb, iproc, isrcproc, nprocs )\
188 ( (nprocs) * (nb) * ( ( (iloc) - 1 ) / (nb) ) +\
189 ( ( (iloc) - 1 ) % (nb) ) +\
190 ( ( (nprocs) + (iproc) - (isrcproc) ) % (nprocs) ) * (nb) + 1 )
◆ Int
◆ LLD_
| #define LLD_ 8 /* Local Leading Dimension */ |
◆ M_
| #define M_ 2 /* Global Number of Rows */ |
◆ MAX
Value:(((a) > (b)) ? (a) : (b))
Definition at line 175 of file pblas.h.
◆ MB_
| #define MB_ 4 /* Row Blocking Size */ |
◆ MIN
Value:(((a) < (b)) ? (a) : (b))
Definition at line 173 of file pblas.h.
◆ Mlowcase
Value:( ((C) > 64 && (C) < 91) ? (C) | 32 : (C) )
Definition at line 179 of file pblas.h.
◆ MULLENFAC
◆ Mupcase
Value:( ((C) > 96 && (C) < 123) ? (C) & 0xDF : (C) )
Definition at line 181 of file pblas.h.
◆ MYROC0
| #define MYROC0 |
( |
| nblocks, |
|
|
| n, |
|
|
| nb, |
|
|
| nprocs ) |
Value: ( ( (nblocks) % (nprocs) ) ? ( ( (nblocks) / (nprocs) ) * (nb) + (nb) )\
: ( ( (nblocks) / (nprocs) )* (nb) + ( (
n) % (nb) ) ) )
Definition at line 195 of file pblas.h.
195#define MYROC0( nblocks, n, nb, nprocs )\
196 ( ( (nblocks) % (nprocs) ) ? ( ( (nblocks) / (nprocs) ) * (nb) + (nb) )\
197 : ( ( (nblocks) / (nprocs) )* (nb) + ( (n) % (nb) ) ) )
◆ N_
| #define N_ 3 /* Global Number of Columns */ |
◆ NB_
| #define NB_ 5 /* Column Blocking Size */ |
◆ NO
◆ ONE
◆ ROW
◆ RSRC_
| #define RSRC_ 6 /* Starting Processor Row */ |
◆ TOPDEF
| #define TOPDEF " " /* Default BLACS topology, PB-BLAS routines */ |
◆ TOPGET
◆ YES
◆ ZERO
◆ F_CHAR