|
#define | BLOCK_CYCLIC_2D 1 |
|
#define | DTYPE1_ 0 /* Descriptor Type */ |
|
#define | CTXT1_ 1 /* BLACS context */ |
|
#define | M1_ 2 /* Global Number of Rows */ |
|
#define | N1_ 3 /* Global Number of Columns */ |
|
#define | MB1_ 4 /* Row Blocking Size */ |
|
#define | NB1_ 5 /* Column Blocking Size */ |
|
#define | RSRC1_ 6 /* Starting Processor Row */ |
|
#define | CSRC1_ 7 /* Starting Processor Column */ |
|
#define | LLD1_ 8 /* Local Leading Dimension */ |
|
#define | DLEN1_ 9 /* Descriptor Length */ |
|
#define | BLOCK_CYCLIC_2D_INB 2 |
|
#define | DTYPE_ 0 /* Descriptor Type */ |
|
#define | CTXT_ 1 /* BLACS context */ |
|
#define | M_ 2 /* Global Number of Rows */ |
|
#define | N_ 3 /* Global Number of Columns */ |
|
#define | IMB_ 4 /* Initial Row Blocking Size */ |
|
#define | INB_ 5 /* Initial Column Blocking Size */ |
|
#define | MB_ 6 /* Row Blocking Size */ |
|
#define | NB_ 7 /* Column Blocking Size */ |
|
#define | RSRC_ 8 /* Starting Process Row */ |
|
#define | CSRC_ 9 /* Starting Process Column */ |
|
#define | LLD_ 10 /* Local Leading Dimension */ |
|
#define | DLEN_ 11 /* Descriptor Length */ |
|
#define | CPACKING 'P' |
|
#define | CUNPACKING 'U' |
|
#define | PACKING "P" |
|
#define | UNPACKING "U" |
|
#define | CGENERAL 'G' |
|
#define | CHERM 'H' |
|
#define | GENERAL "G" |
|
#define | SYMM "S" |
|
#define | HERM "H" |
|
#define | ONE 1.0 |
|
#define | TWO 2.0 |
|
#define | ZERO 0.0 |
|
#define | DESCMULT 100 |
|
#define | BIGNUM 10000 |
|
#define | ABS(a_) ( ( (a_) < 0 ) ? -(a_) : (a_) ) |
|
#define | MIN(a_, b_) ( ( (a_) < (b_) ) ? (a_) : (b_) ) |
|
#define | MAX(a_, b_) ( ( (a_) > (b_) ) ? (a_) : (b_) ) |
|
#define | FLOOR(a, b) (((a)>0) ? (((a)/(b))) : (-(((-(a))+(b)-1)/(b)))) |
|
#define | CEIL(a, b) ( ( (a)+(b)-1 ) / (b) ) |
|
#define | ICEIL(a, b) (((a)>0) ? ((((a)+(b)-1)/(b))) : (-((-(a))/(b)))) |
|
#define | Mupcase(C) (((C)>96 && (C)<123) ? (C) & 0xDF : (C)) |
|
#define | Mlowcase(C) (((C)>64 && (C)< 91) ? (C) | 32 : (C)) |
|
#define | MModInc(I, d) if(++(I) == (d)) (I) = 0 |
|
#define | MModDec(I, d) if(--(I) == -1) (I) = (d)-1 |
|
#define | MPosMod(I, d) ( (I) - ((I)/(d))*(d) ) |
|
#define | MModAdd(I1, I2, d) ( ( (I1) + (I2) < (d) ) ? (I1) + (I2) : (I1) + (I2) - (d) ) |
|
#define | MModAdd1(I, d) ( ((I) != (d)-1) ? (I) + 1 : 0 ) |
|
#define | MModSub(I1, I2, d) ( ( (I1) < (I2) ) ? (d) + (I1) - (I2) : (I1) - (I2) ) |
|
#define | MModSub1(I, d) ( ((I)!=0) ? (I)-1 : (d)-1 ) |
|
#define | DNROC(n_, nb_, p_) ((double)(((((n_)+(nb_)-1)/(nb_))+(p_)-1)/(p_))*(double)((nb_))) |
|
#define | Mptr(a_, i_, j_, lda_, siz_) |
|
#define | Mfirstnb(inbt_, n_, i_, inb_, nb_) |
|
#define | Mlastnb(inbt_, n_, i_, inb_, nb_) |
|
#define | Mspan(n_, i_, inb_, nb_, srcproc_, nprocs_) |
|
#define | Mindxl2g(ig_, il_, inb_, nb_, proc_, srcproc_, nprocs_) |
|
#define | Mindxg2p(ig_, inb_, nb_, proc_, srcproc_, nprocs_) |
|
#define | Mnumroc(np_, n_, i_, inb_, nb_, proc_, srcproc_, nprocs_) |
|
#define | Mnpreroc(np_, n_, i_, inb_, nb_, proc_, srcproc_, nprocs_) |
|
#define | Mnnxtroc(np_, n_, i_, inb_, nb_, proc_, srcproc_, nprocs_) |
|
#define | Minfog2l(i_, j_, desc_, nr_, nc_, r_, c_, ii_, jj_, pr_, pc_) |
|
#define | MDescSet(desc, m, n, imb, inb, mb, nb, rsrc, csrc, ictxt, lld) |
|
#define | MDescCopy(DescIn, DescOut) |
|
#define | MDescTrans(DescIn, DescOut) |
|
#define | MIndxTrans(I, J, i, j) |
|
#define | immadd_ IMMADD |
|
#define | smmadd_ SMMADD |
|
#define | dmmadd_ DMMADD |
|
#define | cmmadd_ CMMADD |
|
#define | zmmadd_ ZMMADD |
|
#define | immtadd_ IMMTADD |
|
#define | smmtadd_ SMMTADD |
|
#define | dmmtadd_ DMMTADD |
|
#define | cmmtadd_ CMMTADD |
|
#define | zmmtadd_ ZMMTADD |
|
#define | smmcadd_ SMMCADD |
|
#define | dmmcadd_ DMMCADD |
|
#define | cmmcadd_ CMMCADD |
|
#define | zmmcadd_ ZMMCADD |
|
#define | smmtcadd_ SMMTCADD |
|
#define | dmmtcadd_ DMMTCADD |
|
#define | cmmtcadd_ CMMTCADD |
|
#define | zmmtcadd_ ZMMTCADD |
|
#define | immdda_ IMMDDA |
|
#define | smmdda_ SMMDDA |
|
#define | dmmdda_ DMMDDA |
|
#define | cmmdda_ CMMDDA |
|
#define | zmmdda_ ZMMDDA |
|
#define | smmddac_ SMMDDAC |
|
#define | dmmddac_ DMMDDAC |
|
#define | cmmddac_ CMMDDAC |
|
#define | zmmddac_ ZMMDDAC |
|
#define | immddat_ IMMDDAT |
|
#define | smmddat_ SMMDDAT |
|
#define | dmmddat_ DMMDDAT |
|
#define | cmmddat_ CMMDDAT |
|
#define | zmmddat_ ZMMDDAT |
|
#define | smmddact_ SMMDDACT |
|
#define | dmmddact_ DMMDDACT |
|
#define | cmmddact_ CMMDDACT |
|
#define | zmmddact_ ZMMDDACT |
|
#define | sasqrtb_ SASQRTB |
|
#define | dasqrtb_ DASQRTB |
|
#define | sset_ SSET |
|
#define | dset_ DSET |
|
#define | cset_ CSET |
|
#define | zset_ ZSET |
|
#define | svasum_ SVASUM |
|
#define | dvasum_ DVASUM |
|
#define | scvasum_ SCVASUM |
|
#define | dzvasum_ DZVASUM |
|
#define | sascal_ SASCAL |
|
#define | dascal_ DASCAL |
|
#define | scshft_ SCSHFT |
|
#define | dcshft_ DCSHFT |
|
#define | ccshft_ CCSHFT |
|
#define | zcshft_ ZCSHFT |
|
#define | srshft_ SRSHFT |
|
#define | drshft_ DRSHFT |
|
#define | crshft_ CRSHFT |
|
#define | zrshft_ ZRSHFT |
|
#define | svvdot_ SVVDOT |
|
#define | dvvdot_ DVVDOT |
|
#define | cvvdotc_ CVVDOTC |
|
#define | cvvdotu_ CVVDOTU |
|
#define | zvvdotc_ ZVVDOTC |
|
#define | zvvdotu_ ZVVDOTU |
|
#define | stzpad_ STZPAD |
|
#define | dtzpad_ DTZPAD |
|
#define | ctzpad_ CTZPAD |
|
#define | ztzpad_ ZTZPAD |
|
#define | stzpadcpy_ STZPADCPY |
|
#define | dtzpadcpy_ DTZPADCPY |
|
#define | ctzpadcpy_ CTZPADCPY |
|
#define | ztzpadcpy_ ZTZPADCPY |
|
#define | stzscal_ STZSCAL |
|
#define | dtzscal_ DTZSCAL |
|
#define | ctzscal_ CTZSCAL |
|
#define | ztzscal_ ZTZSCAL |
|
#define | chescal_ CHESCAL |
|
#define | zhescal_ ZHESCAL |
|
#define | ctzcnjg_ CTZCNJG |
|
#define | ztzcnjg_ ZTZCNJG |
|
#define | sagemv_ SAGEMV |
|
#define | dagemv_ DAGEMV |
|
#define | cagemv_ CAGEMV |
|
#define | zagemv_ ZAGEMV |
|
#define | sasymv_ SASYMV |
|
#define | dasymv_ DASYMV |
|
#define | casymv_ CASYMV |
|
#define | zasymv_ ZASYMV |
|
#define | cahemv_ CAHEMV |
|
#define | zahemv_ ZAHEMV |
|
#define | satrmv_ SATRMV |
|
#define | datrmv_ DATRMV |
|
#define | catrmv_ CATRMV |
|
#define | zatrmv_ ZATRMV |
|
#define | csymv_ CSYMV |
|
#define | zsymv_ ZSYMV |
|
#define | csyr_ CSYR |
|
#define | zsyr_ ZSYR |
|
#define | csyr2_ CSYR2 |
|
#define | zsyr2_ ZSYR2 |
|
#define | immadd_ immadd |
|
#define | smmadd_ smmadd |
|
#define | dmmadd_ dmmadd |
|
#define | cmmadd_ cmmadd |
|
#define | zmmadd_ zmmadd |
|
#define | immtadd_ immtadd |
|
#define | smmtadd_ smmtadd |
|
#define | dmmtadd_ dmmtadd |
|
#define | cmmtadd_ cmmtadd |
|
#define | zmmtadd_ zmmtadd |
|
#define | smmcadd_ smmcadd |
|
#define | dmmcadd_ dmmcadd |
|
#define | cmmcadd_ cmmcadd |
|
#define | zmmcadd_ zmmcadd |
|
#define | smmtcadd_ smmtcadd |
|
#define | dmmtcadd_ dmmtcadd |
|
#define | cmmtcadd_ cmmtcadd |
|
#define | zmmtcadd_ zmmtcadd |
|
#define | immdda_ immdda |
|
#define | smmdda_ smmdda |
|
#define | dmmdda_ dmmdda |
|
#define | cmmdda_ cmmdda |
|
#define | zmmdda_ zmmdda |
|
#define | smmddac_ smmddac |
|
#define | dmmddac_ dmmddac |
|
#define | cmmddac_ cmmddac |
|
#define | zmmddac_ zmmddac |
|
#define | immddat_ immddat |
|
#define | smmddat_ smmddat |
|
#define | dmmddat_ dmmddat |
|
#define | cmmddat_ cmmddat |
|
#define | zmmddat_ zmmddat |
|
#define | smmddact_ smmddact |
|
#define | dmmddact_ dmmddact |
|
#define | cmmddact_ cmmddact |
|
#define | zmmddact_ zmmddact |
|
#define | sasqrtb_ sasqrtb |
|
#define | dasqrtb_ dasqrtb |
|
#define | sset_ sset |
|
#define | dset_ dset |
|
#define | cset_ cset |
|
#define | zset_ zset |
|
#define | svasum_ svasum |
|
#define | dvasum_ dvasum |
|
#define | scvasum_ scvasum |
|
#define | dzvasum_ dzvasum |
|
#define | sascal_ sascal |
|
#define | dascal_ dascal |
|
#define | scshft_ scshft |
|
#define | dcshft_ dcshft |
|
#define | ccshft_ ccshft |
|
#define | zcshft_ zcshft |
|
#define | srshft_ srshft |
|
#define | drshft_ drshft |
|
#define | crshft_ crshft |
|
#define | zrshft_ zrshft |
|
#define | svvdot_ svvdot |
|
#define | dvvdot_ dvvdot |
|
#define | cvvdotc_ cvvdotc |
|
#define | cvvdotu_ cvvdotu |
|
#define | zvvdotc_ zvvdotc |
|
#define | zvvdotu_ zvvdotu |
|
#define | stzpad_ stzpad |
|
#define | dtzpad_ dtzpad |
|
#define | ctzpad_ ctzpad |
|
#define | ztzpad_ ztzpad |
|
#define | stzpadcpy_ stzpadcpy |
|
#define | dtzpadcpy_ dtzpadcpy |
|
#define | ctzpadcpy_ ctzpadcpy |
|
#define | ztzpadcpy_ ztzpadcpy |
|
#define | stzscal_ stzscal |
|
#define | dtzscal_ dtzscal |
|
#define | ctzscal_ ctzscal |
|
#define | ztzscal_ ztzscal |
|
#define | chescal_ chescal |
|
#define | zhescal_ zhescal |
|
#define | ctzcnjg_ ctzcnjg |
|
#define | ztzcnjg_ ztzcnjg |
|
#define | sagemv_ sagemv |
|
#define | dagemv_ dagemv |
|
#define | cagemv_ cagemv |
|
#define | zagemv_ zagemv |
|
#define | sasymv_ sasymv |
|
#define | dasymv_ dasymv |
|
#define | casymv_ casymv |
|
#define | zasymv_ zasymv |
|
#define | cahemv_ cahemv |
|
#define | zahemv_ zahemv |
|
#define | satrmv_ satrmv |
|
#define | datrmv_ datrmv |
|
#define | catrmv_ catrmv |
|
#define | zatrmv_ zatrmv |
|
#define | csymv_ csymv |
|
#define | zsymv_ zsymv |
|
#define | csyr_ csyr |
|
#define | zsyr_ zsyr |
|
#define | csyr2_ csyr2 |
|
#define | zsyr2_ zsyr2 |
|