OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
PBtools.h File Reference

Go to the source code of this file.

Macros

#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_)
#define MIN(a_, b_)
#define MAX(a_, b_)
#define FLOOR(a, b)
#define CEIL(a, b)
#define ICEIL(a, b)
#define Mupcase(C)
#define Mlowcase(C)
#define MModInc(I, d)
#define MModDec(I, d)
#define MPosMod(I, d)
#define MModAdd(I1, I2, d)
#define MModAdd1(I, d)
#define MModSub(I1, I2, d)
#define MModSub1(I, d)
#define DNROC(n_, nb_, p_)
#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

Functions

void PB_Ctzsyr ()
void PB_Ctzher ()
void PB_Ctzsyr2 ()
void PB_Ctzher2 ()
void PB_Ctztrmv ()
void PB_Ctzatrmv ()
void PB_Ctzsymv ()
void PB_Ctzhemv ()
void PB_Ctzasymv ()
void PB_Ctzahemv ()
void PB_Ctzsyrk ()
void PB_Ctzherk ()
void PB_Ctzsyr2k ()
void PB_Ctzher2k ()
void PB_Ctztrmm ()
void PB_Ctzsymm ()
void PB_Ctzhemm ()
void PB_CpswapNN ()
void PB_CpswapND ()
void PB_Cpdot11 ()
void PB_CpdotNN ()
void PB_CpdotND ()
void PB_CpaxpbyNN ()
void PB_CpaxpbyND ()
void PB_CpaxpbyDN ()
void PB_Cpaxpby ()
void PB_Cpsyr ()
void PB_Cpsyr2 ()
void PB_Cptrm ()
void PB_Cpsym ()
void PB_Cpgeadd ()
void PB_Cptradd ()
void PB_Cptran ()
void PB_Cptrsv ()
void PB_Cptrsm ()
void PB_CpgemmAB ()
void PB_CpgemmAC ()
void PB_CpgemmBC ()
void PB_CpsymmAB ()
void PB_CpsymmBC ()
void PB_CpsyrkA ()
void PB_CpsyrkAC ()
void PB_Cpsyr2kA ()
void PB_Cpsyr2kAC ()
void PB_CptrmmAB ()
void PB_CptrmmB ()
void PB_CptrsmAB ()
void PB_CptrsmAB0 ()
void PB_CptrsmAB1 ()
void PB_CptrsmB ()
Int PB_Cgcd ()
Int PB_Clcm ()
void PB_Cdescset ()
void PB_Cdescribe ()
void PB_CargFtoC ()
Int PB_Cfirstnb ()
Int PB_Clastnb ()
Int PB_Cspan ()
void PB_Cainfog2l ()
void PB_Cinfog2l ()
Int PB_Cg2lrem ()
Int PB_Cindxg2p ()
Int PB_Cnumroc ()
Int PB_Cnpreroc ()
Int PB_Cnnxtroc ()
void PB_Cconjg ()
void PB_Cwarn ()
void PB_Cabort ()
void PB_Cchkmat ()
void PB_Cchkvec ()
char * PB_Cmalloc ()
char * PB_Cgetbuf ()
PBTYP_T * PB_Citypeset ()
PBTYP_T * PB_Cstypeset ()
PBTYP_T * PB_Cdtypeset ()
PBTYP_T * PB_Cctypeset ()
PBTYP_T * PB_Cztypeset ()
Int pilaenv_ ()
char * PB_Ctop ()
void PB_CVMinit ()
Int PB_CVMnpq ()
void PB_CVMcontig ()
Int PB_CVMloc ()
Int PB_CVMswp ()
Int PB_CVMpack ()
void PB_CVMupdate ()
void PB_Cbinfo ()
void PB_Cplaprnt ()
void PB_Cplaprn2 ()
void PB_Cprnt ()
void PB_Cplapad ()
void PB_Cplapd2 ()
void PB_Cplascal ()
void PB_Cplasca2 ()
void PB_Cplacnjg ()
void PB_CInV ()
void PB_CInV2 ()
void PB_CInOutV ()
void PB_CInOutV2 ()
void PB_COutV ()
void PB_CGatherV ()
void PB_CScatterV ()

Macro Definition Documentation

◆ ABS

#define ABS ( a_)
Value:
( ( (a_) < 0 ) ? -(a_) : (a_) )

Definition at line 75 of file PBtools.h.

◆ BIGNUM

#define BIGNUM   10000

Definition at line 69 of file PBtools.h.

◆ BLOCK_CYCLIC_2D

#define BLOCK_CYCLIC_2D   1

Definition at line 20 of file PBtools.h.

◆ BLOCK_CYCLIC_2D_INB

#define BLOCK_CYCLIC_2D_INB   2

Definition at line 35 of file PBtools.h.

◆ cagemv_ [1/2]

F_VOID_FCT cagemv_   CAGEMV

Definition at line 716 of file PBtools.h.

◆ cagemv_ [2/2]

#define cagemv_   cagemv

Definition at line 716 of file PBtools.h.

◆ cahemv_ [1/2]

F_VOID_FCT cahemv_   CAHEMV

Definition at line 723 of file PBtools.h.

◆ cahemv_ [2/2]

#define cahemv_   cahemv

Definition at line 723 of file PBtools.h.

◆ casymv_ [1/2]

F_VOID_FCT casymv_   CASYMV

Definition at line 721 of file PBtools.h.

◆ casymv_ [2/2]

#define casymv_   casymv

Definition at line 721 of file PBtools.h.

◆ catrmv_ [1/2]

F_VOID_FCT catrmv_   CATRMV

Definition at line 728 of file PBtools.h.

◆ catrmv_ [2/2]

#define catrmv_   catrmv

Definition at line 728 of file PBtools.h.

◆ ccshft_ [1/2]

F_VOID_FCT ccshft_   CCSHFT

Definition at line 678 of file PBtools.h.

◆ ccshft_ [2/2]

#define ccshft_   ccshft

Definition at line 678 of file PBtools.h.

◆ CEIL

#define CEIL ( a,
b )
Value:
( ( (a)+(b)-1 ) / (b) )

Definition at line 80 of file PBtools.h.

◆ CGENERAL

#define CGENERAL   'G'

Definition at line 56 of file PBtools.h.

◆ CHERM

#define CHERM   'H'

Definition at line 58 of file PBtools.h.

◆ chescal_ [1/2]

F_VOID_FCT chescal_   CHESCAL

Definition at line 708 of file PBtools.h.

◆ chescal_ [2/2]

#define chescal_   chescal

Definition at line 708 of file PBtools.h.

◆ cmmadd_ [1/2]

F_VOID_FCT cmmadd_   CMMADD

Definition at line 619 of file PBtools.h.

◆ cmmadd_ [2/2]

#define cmmadd_   cmmadd

Definition at line 619 of file PBtools.h.

◆ cmmcadd_ [1/2]

F_VOID_FCT cmmcadd_   CMMCADD

Definition at line 630 of file PBtools.h.

◆ cmmcadd_ [2/2]

#define cmmcadd_   cmmcadd

Definition at line 630 of file PBtools.h.

◆ cmmdda_ [1/2]

F_VOID_FCT cmmdda_   CMMDDA

Definition at line 641 of file PBtools.h.

◆ cmmdda_ [2/2]

#define cmmdda_   cmmdda

Definition at line 641 of file PBtools.h.

◆ cmmddac_ [1/2]

F_VOID_FCT cmmddac_   CMMDDAC

Definition at line 646 of file PBtools.h.

◆ cmmddac_ [2/2]

#define cmmddac_   cmmddac

Definition at line 646 of file PBtools.h.

◆ cmmddact_ [1/2]

F_VOID_FCT cmmddact_   CMMDDACT

Definition at line 657 of file PBtools.h.

◆ cmmddact_ [2/2]

#define cmmddact_   cmmddact

Definition at line 657 of file PBtools.h.

◆ cmmddat_ [1/2]

F_VOID_FCT cmmddat_   CMMDDAT

Definition at line 652 of file PBtools.h.

◆ cmmddat_ [2/2]

#define cmmddat_   cmmddat

Definition at line 652 of file PBtools.h.

◆ cmmtadd_ [1/2]

F_VOID_FCT cmmtadd_   CMMTADD

Definition at line 625 of file PBtools.h.

◆ cmmtadd_ [2/2]

#define cmmtadd_   cmmtadd

Definition at line 625 of file PBtools.h.

◆ cmmtcadd_ [1/2]

F_VOID_FCT cmmtcadd_   CMMTCADD

Definition at line 635 of file PBtools.h.

◆ cmmtcadd_ [2/2]

#define cmmtcadd_   cmmtcadd

Definition at line 635 of file PBtools.h.

◆ CPACKING

#define CPACKING   'P'

Definition at line 50 of file PBtools.h.

◆ crshft_ [1/2]

F_VOID_FCT crshft_   CRSHFT

Definition at line 683 of file PBtools.h.

◆ crshft_ [2/2]

#define crshft_   crshft

Definition at line 683 of file PBtools.h.

◆ cset_ [1/2]

F_VOID_FCT cset_   CSET

Definition at line 665 of file PBtools.h.

◆ cset_ [2/2]

#define cset_   cset

Definition at line 665 of file PBtools.h.

◆ CSRC1_

#define CSRC1_   7 /* Starting Processor Column */

Definition at line 29 of file PBtools.h.

◆ CSRC_

#define CSRC_   9 /* Starting Process Column */

Definition at line 46 of file PBtools.h.

◆ csymv_ [1/2]

F_VOID_FCT csymv_   CSYMV

Definition at line 731 of file PBtools.h.

◆ csymv_ [2/2]

#define csymv_   csymv

Definition at line 731 of file PBtools.h.

◆ csyr2_ [1/2]

F_VOID_FCT csyr2_   CSYR2

Definition at line 737 of file PBtools.h.

◆ csyr2_ [2/2]

#define csyr2_   csyr2

Definition at line 737 of file PBtools.h.

◆ csyr_ [1/2]

F_VOID_FCT csyr_   CSYR

Definition at line 734 of file PBtools.h.

◆ csyr_ [2/2]

#define csyr_   csyr

Definition at line 734 of file PBtools.h.

◆ CTXT1_

#define CTXT1_   1 /* BLACS context */

Definition at line 23 of file PBtools.h.

◆ CTXT_

#define CTXT_   1 /* BLACS context */

Definition at line 38 of file PBtools.h.

◆ ctzcnjg_ [1/2]

F_VOID_FCT ctzcnjg_   CTZCNJG

Definition at line 711 of file PBtools.h.

◆ ctzcnjg_ [2/2]

#define ctzcnjg_   ctzcnjg

Definition at line 711 of file PBtools.h.

◆ ctzpad_ [1/2]

F_VOID_FCT ctzpad_   CTZPAD

Definition at line 695 of file PBtools.h.

◆ ctzpad_ [2/2]

#define ctzpad_   ctzpad

Definition at line 695 of file PBtools.h.

◆ ctzpadcpy_ [1/2]

F_VOID_FCT ctzpadcpy_   CTZPADCPY

Definition at line 700 of file PBtools.h.

◆ ctzpadcpy_ [2/2]

#define ctzpadcpy_   ctzpadcpy

Definition at line 700 of file PBtools.h.

◆ ctzscal_ [1/2]

F_VOID_FCT ctzscal_   CTZSCAL

Definition at line 705 of file PBtools.h.

◆ ctzscal_ [2/2]

#define ctzscal_   ctzscal

Definition at line 705 of file PBtools.h.

◆ CUNPACKING

#define CUNPACKING   'U'

Definition at line 51 of file PBtools.h.

◆ cvvdotc_ [1/2]

F_VOID_FCT cvvdotc_   CVVDOTC

Definition at line 688 of file PBtools.h.

◆ cvvdotc_ [2/2]

#define cvvdotc_   cvvdotc

Definition at line 688 of file PBtools.h.

◆ cvvdotu_ [1/2]

F_VOID_FCT cvvdotu_   CVVDOTU

Definition at line 689 of file PBtools.h.

◆ cvvdotu_ [2/2]

#define cvvdotu_   cvvdotu

Definition at line 689 of file PBtools.h.

◆ dagemv_ [1/2]

F_VOID_FCT dagemv_   DAGEMV

Definition at line 715 of file PBtools.h.

◆ dagemv_ [2/2]

#define dagemv_   dagemv

Definition at line 715 of file PBtools.h.

◆ dascal_ [1/2]

F_VOID_FCT dascal_   DASCAL

Definition at line 674 of file PBtools.h.

◆ dascal_ [2/2]

#define dascal_   dascal

Definition at line 674 of file PBtools.h.

◆ dasqrtb_ [1/2]

F_VOID_FCT dasqrtb_   DASQRTB

Definition at line 661 of file PBtools.h.

◆ dasqrtb_ [2/2]

#define dasqrtb_   dasqrtb

Definition at line 661 of file PBtools.h.

◆ dasymv_ [1/2]

F_VOID_FCT dasymv_   DASYMV

Definition at line 720 of file PBtools.h.

◆ dasymv_ [2/2]

#define dasymv_   dasymv

Definition at line 720 of file PBtools.h.

◆ datrmv_ [1/2]

F_VOID_FCT datrmv_   DATRMV

Definition at line 727 of file PBtools.h.

◆ datrmv_ [2/2]

#define datrmv_   datrmv

Definition at line 727 of file PBtools.h.

◆ dcshft_ [1/2]

F_VOID_FCT dcshft_   DCSHFT

Definition at line 677 of file PBtools.h.

◆ dcshft_ [2/2]

#define dcshft_   dcshft

Definition at line 677 of file PBtools.h.

◆ DESCMULT

#define DESCMULT   100

Definition at line 68 of file PBtools.h.

◆ DLEN1_

#define DLEN1_   9 /* Descriptor Length */

Definition at line 31 of file PBtools.h.

◆ DLEN_

#define DLEN_   11 /* Descriptor Length */

Definition at line 48 of file PBtools.h.

◆ dmmadd_ [1/2]

F_VOID_FCT dmmadd_   DMMADD

Definition at line 618 of file PBtools.h.

◆ dmmadd_ [2/2]

#define dmmadd_   dmmadd

Definition at line 618 of file PBtools.h.

◆ dmmcadd_ [1/2]

F_VOID_FCT dmmcadd_   DMMCADD

Definition at line 629 of file PBtools.h.

◆ dmmcadd_ [2/2]

#define dmmcadd_   dmmcadd

Definition at line 629 of file PBtools.h.

◆ dmmdda_ [1/2]

F_VOID_FCT dmmdda_   DMMDDA

Definition at line 640 of file PBtools.h.

◆ dmmdda_ [2/2]

#define dmmdda_   dmmdda

Definition at line 640 of file PBtools.h.

◆ dmmddac_ [1/2]

F_VOID_FCT dmmddac_   DMMDDAC

Definition at line 645 of file PBtools.h.

◆ dmmddac_ [2/2]

#define dmmddac_   dmmddac

Definition at line 645 of file PBtools.h.

◆ dmmddact_ [1/2]

F_VOID_FCT dmmddact_   DMMDDACT

Definition at line 656 of file PBtools.h.

◆ dmmddact_ [2/2]

#define dmmddact_   dmmddact

Definition at line 656 of file PBtools.h.

◆ dmmddat_ [1/2]

F_VOID_FCT dmmddat_   DMMDDAT

Definition at line 651 of file PBtools.h.

◆ dmmddat_ [2/2]

#define dmmddat_   dmmddat

Definition at line 651 of file PBtools.h.

◆ dmmtadd_ [1/2]

F_VOID_FCT dmmtadd_   DMMTADD

Definition at line 624 of file PBtools.h.

◆ dmmtadd_ [2/2]

#define dmmtadd_   dmmtadd

Definition at line 624 of file PBtools.h.

◆ dmmtcadd_ [1/2]

F_VOID_FCT dmmtcadd_   DMMTCADD

Definition at line 634 of file PBtools.h.

◆ dmmtcadd_ [2/2]

#define dmmtcadd_   dmmtcadd

Definition at line 634 of file PBtools.h.

◆ DNROC

#define DNROC ( n_,
nb_,
p_ )
Value:
((double)(((((n_)+(nb_)-1)/(nb_))+(p_)-1)/(p_))*(double)((nb_)))

Definition at line 111 of file PBtools.h.

111#define DNROC( n_, nb_, p_ ) \
112 ((double)(((((n_)+(nb_)-1)/(nb_))+(p_)-1)/(p_))*(double)((nb_)))

◆ drshft_ [1/2]

F_VOID_FCT drshft_   DRSHFT

Definition at line 682 of file PBtools.h.

◆ drshft_ [2/2]

#define drshft_   drshft

Definition at line 682 of file PBtools.h.

◆ dset_ [1/2]

F_VOID_FCT dset_   DSET

Definition at line 664 of file PBtools.h.

◆ dset_ [2/2]

#define dset_   dset

Definition at line 664 of file PBtools.h.

◆ DTYPE1_

#define DTYPE1_   0 /* Descriptor Type */

Definition at line 22 of file PBtools.h.

◆ DTYPE_

#define DTYPE_   0 /* Descriptor Type */

Definition at line 37 of file PBtools.h.

◆ dtzpad_ [1/2]

F_VOID_FCT dtzpad_   DTZPAD

Definition at line 694 of file PBtools.h.

◆ dtzpad_ [2/2]

#define dtzpad_   dtzpad

Definition at line 694 of file PBtools.h.

◆ dtzpadcpy_ [1/2]

F_VOID_FCT dtzpadcpy_   DTZPADCPY

Definition at line 699 of file PBtools.h.

◆ dtzpadcpy_ [2/2]

#define dtzpadcpy_   dtzpadcpy

Definition at line 699 of file PBtools.h.

◆ dtzscal_ [1/2]

F_VOID_FCT dtzscal_   DTZSCAL

Definition at line 704 of file PBtools.h.

◆ dtzscal_ [2/2]

#define dtzscal_   dtzscal

Definition at line 704 of file PBtools.h.

◆ dvasum_ [1/2]

F_VOID_FCT dvasum_   DVASUM

Definition at line 669 of file PBtools.h.

◆ dvasum_ [2/2]

#define dvasum_   dvasum

Definition at line 669 of file PBtools.h.

◆ dvvdot_ [1/2]

F_VOID_FCT dvvdot_   DVVDOT

Definition at line 687 of file PBtools.h.

◆ dvvdot_ [2/2]

#define dvvdot_   dvvdot

Definition at line 687 of file PBtools.h.

◆ dzvasum_ [1/2]

F_VOID_FCT dzvasum_   DZVASUM

Definition at line 671 of file PBtools.h.

◆ dzvasum_ [2/2]

#define dzvasum_   dzvasum

Definition at line 671 of file PBtools.h.

◆ FLOOR

#define FLOOR ( a,
b )
Value:
(((a)>0) ? (((a)/(b))) : (-(((-(a))+(b)-1)/(b))))

Definition at line 79 of file PBtools.h.

◆ GENERAL

#define GENERAL   "G"

Definition at line 60 of file PBtools.h.

◆ HERM

#define HERM   "H"

Definition at line 62 of file PBtools.h.

◆ ICEIL

#define ICEIL ( a,
b )
Value:
(((a)>0) ? ((((a)+(b)-1)/(b))) : (-((-(a))/(b))))

Definition at line 81 of file PBtools.h.

◆ IMB_

#define IMB_   4 /* Initial Row Blocking Size */

Definition at line 41 of file PBtools.h.

◆ immadd_ [1/2]

F_VOID_FCT immadd_   IMMADD

Definition at line 616 of file PBtools.h.

◆ immadd_ [2/2]

#define immadd_   immadd

Definition at line 616 of file PBtools.h.

◆ immdda_ [1/2]

F_VOID_FCT immdda_   IMMDDA

Definition at line 638 of file PBtools.h.

◆ immdda_ [2/2]

#define immdda_   immdda

Definition at line 638 of file PBtools.h.

◆ immddat_ [1/2]

F_VOID_FCT immddat_   IMMDDAT

Definition at line 649 of file PBtools.h.

◆ immddat_ [2/2]

#define immddat_   immddat

Definition at line 649 of file PBtools.h.

◆ immtadd_ [1/2]

F_VOID_FCT immtadd_   IMMTADD

Definition at line 622 of file PBtools.h.

◆ immtadd_ [2/2]

#define immtadd_   immtadd

Definition at line 622 of file PBtools.h.

◆ INB_

#define INB_   5 /* Initial Column Blocking Size */

Definition at line 42 of file PBtools.h.

◆ LLD1_

#define LLD1_   8 /* Local Leading Dimension */

Definition at line 30 of file PBtools.h.

◆ LLD_

#define LLD_   10 /* Local Leading Dimension */

Definition at line 47 of file PBtools.h.

◆ M1_

#define M1_   2 /* Global Number of Rows */

Definition at line 24 of file PBtools.h.

◆ M_

#define M_   2 /* Global Number of Rows */

Definition at line 39 of file PBtools.h.

◆ MAX

#define MAX ( a_,
b_ )
Value:
( ( (a_) > (b_) ) ? (a_) : (b_) )

Definition at line 77 of file PBtools.h.

◆ MB1_

#define MB1_   4 /* Row Blocking Size */

Definition at line 26 of file PBtools.h.

◆ MB_

#define MB_   6 /* Row Blocking Size */

Definition at line 43 of file PBtools.h.

◆ MDescCopy

#define MDescCopy ( DescIn,
DescOut )
Value:
{ \
(DescOut)[DTYPE_] = (DescIn)[DTYPE_]; \
(DescOut)[M_ ] = (DescIn)[M_ ]; \
(DescOut)[N_ ] = (DescIn)[N_ ]; \
(DescOut)[IMB_ ] = (DescIn)[IMB_ ]; \
(DescOut)[INB_ ] = (DescIn)[INB_ ]; \
(DescOut)[MB_ ] = (DescIn)[MB_ ]; \
(DescOut)[NB_ ] = (DescIn)[NB_ ]; \
(DescOut)[RSRC_ ] = (DescIn)[RSRC_ ]; \
(DescOut)[CSRC_ ] = (DescIn)[CSRC_ ]; \
(DescOut)[CTXT_ ] = (DescIn)[CTXT_ ]; \
(DescOut)[LLD_ ] = (DescIn)[LLD_ ]; \
}
CTXT_
#define CTXT_
Definition PBtools.h:38
MB_
#define MB_
Definition PBtools.h:43
LLD_
#define LLD_
Definition PBtools.h:47
RSRC_
#define RSRC_
Definition PBtools.h:45
DTYPE_
#define DTYPE_
Definition PBtools.h:37
M_
#define M_
Definition PBtools.h:39
INB_
#define INB_
Definition PBtools.h:42
CSRC_
#define CSRC_
Definition PBtools.h:46
IMB_
#define IMB_
Definition PBtools.h:41
NB_
#define NB_
Definition PBtools.h:44
N_
#define N_
Definition PBtools.h:40

Definition at line 514 of file PBtools.h.

514#define MDescCopy(DescIn, DescOut) \
515 { \
516 (DescOut)[DTYPE_] = (DescIn)[DTYPE_]; \
517 (DescOut)[M_ ] = (DescIn)[M_ ]; \
518 (DescOut)[N_ ] = (DescIn)[N_ ]; \
519 (DescOut)[IMB_ ] = (DescIn)[IMB_ ]; \
520 (DescOut)[INB_ ] = (DescIn)[INB_ ]; \
521 (DescOut)[MB_ ] = (DescIn)[MB_ ]; \
522 (DescOut)[NB_ ] = (DescIn)[NB_ ]; \
523 (DescOut)[RSRC_ ] = (DescIn)[RSRC_ ]; \
524 (DescOut)[CSRC_ ] = (DescIn)[CSRC_ ]; \
525 (DescOut)[CTXT_ ] = (DescIn)[CTXT_ ]; \
526 (DescOut)[LLD_ ] = (DescIn)[LLD_ ]; \
527 }

◆ MDescSet

#define MDescSet ( desc,
m,
n,
imb,
inb,
mb,
nb,
rsrc,
csrc,
ictxt,
lld )
Value:
{ \
(desc)[DTYPE_] = BLOCK_CYCLIC_2D_INB; \
(desc)[CTXT_ ] = (ictxt); \
(desc)[M_ ] = (m); \
(desc)[N_ ] = (n); \
(desc)[IMB_ ] = (imb); \
(desc)[INB_ ] = (inb); \
(desc)[MB_ ] = (mb); \
(desc)[NB_ ] = (nb); \
(desc)[RSRC_ ] = (rsrc); \
(desc)[CSRC_ ] = (csrc); \
(desc)[LLD_ ] = (lld); \
}
BLOCK_CYCLIC_2D_INB
#define BLOCK_CYCLIC_2D_INB
Definition PBtools.h:35
n
n
Definition schur_example.m:9

Definition at line 499 of file PBtools.h.

499#define MDescSet( desc, m, n, imb, inb, mb, nb, rsrc, csrc, ictxt, lld ) \
500 { \
501 (desc)[DTYPE_] = BLOCK_CYCLIC_2D_INB; \
502 (desc)[CTXT_ ] = (ictxt); \
503 (desc)[M_ ] = (m); \
504 (desc)[N_ ] = (n); \
505 (desc)[IMB_ ] = (imb); \
506 (desc)[INB_ ] = (inb); \
507 (desc)[MB_ ] = (mb); \
508 (desc)[NB_ ] = (nb); \
509 (desc)[RSRC_ ] = (rsrc); \
510 (desc)[CSRC_ ] = (csrc); \
511 (desc)[LLD_ ] = (lld); \
512 }

◆ MDescTrans

#define MDescTrans ( DescIn,
DescOut )

Definition at line 529 of file PBtools.h.

529#define MDescTrans(DescIn, DescOut) \
530 { \
531 if ( (DescIn)[DTYPE_] == BLOCK_CYCLIC_2D ) \
532 { \
533 (DescOut)[DTYPE_] = BLOCK_CYCLIC_2D_INB; \
534 (DescOut)[M_ ] = (DescIn)[M1_ ]; \
535 (DescOut)[N_ ] = (DescIn)[N1_ ]; \
536 (DescOut)[IMB_ ] = (DescIn)[MB1_ ]; \
537 (DescOut)[INB_ ] = (DescIn)[NB1_ ]; \
538 (DescOut)[MB_ ] = (DescIn)[MB1_ ]; \
539 (DescOut)[NB_ ] = (DescIn)[NB1_ ]; \
540 (DescOut)[RSRC_ ] = (DescIn)[RSRC1_ ]; \
541 (DescOut)[CSRC_ ] = (DescIn)[CSRC1_ ]; \
542 (DescOut)[CTXT_ ] = (DescIn)[CTXT1_ ]; \
543 (DescOut)[LLD_ ] = (DescIn)[LLD1_ ]; \
544 } \
545 else if ( (DescIn)[DTYPE_] == BLOCK_CYCLIC_2D_INB ) \
546 { \
547 (DescOut)[DTYPE_] = BLOCK_CYCLIC_2D_INB; \
548 (DescOut)[M_ ] = (DescIn)[M_ ]; \
549 (DescOut)[N_ ] = (DescIn)[N_ ]; \
550 (DescOut)[IMB_ ] = (DescIn)[IMB_ ]; \
551 (DescOut)[INB_ ] = (DescIn)[INB_ ]; \
552 (DescOut)[MB_ ] = (DescIn)[MB_ ]; \
553 (DescOut)[NB_ ] = (DescIn)[NB_ ]; \
554 (DescOut)[RSRC_ ] = (DescIn)[RSRC_ ]; \
555 (DescOut)[CSRC_ ] = (DescIn)[CSRC_ ]; \
556 (DescOut)[CTXT_ ] = (DescIn)[CTXT_ ]; \
557 (DescOut)[LLD_ ] = (DescIn)[LLD_ ]; \
558 } \
559 else \
560 { \
561 (DescOut)[DTYPE_] = (DescIn)[0]; \
562 (DescOut)[CTXT_ ] = (DescIn)[1]; \
563 (DescOut)[M_ ] = 0; \
564 (DescOut)[N_ ] = 0; \
565 (DescOut)[IMB_ ] = 1; \
566 (DescOut)[INB_ ] = 1; \
567 (DescOut)[MB_ ] = 1; \
568 (DescOut)[NB_ ] = 1; \
569 (DescOut)[RSRC_ ] = 0; \
570 (DescOut)[CSRC_ ] = 0; \
571 (DescOut)[LLD_ ] = 1; \
572 } \
573 }

◆ Mfirstnb

#define Mfirstnb ( inbt_,
n_,
i_,
inb_,
nb_ )
Value:
inbt_ = (inb_) - (i_); \
if( inbt_ <= 0 ) \
inbt_ = ( (-inbt_) / (nb_) + 1 ) * (nb_) + inbt_; \
inbt_ = MIN( inbt_, (n_) );
MIN
#define MIN(x, y)
Definition lapacke_utils.h:49

Definition at line 139 of file PBtools.h.

139#define Mfirstnb( inbt_, n_, i_, inb_, nb_ ) \
140 inbt_ = (inb_) - (i_); \
141 if( inbt_ <= 0 ) \
142 inbt_ = ( (-inbt_) / (nb_) + 1 ) * (nb_) + inbt_; \
143 inbt_ = MIN( inbt_, (n_) );

◆ MIN

#define MIN ( a_,
b_ )
Value:
( ( (a_) < (b_) ) ? (a_) : (b_) )

Definition at line 76 of file PBtools.h.

◆ Mindxg2p

#define Mindxg2p ( ig_,
inb_,
nb_,
proc_,
srcproc_,
nprocs_ )
Value:
{ \
if( ( (ig_) >= (inb_) ) && ( (srcproc_) >= 0 ) && \
( (nprocs_) > 1 ) ) \
{ \
proc_ = (srcproc_) + 1 + ( (ig_)-(inb_) ) / (nb_); \
proc_ -= ( proc_ / (nprocs_) ) * (nprocs_); \
} \
else \
{ \
proc_ = (srcproc_); \
} \
}

Definition at line 202 of file PBtools.h.

202#define Mindxg2p( ig_, inb_, nb_, proc_, srcproc_, nprocs_ ) \
203 { \
204 if( ( (ig_) >= (inb_) ) && ( (srcproc_) >= 0 ) && \
205 ( (nprocs_) > 1 ) ) \
206 { \
207 proc_ = (srcproc_) + 1 + ( (ig_)-(inb_) ) / (nb_); \
208 proc_ -= ( proc_ / (nprocs_) ) * (nprocs_); \
209 } \
210 else \
211 { \
212 proc_ = (srcproc_); \
213 } \
214 }

◆ Mindxl2g

#define Mindxl2g ( ig_,
il_,
inb_,
nb_,
proc_,
srcproc_,
nprocs_ )
Value:
{ \
if( ( (srcproc_) >= 0 ) && ( (nprocs_) > 1 ) ) \
{ \
if( (proc_) == (srcproc_) ) \
{ \
if( (il_) < (inb_) ) ig_ = (il_); \
else ig_ = (il_) + \
(nb_)*((nprocs_)-1)*( ((il_)-(inb_)) / (nb_) + 1 ); \
} \
else if( (proc_) < (srcproc_) ) \
{ \
ig_ = (il_) + (inb_) + \
(nb_)*( ((nprocs_)-1)*((il_)/(nb_)) + \
(proc_)-(srcproc_)-1+(nprocs_) ); \
} \
else \
{ \
ig_ = (il_) + (inb_) + \
(nb_)*( ((nprocs_)-1)*((il_)/(nb_)) + \
(proc_)-(srcproc_)-1 ); \
} \
} \
else \
{ \
ig_ = (il_); \
} \
}

Definition at line 170 of file PBtools.h.

170#define Mindxl2g( ig_, il_, inb_, nb_, proc_, srcproc_, nprocs_ ) \
171 { \
172 if( ( (srcproc_) >= 0 ) && ( (nprocs_) > 1 ) ) \
173 { \
174 if( (proc_) == (srcproc_) ) \
175 { \
176 if( (il_) < (inb_) ) ig_ = (il_); \
177 else ig_ = (il_) + \
178 (nb_)*((nprocs_)-1)*( ((il_)-(inb_)) / (nb_) + 1 ); \
179 } \
180 else if( (proc_) < (srcproc_) ) \
181 { \
182 ig_ = (il_) + (inb_) + \
183 (nb_)*( ((nprocs_)-1)*((il_)/(nb_)) + \
184 (proc_)-(srcproc_)-1+(nprocs_) ); \
185 } \
186 else \
187 { \
188 ig_ = (il_) + (inb_) + \
189 (nb_)*( ((nprocs_)-1)*((il_)/(nb_)) + \
190 (proc_)-(srcproc_)-1 ); \
191 } \
192 } \
193 else \
194 { \
195 ig_ = (il_); \
196 } \
197 }

◆ MIndxTrans

#define MIndxTrans ( I,
J,
i,
j )
Value:
{ \
i = *I - 1; \
j = *J - 1; \
}

Definition at line 575 of file PBtools.h.

575#define MIndxTrans( I, J, i, j ) \
576 { \
577 i = *I - 1; \
578 j = *J - 1; \
579 }

◆ Minfog2l

#define Minfog2l ( i_,
j_,
desc_,
nr_,
nc_,
r_,
c_,
ii_,
jj_,
pr_,
pc_ )

Definition at line 428 of file PBtools.h.

428#define Minfog2l( i_, j_, desc_, nr_, nc_, r_, c_, ii_, jj_, pr_, pc_ ) \
429 { \
430 Int quot__, i__, imb__, inb__, j__, mb__, mydist__, \
431 nb__, nblk__, src__; \
432 imb__ = desc_[IMB_]; mb__ = desc_[MB_]; pr_ = desc_[RSRC_]; \
433 if( ( pr_ >= 0 ) && ( nr_ > 1 ) ) \
434 { \
435 if( ( i__ = (i_) - imb__ ) < 0 ) \
436 { ii_ = ( r_ == pr_ ? (i_) : 0 ); } \
437 else \
438 { \
439 src__ = pr_; \
440 pr_ += ( nblk__ = i__ / mb__ + 1 ); \
441 pr_ -= ( pr_ / nr_ ) * nr_; \
442 if( ( mydist__ = r_ - src__ ) < 0 ) mydist__ += nr_; \
443 if( mydist__ >= nblk__ - ( quot__ = nblk__ / nr_ ) * nr_ ) \
444 { \
445 if( r_ != src__ ) ii_ = mb__; \
446 else ii_ = imb__; \
447 if( r_ != pr_ ) \
448 ii_ += ( quot__ - 1 ) * mb__; \
449 else \
450 ii_ += i__ + ( quot__ - nblk__ ) * mb__; \
451 } \
452 else \
453 { \
454 if( r_ != src__ ) ii_ = mb__ + quot__ * mb__; \
455 else ii_ = imb__ + quot__ * mb__; \
456 } \
457 } \
458 } \
459 else \
460 { \
461 ii_ = (i_); \
462 } \
463 inb__ = desc_[INB_]; nb__ = desc_[NB_]; pc_ = desc_[CSRC_]; \
464 if( ( pc_ >= 0 ) && ( nc_ > 1 ) ) \
465 { \
466 if( ( j__ = (j_) - inb__ ) < 0 ) \
467 { jj_ = ( c_ == pc_ ? (j_) : 0 ); } \
468 else \
469 { \
470 src__ = pc_; \
471 pc_ += ( nblk__ = j__ / nb__ + 1 ); \
472 pc_ -= ( pc_ / nc_ ) * nc_; \
473 if( ( mydist__ = c_ - src__ ) < 0 ) mydist__ += nc_; \
474 if( mydist__ >= nblk__ - ( quot__ = nblk__ / nc_ ) * nc_ ) \
475 { \
476 if( c_ != src__ ) jj_ = nb__; \
477 else jj_ = inb__; \
478 if( c_ != pc_ ) \
479 jj_ += ( quot__ - 1 ) * nb__; \
480 else \
481 jj_ += j__ + ( quot__ - nblk__ ) * nb__; \
482 } \
483 else \
484 { \
485 if( c_ != src__ ) jj_ = nb__ + quot__ * nb__; \
486 else jj_ = inb__ + quot__ * nb__; \
487 } \
488 } \
489 } \
490 else \
491 { \
492 jj_ = (j_); \
493 } \
494 }

◆ Mlastnb

#define Mlastnb ( inbt_,
n_,
i_,
inb_,
nb_ )
Value:
inbt_ = (i_) + (n_) - (inb_); \
if( inbt_ > 0 ) \
{ \
inbt_ = -( ( (nb_)+inbt_-1 )/(nb_)-1 )*(nb_) + inbt_; \
inbt_ = MIN( inbt_, (n_) ); \
} \
else { inbt_ = (n_); };

Definition at line 145 of file PBtools.h.

145#define Mlastnb( inbt_, n_, i_, inb_, nb_ ) \
146 inbt_ = (i_) + (n_) - (inb_); \
147 if( inbt_ > 0 ) \
148 { \
149 inbt_ = -( ( (nb_)+inbt_-1 )/(nb_)-1 )*(nb_) + inbt_; \
150 inbt_ = MIN( inbt_, (n_) ); \
151 } \
152 else { inbt_ = (n_); };

◆ Mlowcase

#define Mlowcase ( C)
Value:
(((C)>64 && (C)< 91) ? (C) | 32 : (C))

Definition at line 84 of file PBtools.h.

◆ MModAdd

#define MModAdd ( I1,
I2,
d )
Value:
( ( (I1) + (I2) < (d) ) ? (I1) + (I2) : (I1) + (I2) - (d) )

Definition at line 97 of file PBtools.h.

97#define MModAdd(I1, I2, d) \
98 ( ( (I1) + (I2) < (d) ) ? (I1) + (I2) : (I1) + (I2) - (d) )

◆ MModAdd1

#define MModAdd1 ( I,
d )
Value:
( ((I) != (d)-1) ? (I) + 1 : 0 )

Definition at line 100 of file PBtools.h.

◆ MModDec

#define MModDec ( I,
d )
Value:
if(--(I) == -1) (I) = (d)-1

Definition at line 93 of file PBtools.h.

◆ MModInc

#define MModInc ( I,
d )
Value:
if(++(I) == (d)) (I) = 0

Definition at line 91 of file PBtools.h.

◆ MModSub

#define MModSub ( I1,
I2,
d )
Value:
( ( (I1) < (I2) ) ? (d) + (I1) - (I2) : (I1) - (I2) )

Definition at line 102 of file PBtools.h.

102#define MModSub(I1, I2, d) \
103 ( ( (I1) < (I2) ) ? (d) + (I1) - (I2) : (I1) - (I2) )

◆ MModSub1

#define MModSub1 ( I,
d )
Value:
( ((I)!=0) ? (I)-1 : (d)-1 )

Definition at line 105 of file PBtools.h.

◆ Mnnxtroc

#define Mnnxtroc ( np_,
n_,
i_,
inb_,
nb_,
proc_,
srcproc_,
nprocs_ )

Definition at line 372 of file PBtools.h.

372#define Mnnxtroc( np_, n_, i_, inb_, nb_, proc_, srcproc_, nprocs_ ) \
373 { \
374 if( ( (srcproc_) >= 0 ) && ( (nprocs_) > 1 ) ) \
375 { \
376 Int inb__, mydist__, n__, nblk__, quot__, rem__, src__; \
377 if( ( inb__ = (inb_) - (i_) ) <= 0 ) \
378 { \
379 src__ = (srcproc_) + ( nblk__ = (-inb__) / (nb_) + 1 ); \
380 src__ -= ( src__ / (nprocs_) ) * (nprocs_); \
381 inb__ += nblk__*(nb_); \
382 if( ( n__ = (n_) - inb__ ) <= 0 ) { np_ = 0; } \
383 else \
384 { \
385 if( ( mydist__ = (proc_) - src__ ) < 0 ) \
386 mydist__ += (nprocs_); \
387 nblk__ = n__ / (nb_) + 1; \
388 rem__ = nblk__ - \
389 ( quot__ = ( nblk__ / (nprocs_) ) ) * (nprocs_); \
390 if( mydist__ < rem__ ) \
391 { \
392 np_ = n__ - ( quot__ * mydist__ + \
393 quot__ + mydist__ ) * (nb_); \
394 } \
395 else \
396 { \
397 np_ = ( (nprocs_) - 1 - mydist__ ) * quot__ * (nb_); \
398 } \
399 } \
400 } \
401 else \
402 { \
403 if( ( n__ = (n_) - inb__ ) <= 0 ) { np_ = 0; } \
404 else \
405 { \
406 if( ( mydist__ = (proc_) - (srcproc_) ) < 0 ) \
407 mydist__ += (nprocs_); \
408 nblk__ = n__ / (nb_) + 1; \
409 rem__ = nblk__ - \
410 ( quot__ = ( nblk__ / (nprocs_) ) ) * (nprocs_); \
411 if( mydist__ < rem__ ) \
412 { \
413 np_ = n__ - ( quot__ * mydist__ + \
414 quot__ + mydist__ ) * (nb_); \
415 } \
416 else \
417 { \
418 np_ = ( (nprocs_) - 1 - mydist__ ) * quot__ * (nb_); \
419 } \
420 } \
421 } \
422 } \
423 else \
424 { np_ = 0; } \
425 }

◆ Mnpreroc

#define Mnpreroc ( np_,
n_,
i_,
inb_,
nb_,
proc_,
srcproc_,
nprocs_ )

Definition at line 299 of file PBtools.h.

299#define Mnpreroc( np_, n_, i_, inb_, nb_, proc_, srcproc_, nprocs_ ) \
300 { \
301 if( ( (srcproc_) >= 0 ) && ( (nprocs_) > 1 ) ) \
302 { \
303 Int inb__, mydist__, n__, nblk__, quot__, rem__, src__; \
304 if( ( inb__ = (inb_) - (i_) ) <= 0 ) \
305 { \
306 src__ = (srcproc_) + ( nblk__ = (-inb__) / (nb_) + 1 ); \
307 src__ -= ( src__ / (nprocs_) ) * (nprocs_); \
308 if( (proc_) != src__ ) \
309 { \
310 inb__ += nblk__*(nb_); \
311 if( ( n__ = (n_) - inb__ ) <= 0 ) { np_ = (n_); } \
312 else \
313 { \
314 if( ( mydist__ = (proc_) - src__ ) < 0 ) \
315 mydist__ += (nprocs_); \
316 nblk__ = n__ / (nb_) + 1; \
317 rem__ = nblk__ - \
318 ( quot__ = ( nblk__ / (nprocs_) ) ) * (nprocs_); \
319 if( mydist__ <= rem__ ) \
320 { \
321 np_ = inb__ - (nb_) + \
322 ( quot__ + 1 ) * mydist__ * (nb_); \
323 } \
324 else \
325 { \
326 np_ = (n_) + \
327 ( mydist__ - (nprocs_) ) * quot__ * (nb_); \
328 } \
329 } \
330 } \
331 else \
332 { \
333 np_ = 0; \
334 } \
335 } \
336 else \
337 { \
338 if( (proc_) != (srcproc_) ) \
339 { \
340 if( ( n__ = (n_) - inb__ ) <= 0 ) { np_ = (n_); } \
341 else \
342 { \
343 if( ( mydist__ = (proc_) - (srcproc_) ) < 0 ) \
344 mydist__ += (nprocs_); \
345 nblk__ = n__ / (nb_) + 1; \
346 rem__ = nblk__ - \
347 ( quot__ = ( nblk__ / (nprocs_) ) ) * (nprocs_); \
348 if( mydist__ <= rem__ ) \
349 { \
350 np_ = inb__ - (nb_) + \
351 ( quot__ + 1 ) * mydist__ * (nb_); \
352 } \
353 else \
354 { \
355 np_ = (n_) + \
356 ( mydist__ - (nprocs_) ) * quot__ * (nb_); \
357 } \
358 } \
359 } \
360 else \
361 { \
362 np_ = 0; \
363 } \
364 } \
365 } \
366 else \
367 { \
368 np_ = 0; \
369 } \
370 }

◆ Mnumroc

#define Mnumroc ( np_,
n_,
i_,
inb_,
nb_,
proc_,
srcproc_,
nprocs_ )

Definition at line 222 of file PBtools.h.

222#define Mnumroc( np_, n_, i_, inb_, nb_, proc_, srcproc_, nprocs_ ) \
223 { \
224 if( ( (srcproc_) >= 0 ) && ( (nprocs_) > 1 ) ) \
225 { \
226 Int inb__, mydist__, n__, nblk__, quot__, src__; \
227 if( ( inb__ = (inb_) - (i_) ) <= 0 ) \
228 { \
229 src__ = (srcproc_) + ( nblk__ = (-inb__) / (nb_) + 1 ); \
230 src__ -= ( src__ / (nprocs_) ) * (nprocs_); \
231 inb__ += nblk__*(nb_); \
232 if( ( n__ = (n_) - inb__ ) <= 0 ) \
233 { if( (proc_) == src__ ) np_ = (n_); else np_ = 0; } \
234 else \
235 { \
236 if( ( mydist__ = (proc_) - src__ ) < 0 ) \
237 mydist__ += (nprocs_); \
238 nblk__ = n__ / (nb_) + 1; \
239 mydist__ -= nblk__ - \
240 ( quot__ = ( nblk__ / (nprocs_) ) ) * (nprocs_); \
241 if( mydist__ < 0 ) \
242 { \
243 if( (proc_) != src__ ) \
244 np_ = (nb_) + (nb_) * quot__; \
245 else \
246 np_ = inb__ + (nb_) * quot__; \
247 } \
248 else if( mydist__ > 0 ) \
249 { \
250 np_ = (nb_) * quot__; \
251 } \
252 else \
253 { \
254 if( (proc_) != src__ ) \
255 np_ = n__ + (nb_) + (nb_) * ( quot__ - nblk__ ); \
256 else \
257 np_ = (n_) + (nb_) * ( quot__ - nblk__ ); \
258 } \
259 } \
260 } \
261 else \
262 { \
263 if( ( n__ = (n_) - inb__ ) <= 0 ) \
264 { if( (proc_) == (srcproc_) ) np_ = (n_); else np_ = 0; } \
265 else \
266 { \
267 if( ( mydist__ = (proc_) - (srcproc_) ) < 0 ) \
268 mydist__ += (nprocs_); \
269 nblk__ = n__ / (nb_) + 1; \
270 mydist__ -= nblk__ - \
271 ( quot__ = ( nblk__ / (nprocs_) ) ) * (nprocs_); \
272 if( mydist__ < 0 ) \
273 { \
274 if( (proc_) != (srcproc_) ) \
275 np_ = (nb_) + (nb_) * quot__; \
276 else \
277 np_ = inb__ + (nb_) * quot__; \
278 } \
279 else if( mydist__ > 0 ) \
280 { \
281 np_ = (nb_) * quot__; \
282 } \
283 else \
284 { \
285 if( (proc_) != (srcproc_) ) \
286 np_ = n__ + (nb_) + (nb_) * ( quot__ - nblk__ ); \
287 else \
288 np_ = (n_) + (nb_) * ( quot__ - nblk__ ); \
289 } \
290 } \
291 } \
292 } \
293 else \
294 { \
295 np_ = (n_); \
296 } \
297 }

◆ MPosMod

#define MPosMod ( I,
d )
Value:
( (I) - ((I)/(d))*(d) )

Definition at line 95 of file PBtools.h.

◆ Mptr

#define Mptr ( a_,
i_,
j_,
lda_,
siz_ )
Value:
( (a_) + ( (long long) ( (long long)(i_)+ \
(long long)(j_)*(long long)(lda_))*(long long)(siz_) ) )

Definition at line 132 of file PBtools.h.

132#define Mptr( a_, i_, j_, lda_, siz_ ) \
133 ( (a_) + ( (long long) ( (long long)(i_)+ \
134 (long long)(j_)*(long long)(lda_))*(long long)(siz_) ) )

◆ Mspan

#define Mspan ( n_,
i_,
inb_,
nb_,
srcproc_,
nprocs_ )
Value:
( ( (srcproc_) >= 0 ) && ( ( (nprocs_) > 1 ) && \
( ( (i_) < (inb_) ) ? \
( (i_) + (n_) > (inb_) ) : \
( (i_) + (n_) > (inb_) + \
( ( (i_) - (inb_) ) / (nb_) + 1 ) * (nb_) ) ) ) )

Definition at line 160 of file PBtools.h.

160#define Mspan( n_, i_, inb_, nb_, srcproc_, nprocs_ ) \
161 ( ( (srcproc_) >= 0 ) && ( ( (nprocs_) > 1 ) && \
162 ( ( (i_) < (inb_) ) ? \
163 ( (i_) + (n_) > (inb_) ) : \
164 ( (i_) + (n_) > (inb_) + \
165 ( ( (i_) - (inb_) ) / (nb_) + 1 ) * (nb_) ) ) ) )

◆ Mupcase

#define Mupcase ( C)
Value:
(((C)>96 && (C)<123) ? (C) & 0xDF : (C))

Definition at line 83 of file PBtools.h.

◆ N1_

#define N1_   3 /* Global Number of Columns */

Definition at line 25 of file PBtools.h.

◆ N_

#define N_   3 /* Global Number of Columns */

Definition at line 40 of file PBtools.h.

◆ NB1_

#define NB1_   5 /* Column Blocking Size */

Definition at line 27 of file PBtools.h.

◆ NB_

#define NB_   7 /* Column Blocking Size */

Definition at line 44 of file PBtools.h.

◆ ONE

#define ONE   1.0

Definition at line 64 of file PBtools.h.

◆ PACKING

#define PACKING   "P"

Definition at line 53 of file PBtools.h.

◆ RSRC1_

#define RSRC1_   6 /* Starting Processor Row */

Definition at line 28 of file PBtools.h.

◆ RSRC_

#define RSRC_   8 /* Starting Process Row */

Definition at line 45 of file PBtools.h.

◆ sagemv_ [1/2]

F_VOID_FCT sagemv_   SAGEMV

Definition at line 714 of file PBtools.h.

◆ sagemv_ [2/2]

#define sagemv_   sagemv

Definition at line 714 of file PBtools.h.

◆ sascal_ [1/2]

F_VOID_FCT sascal_   SASCAL

Definition at line 673 of file PBtools.h.

◆ sascal_ [2/2]

#define sascal_   sascal

Definition at line 673 of file PBtools.h.

◆ sasqrtb_ [1/2]

F_VOID_FCT sasqrtb_   SASQRTB

Definition at line 660 of file PBtools.h.

◆ sasqrtb_ [2/2]

#define sasqrtb_   sasqrtb

Definition at line 660 of file PBtools.h.

◆ sasymv_ [1/2]

F_VOID_FCT sasymv_   SASYMV

Definition at line 719 of file PBtools.h.

◆ sasymv_ [2/2]

#define sasymv_   sasymv

Definition at line 719 of file PBtools.h.

◆ satrmv_ [1/2]

F_VOID_FCT satrmv_   SATRMV

Definition at line 726 of file PBtools.h.

◆ satrmv_ [2/2]

#define satrmv_   satrmv

Definition at line 726 of file PBtools.h.

◆ scshft_ [1/2]

F_VOID_FCT scshft_   SCSHFT

Definition at line 676 of file PBtools.h.

◆ scshft_ [2/2]

#define scshft_   scshft

Definition at line 676 of file PBtools.h.

◆ scvasum_ [1/2]

F_VOID_FCT scvasum_   SCVASUM

Definition at line 670 of file PBtools.h.

◆ scvasum_ [2/2]

#define scvasum_   scvasum

Definition at line 670 of file PBtools.h.

◆ smmadd_ [1/2]

F_VOID_FCT smmadd_   SMMADD

Definition at line 617 of file PBtools.h.

◆ smmadd_ [2/2]

#define smmadd_   smmadd

Definition at line 617 of file PBtools.h.

◆ smmcadd_ [1/2]

F_VOID_FCT smmcadd_   SMMCADD

Definition at line 628 of file PBtools.h.

◆ smmcadd_ [2/2]

#define smmcadd_   smmcadd

Definition at line 628 of file PBtools.h.

◆ smmdda_ [1/2]

F_VOID_FCT smmdda_   SMMDDA

Definition at line 639 of file PBtools.h.

◆ smmdda_ [2/2]

#define smmdda_   smmdda

Definition at line 639 of file PBtools.h.

◆ smmddac_ [1/2]

F_VOID_FCT smmddac_   SMMDDAC

Definition at line 644 of file PBtools.h.

◆ smmddac_ [2/2]

#define smmddac_   smmddac

Definition at line 644 of file PBtools.h.

◆ smmddact_ [1/2]

F_VOID_FCT smmddact_   SMMDDACT

Definition at line 655 of file PBtools.h.

◆ smmddact_ [2/2]

#define smmddact_   smmddact

Definition at line 655 of file PBtools.h.

◆ smmddat_ [1/2]

F_VOID_FCT smmddat_   SMMDDAT

Definition at line 650 of file PBtools.h.

◆ smmddat_ [2/2]

#define smmddat_   smmddat

Definition at line 650 of file PBtools.h.

◆ smmtadd_ [1/2]

F_VOID_FCT smmtadd_   SMMTADD

Definition at line 623 of file PBtools.h.

◆ smmtadd_ [2/2]

#define smmtadd_   smmtadd

Definition at line 623 of file PBtools.h.

◆ smmtcadd_ [1/2]

F_VOID_FCT smmtcadd_   SMMTCADD

Definition at line 633 of file PBtools.h.

◆ smmtcadd_ [2/2]

#define smmtcadd_   smmtcadd

Definition at line 633 of file PBtools.h.

◆ srshft_ [1/2]

F_VOID_FCT srshft_   SRSHFT

Definition at line 681 of file PBtools.h.

◆ srshft_ [2/2]

#define srshft_   srshft

Definition at line 681 of file PBtools.h.

◆ sset_ [1/2]

F_VOID_FCT sset_   SSET

Definition at line 663 of file PBtools.h.

◆ sset_ [2/2]

#define sset_   sset

Definition at line 663 of file PBtools.h.

◆ stzpad_ [1/2]

F_VOID_FCT stzpad_   STZPAD

Definition at line 693 of file PBtools.h.

◆ stzpad_ [2/2]

#define stzpad_   stzpad

Definition at line 693 of file PBtools.h.

◆ stzpadcpy_ [1/2]

F_VOID_FCT stzpadcpy_   STZPADCPY

Definition at line 698 of file PBtools.h.

◆ stzpadcpy_ [2/2]

#define stzpadcpy_   stzpadcpy

Definition at line 698 of file PBtools.h.

◆ stzscal_ [1/2]

F_VOID_FCT stzscal_   STZSCAL

Definition at line 703 of file PBtools.h.

◆ stzscal_ [2/2]

#define stzscal_   stzscal

Definition at line 703 of file PBtools.h.

◆ svasum_ [1/2]

F_VOID_FCT svasum_   SVASUM

Definition at line 668 of file PBtools.h.

◆ svasum_ [2/2]

#define svasum_   svasum

Definition at line 668 of file PBtools.h.

◆ svvdot_ [1/2]

F_VOID_FCT svvdot_   SVVDOT

Definition at line 686 of file PBtools.h.

◆ svvdot_ [2/2]

#define svvdot_   svvdot

Definition at line 686 of file PBtools.h.

◆ SYMM

#define SYMM   "S"

Definition at line 61 of file PBtools.h.

◆ TWO

#define TWO   2.0

Definition at line 65 of file PBtools.h.

◆ UNPACKING

#define UNPACKING   "U"

Definition at line 54 of file PBtools.h.

◆ zagemv_ [1/2]

F_VOID_FCT zagemv_   ZAGEMV

Definition at line 717 of file PBtools.h.

◆ zagemv_ [2/2]

#define zagemv_   zagemv

Definition at line 717 of file PBtools.h.

◆ zahemv_ [1/2]

F_VOID_FCT zahemv_   ZAHEMV

Definition at line 724 of file PBtools.h.

◆ zahemv_ [2/2]

#define zahemv_   zahemv

Definition at line 724 of file PBtools.h.

◆ zasymv_ [1/2]

F_VOID_FCT zasymv_   ZASYMV

Definition at line 722 of file PBtools.h.

◆ zasymv_ [2/2]

#define zasymv_   zasymv

Definition at line 722 of file PBtools.h.

◆ zatrmv_ [1/2]

F_VOID_FCT zatrmv_   ZATRMV

Definition at line 729 of file PBtools.h.

◆ zatrmv_ [2/2]

#define zatrmv_   zatrmv

Definition at line 729 of file PBtools.h.

◆ zcshft_ [1/2]

F_VOID_FCT zcshft_   ZCSHFT

Definition at line 679 of file PBtools.h.

◆ zcshft_ [2/2]

#define zcshft_   zcshft

Definition at line 679 of file PBtools.h.

◆ ZERO

#define ZERO   0.0

Definition at line 66 of file PBtools.h.

◆ zhescal_ [1/2]

F_VOID_FCT zhescal_   ZHESCAL

Definition at line 709 of file PBtools.h.

◆ zhescal_ [2/2]

#define zhescal_   zhescal

Definition at line 709 of file PBtools.h.

◆ zmmadd_ [1/2]

F_VOID_FCT zmmadd_   ZMMADD

Definition at line 620 of file PBtools.h.

◆ zmmadd_ [2/2]

#define zmmadd_   zmmadd

Definition at line 620 of file PBtools.h.

◆ zmmcadd_ [1/2]

F_VOID_FCT zmmcadd_   ZMMCADD

Definition at line 631 of file PBtools.h.

◆ zmmcadd_ [2/2]

#define zmmcadd_   zmmcadd

Definition at line 631 of file PBtools.h.

◆ zmmdda_ [1/2]

F_VOID_FCT zmmdda_   ZMMDDA

Definition at line 642 of file PBtools.h.

◆ zmmdda_ [2/2]

#define zmmdda_   zmmdda

Definition at line 642 of file PBtools.h.

◆ zmmddac_ [1/2]

F_VOID_FCT zmmddac_   ZMMDDAC

Definition at line 647 of file PBtools.h.

◆ zmmddac_ [2/2]

#define zmmddac_   zmmddac

Definition at line 647 of file PBtools.h.

◆ zmmddact_ [1/2]

F_VOID_FCT zmmddact_   ZMMDDACT

Definition at line 658 of file PBtools.h.

◆ zmmddact_ [2/2]

#define zmmddact_   zmmddact

Definition at line 658 of file PBtools.h.

◆ zmmddat_ [1/2]

F_VOID_FCT zmmddat_   ZMMDDAT

Definition at line 653 of file PBtools.h.

◆ zmmddat_ [2/2]

#define zmmddat_   zmmddat

Definition at line 653 of file PBtools.h.

◆ zmmtadd_ [1/2]

F_VOID_FCT zmmtadd_   ZMMTADD

Definition at line 626 of file PBtools.h.

◆ zmmtadd_ [2/2]

#define zmmtadd_   zmmtadd

Definition at line 626 of file PBtools.h.

◆ zmmtcadd_ [1/2]

F_VOID_FCT zmmtcadd_   ZMMTCADD

Definition at line 636 of file PBtools.h.

◆ zmmtcadd_ [2/2]

#define zmmtcadd_   zmmtcadd

Definition at line 636 of file PBtools.h.

◆ zrshft_ [1/2]

F_VOID_FCT zrshft_   ZRSHFT

Definition at line 684 of file PBtools.h.

◆ zrshft_ [2/2]

#define zrshft_   zrshft

Definition at line 684 of file PBtools.h.

◆ zset_ [1/2]

F_VOID_FCT zset_   ZSET

Definition at line 666 of file PBtools.h.

◆ zset_ [2/2]

#define zset_   zset

Definition at line 666 of file PBtools.h.

◆ zsymv_ [1/2]

F_VOID_FCT zsymv_   ZSYMV

Definition at line 732 of file PBtools.h.

◆ zsymv_ [2/2]

#define zsymv_   zsymv

Definition at line 732 of file PBtools.h.

◆ zsyr2_ [1/2]

F_VOID_FCT zsyr2_   ZSYR2

Definition at line 738 of file PBtools.h.

◆ zsyr2_ [2/2]

#define zsyr2_   zsyr2

Definition at line 738 of file PBtools.h.

◆ zsyr_ [1/2]

F_VOID_FCT zsyr_   ZSYR

Definition at line 735 of file PBtools.h.

◆ zsyr_ [2/2]

#define zsyr_   zsyr

Definition at line 735 of file PBtools.h.

◆ ztzcnjg_ [1/2]

F_VOID_FCT ztzcnjg_   ZTZCNJG

Definition at line 712 of file PBtools.h.

◆ ztzcnjg_ [2/2]

#define ztzcnjg_   ztzcnjg

Definition at line 712 of file PBtools.h.

◆ ztzpad_ [1/2]

F_VOID_FCT ztzpad_   ZTZPAD

Definition at line 696 of file PBtools.h.

◆ ztzpad_ [2/2]

#define ztzpad_   ztzpad

Definition at line 696 of file PBtools.h.

◆ ztzpadcpy_ [1/2]

F_VOID_FCT ztzpadcpy_   ZTZPADCPY

Definition at line 701 of file PBtools.h.

◆ ztzpadcpy_ [2/2]

#define ztzpadcpy_   ztzpadcpy

Definition at line 701 of file PBtools.h.

◆ ztzscal_ [1/2]

F_VOID_FCT ztzscal_   ZTZSCAL

Definition at line 706 of file PBtools.h.

◆ ztzscal_ [2/2]

#define ztzscal_   ztzscal

Definition at line 706 of file PBtools.h.

◆ zvvdotc_ [1/2]

F_VOID_FCT zvvdotc_   ZVVDOTC

Definition at line 690 of file PBtools.h.

◆ zvvdotc_ [2/2]

#define zvvdotc_   zvvdotc

Definition at line 690 of file PBtools.h.

◆ zvvdotu_ [1/2]

F_VOID_FCT zvvdotu_   ZVVDOTU

Definition at line 691 of file PBtools.h.

◆ zvvdotu_ [2/2]

#define zvvdotu_   zvvdotu

Definition at line 691 of file PBtools.h.

Function Documentation

◆ PB_Cabort()

void PB_Cabort ( )

◆ PB_Cainfog2l()

void PB_Cainfog2l ( )

◆ PB_CargFtoC()

void PB_CargFtoC ( )

◆ PB_Cbinfo()

void PB_Cbinfo ( )

◆ PB_Cchkmat()

void PB_Cchkmat ( )

◆ PB_Cchkvec()

void PB_Cchkvec ( )

◆ PB_Cconjg()

void PB_Cconjg ( )

◆ PB_Cctypeset()

PBTYP_T * PB_Cctypeset ( )

Definition at line 19 of file PB_Cctypeset.c.

20{
21/*
22* Purpose
23* =======
24*
25* PB_Cctypeset on the first call initializes a static structure contai-
26* ning typed information and returns a pointer to it. The other calls
27* to this routine just returns this pointer.
28*
29* -- Written on April 1, 1998 by
30* R. Clint Whaley, University of Tennessee, Knoxville 37996, USA.
31*
32* ---------------------------------------------------------------------
33*/
34/*
35* .. Local Scalars ..
36*/
37 static Int setup=0;
38 static PBTYP_T TypeStruct;
39 static cmplx zero, one, negone;
40/* ..
41* .. Executable Statements ..
42*
43*/
44 if( setup ) return( &TypeStruct );
45
46 setup = 1;
47
48 TypeStruct.type = SCPLX;
49 TypeStruct.usiz = sizeof( float );
50 TypeStruct.size = sizeof( cmplx );
51
52 zero [REAL_PART] = ZERO;
53 zero [IMAG_PART] = ZERO;
54 one [REAL_PART] = ONE;
55 one [IMAG_PART] = ZERO;
56 negone[REAL_PART] = -ONE;
57 negone[IMAG_PART] = ZERO;
58
59 TypeStruct.zero = ((char *) zero);
60 TypeStruct.one = ((char *) one);
61 TypeStruct.negone = ((char *) negone);
62
63 TypeStruct.Cgesd2d = Ccgesd2d;
64 TypeStruct.Cgerv2d = Ccgerv2d;
65 TypeStruct.Cgebs2d = Ccgebs2d;
66 TypeStruct.Cgebr2d = Ccgebr2d;
67 TypeStruct.Cgsum2d = Ccgsum2d;
68
69 TypeStruct.Fmmadd = cmmadd_;
70 TypeStruct.Fmmcadd = cmmcadd_;
71 TypeStruct.Fmmtadd = cmmtadd_;
72 TypeStruct.Fmmtcadd = cmmtcadd_;
73 TypeStruct.Fmmdda = cmmdda_;
74 TypeStruct.Fmmddac = cmmddac_;
75 TypeStruct.Fmmddat = cmmddat_;
76 TypeStruct.Fmmddact = cmmddact_;
77
78 TypeStruct.Fcshft = ccshft_;
79 TypeStruct.Frshft = crshft_;
80
81 TypeStruct.Fvvdotu = cvvdotu_;
82 TypeStruct.Fvvdotc = cvvdotc_;
83
84 TypeStruct.Fset = cset_;
85
86 TypeStruct.Ftzpad = ctzpad_;
87 TypeStruct.Ftzpadcpy = ctzpadcpy_;
88 TypeStruct.Ftzscal = ctzscal_;
89 TypeStruct.Fhescal = chescal_;
90 TypeStruct.Ftzcnjg = ctzcnjg_;
91
92 TypeStruct.Faxpy = caxpy_;
93 TypeStruct.Fcopy = ccopy_;
94 TypeStruct.Fswap = cswap_;
95
96 TypeStruct.Fgemv = cgemv_;
97 TypeStruct.Fsymv = csymv_;
98 TypeStruct.Fhemv = chemv_;
99 TypeStruct.Ftrmv = ctrmv_;
100 TypeStruct.Ftrsv = ctrsv_;
101 TypeStruct.Fagemv = cagemv_;
102 TypeStruct.Fasymv = casymv_;
103 TypeStruct.Fahemv = cahemv_;
104 TypeStruct.Fatrmv = catrmv_;
105
106 TypeStruct.Fgerc = cgerc_;
107 TypeStruct.Fgeru = cgeru_;
108 TypeStruct.Fsyr = csyr_;
109 TypeStruct.Fher = cher_;
110 TypeStruct.Fsyr2 = csyr2_;
111 TypeStruct.Fher2 = cher2_;
112
113 TypeStruct.Fgemm = cgemm_;
114 TypeStruct.Fsymm = csymm_;
115 TypeStruct.Fhemm = chemm_;
116 TypeStruct.Fsyrk = csyrk_;
117 TypeStruct.Fherk = cherk_;
118 TypeStruct.Fsyr2k = csyr2k_;
119 TypeStruct.Fher2k = cher2k_;
120 TypeStruct.Ftrmm = ctrmm_;
121 TypeStruct.Ftrsm = ctrsm_;
122
123 return( &TypeStruct );
124/*
125* End of PB_Cctypeset
126*/
127}
Int
#define Int
Definition Bconfig.h:22
REAL_PART
#define REAL_PART
Definition pblas.h:139
cmplx
float cmplx[2]
Definition pblas.h:136
SCPLX
#define SCPLX
Definition pblas.h:475
IMAG_PART
#define IMAG_PART
Definition pblas.h:140
Ccgesd2d
void Ccgesd2d()
Ccgebr2d
void Ccgebr2d()
Ccgerv2d
void Ccgerv2d()
Ccgebs2d
void Ccgebs2d()
Ccgsum2d
void Ccgsum2d()
cgerc_
#define cgerc_
Definition PBblas.h:163
csymm_
#define csymm_
Definition PBblas.h:183
cgemv_
#define cgemv_
Definition PBblas.h:141
cher2_
#define cher2_
Definition PBblas.h:173
cgemm_
#define cgemm_
Definition PBblas.h:178
caxpy_
#define caxpy_
Definition PBblas.h:107
chemm_
#define chemm_
Definition PBblas.h:184
ctrmv_
#define ctrmv_
Definition PBblas.h:151
cher2k_
#define cher2k_
Definition PBblas.h:208
cherk_
#define cherk_
Definition PBblas.h:201
ccopy_
#define ccopy_
Definition PBblas.h:102
ctrmm_
#define ctrmm_
Definition PBblas.h:190
csyr2k_
#define csyr2k_
Definition PBblas.h:207
cgeru_
#define cgeru_
Definition PBblas.h:161
cher_
#define cher_
Definition PBblas.h:168
chemv_
#define chemv_
Definition PBblas.h:146
cswap_
#define cswap_
Definition PBblas.h:97
ctrsm_
#define ctrsm_
Definition PBblas.h:195
ctrsv_
#define ctrsv_
Definition PBblas.h:156
csyrk_
#define csyrk_
Definition PBblas.h:200
cagemv_
#define cagemv_
Definition PBtools.h:716
chescal_
#define chescal_
Definition PBtools.h:708
ONE
#define ONE
Definition PBtools.h:64
crshft_
#define crshft_
Definition PBtools.h:683
ccshft_
#define ccshft_
Definition PBtools.h:678
cmmddat_
#define cmmddat_
Definition PBtools.h:652
catrmv_
#define catrmv_
Definition PBtools.h:728
cmmcadd_
#define cmmcadd_
Definition PBtools.h:630
cmmdda_
#define cmmdda_
Definition PBtools.h:641
csyr2_
#define csyr2_
Definition PBtools.h:737
cahemv_
#define cahemv_
Definition PBtools.h:723
cmmddact_
#define cmmddact_
Definition PBtools.h:657
casymv_
#define casymv_
Definition PBtools.h:721
cvvdotc_
#define cvvdotc_
Definition PBtools.h:688
cmmadd_
#define cmmadd_
Definition PBtools.h:619
cset_
#define cset_
Definition PBtools.h:665
cmmddac_
#define cmmddac_
Definition PBtools.h:646
cmmtadd_
#define cmmtadd_
Definition PBtools.h:625
cmmtcadd_
#define cmmtcadd_
Definition PBtools.h:635
ctzcnjg_
#define ctzcnjg_
Definition PBtools.h:711
cvvdotu_
#define cvvdotu_
Definition PBtools.h:689
csyr_
#define csyr_
Definition PBtools.h:734
ZERO
#define ZERO
Definition PBtools.h:66
csymv_
#define csymv_
Definition PBtools.h:731
ctzpad_
#define ctzpad_
Definition PBtools.h:695
ctzpadcpy_
#define ctzpadcpy_
Definition PBtools.h:700
ctzscal_
#define ctzscal_
Definition PBtools.h:705
PBTYP_T
Definition pblas.h:330
PBTYP_T::Fatrmv
ATRMV_T Fatrmv
Definition pblas.h:381
PBTYP_T::type
char type
Definition pblas.h:331
PBTYP_T::usiz
Int usiz
Definition pblas.h:332
PBTYP_T::Ftrsm
TRSM_T Ftrsm
Definition pblas.h:398
PBTYP_T::Ftzpadcpy
TZPADCPY_T Ftzpadcpy
Definition pblas.h:361
PBTYP_T::Fcopy
COPY_T Fcopy
Definition pblas.h:369
PBTYP_T::Fvvdotc
VVDOT_T Fvvdotc
Definition pblas.h:358
PBTYP_T::Fmmddac
MMADD_T Fmmddac
Definition pblas.h:350
PBTYP_T::Fahemv
AHEMV_T Fahemv
Definition pblas.h:380
PBTYP_T::Fvvdotu
VVDOT_T Fvvdotu
Definition pblas.h:357
PBTYP_T::Fagemv
AGEMV_T Fagemv
Definition pblas.h:378
PBTYP_T::Fsymm
SYMM_T Fsymm
Definition pblas.h:391
PBTYP_T::Fsyr2k
SYR2K_T Fsyr2k
Definition pblas.h:395
PBTYP_T::Fswap
SWAP_T Fswap
Definition pblas.h:370
PBTYP_T::Fhemv
HEMV_T Fhemv
Definition pblas.h:374
PBTYP_T::Ftrmm
TRMM_T Ftrmm
Definition pblas.h:397
PBTYP_T::Fsymv
SYMV_T Fsymv
Definition pblas.h:373
PBTYP_T::Fmmadd
MMADD_T Fmmadd
Definition pblas.h:345
PBTYP_T::Fsyr2
SYR2_T Fsyr2
Definition pblas.h:387
PBTYP_T::Ftrsv
TRSV_T Ftrsv
Definition pblas.h:376
PBTYP_T::Fmmdda
MMADD_T Fmmdda
Definition pblas.h:349
PBTYP_T::Fher
HER_T Fher
Definition pblas.h:386
PBTYP_T::Fher2k
HER2K_T Fher2k
Definition pblas.h:396
PBTYP_T::Fgemv
GEMV_T Fgemv
Definition pblas.h:372
PBTYP_T::size
Int size
Definition pblas.h:333
PBTYP_T::Cgsum2d
GSUM2D_T Cgsum2d
Definition pblas.h:343
PBTYP_T::Cgerv2d
GERV2D_T Cgerv2d
Definition pblas.h:340
PBTYP_T::Ftzcnjg
TZSCAL_T Ftzcnjg
Definition pblas.h:366
PBTYP_T::Fgemm
GEMM_T Fgemm
Definition pblas.h:390
PBTYP_T::Fhemm
HEMM_T Fhemm
Definition pblas.h:392
PBTYP_T::Fmmddact
MMADD_T Fmmddact
Definition pblas.h:352
PBTYP_T::Fasymv
ASYMV_T Fasymv
Definition pblas.h:379
PBTYP_T::Fhescal
TZSCAL_T Fhescal
Definition pblas.h:365
PBTYP_T::Fmmddat
MMADD_T Fmmddat
Definition pblas.h:351
PBTYP_T::Cgebr2d
GEBR2D_T Cgebr2d
Definition pblas.h:342
PBTYP_T::Fgeru
GERU_T Fgeru
Definition pblas.h:384
PBTYP_T::Fsyrk
SYRK_T Fsyrk
Definition pblas.h:393
PBTYP_T::Fmmtcadd
MMADD_T Fmmtcadd
Definition pblas.h:348
PBTYP_T::Cgesd2d
GESD2D_T Cgesd2d
Definition pblas.h:339
PBTYP_T::zero
char * zero
Definition pblas.h:335
PBTYP_T::Fcshft
MMSHFT_T Fcshft
Definition pblas.h:354
PBTYP_T::Ftrmv
TRMV_T Ftrmv
Definition pblas.h:375
PBTYP_T::Fherk
HERK_T Fherk
Definition pblas.h:394
PBTYP_T::Ftzscal
TZSCAL_T Ftzscal
Definition pblas.h:364
PBTYP_T::negone
char * negone
Definition pblas.h:337
PBTYP_T::one
char * one
Definition pblas.h:336
PBTYP_T::Fmmcadd
MMADD_T Fmmcadd
Definition pblas.h:346
PBTYP_T::Fset
VVSET_T Fset
Definition pblas.h:362
PBTYP_T::Ftzpad
TZPAD_T Ftzpad
Definition pblas.h:360
PBTYP_T::Cgebs2d
GEBS2D_T Cgebs2d
Definition pblas.h:341
PBTYP_T::Fsyr
SYR_T Fsyr
Definition pblas.h:385
PBTYP_T::Fgerc
GERC_T Fgerc
Definition pblas.h:383
PBTYP_T::Fmmtadd
MMADD_T Fmmtadd
Definition pblas.h:347
PBTYP_T::Frshft
MMSHFT_T Frshft
Definition pblas.h:355
PBTYP_T::Faxpy
AXPY_T Faxpy
Definition pblas.h:368
PBTYP_T::Fher2
HER2_T Fher2
Definition pblas.h:388

◆ PB_Cdescribe()

void PB_Cdescribe ( )

◆ PB_Cdescset()

void PB_Cdescset ( )

◆ PB_Cdtypeset()

PBTYP_T * PB_Cdtypeset ( )

Definition at line 19 of file PB_Cdtypeset.c.

20{
21/*
22* Purpose
23* =======
24*
25* PB_Cdtypeset on the first call initializes a static structure contai-
26* ning typed information and returns a pointer to it. The other calls
27* to this routine just returns this pointer.
28*
29* -- Written on April 1, 1998 by
30* R. Clint Whaley, University of Tennessee, Knoxville 37996, USA.
31*
32* ---------------------------------------------------------------------
33*/
34/*
35* .. Local Scalars ..
36*/
37 static Int setup=0;
38 static PBTYP_T TypeStruct;
39 static double zero, one, negone;
40/* ..
41* .. Executable Statements ..
42*
43*/
44 if( setup ) return( &TypeStruct );
45
46 setup = 1;
47
48 TypeStruct.type = DREAL;
49 TypeStruct.usiz = sizeof( double );
50 TypeStruct.size = sizeof( double );
51
52 zero = ZERO;
53 one = ONE;
54 negone = -ONE;
55
56 TypeStruct.zero = (char *) (&zero);
57 TypeStruct.one = (char *) (&one);
58 TypeStruct.negone = (char *) (&negone);
59
60 TypeStruct.Cgesd2d = Cdgesd2d;
61 TypeStruct.Cgerv2d = Cdgerv2d;
62 TypeStruct.Cgebs2d = Cdgebs2d;
63 TypeStruct.Cgebr2d = Cdgebr2d;
64 TypeStruct.Cgsum2d = Cdgsum2d;
65
66 TypeStruct.Fmmadd = dmmadd_;
67 TypeStruct.Fmmcadd = dmmcadd_;
68 TypeStruct.Fmmtadd = dmmtadd_;
69 TypeStruct.Fmmtcadd = dmmtcadd_;
70 TypeStruct.Fmmdda = dmmdda_;
71 TypeStruct.Fmmddac = dmmddac_;
72 TypeStruct.Fmmddat = dmmddat_;
73 TypeStruct.Fmmddact = dmmddact_;
74
75 TypeStruct.Fcshft = dcshft_;
76 TypeStruct.Frshft = drshft_;
77
78 TypeStruct.Fvvdotu = dvvdot_;
79 TypeStruct.Fvvdotc = dvvdot_;
80
81 TypeStruct.Fset = dset_;
82
83 TypeStruct.Ftzpad = dtzpad_;
84 TypeStruct.Ftzpadcpy = dtzpadcpy_;
85 TypeStruct.Ftzscal = dtzscal_;
86 TypeStruct.Fhescal = dtzscal_;
87 TypeStruct.Ftzcnjg = dtzscal_;
88
89 TypeStruct.Faxpy = daxpy_;
90 TypeStruct.Fcopy = dcopy_;
91 TypeStruct.Fswap = dswap_;
92
93 TypeStruct.Fgemv = dgemv_;
94 TypeStruct.Fsymv = dsymv_;
95 TypeStruct.Fhemv = dsymv_;
96 TypeStruct.Ftrmv = dtrmv_;
97 TypeStruct.Ftrsv = dtrsv_;
98 TypeStruct.Fagemv = dagemv_;
99 TypeStruct.Fasymv = dasymv_;
100 TypeStruct.Fahemv = dasymv_;
101 TypeStruct.Fatrmv = datrmv_;
102
103 TypeStruct.Fgerc = dger_;
104 TypeStruct.Fgeru = dger_;
105 TypeStruct.Fsyr = dsyr_;
106 TypeStruct.Fher = dsyr_;
107 TypeStruct.Fsyr2 = dsyr2_;
108 TypeStruct.Fher2 = dsyr2_;
109
110 TypeStruct.Fgemm = dgemm_;
111 TypeStruct.Fsymm = dsymm_;
112 TypeStruct.Fhemm = dsymm_;
113 TypeStruct.Fsyrk = dsyrk_;
114 TypeStruct.Fherk = dsyrk_;
115 TypeStruct.Fsyr2k = dsyr2k_;
116 TypeStruct.Fher2k = dsyr2k_;
117 TypeStruct.Ftrmm = dtrmm_;
118 TypeStruct.Ftrsm = dtrsm_;
119
120 return( &TypeStruct );
121/*
122* End of PB_Cdtypeset
123*/
124}
DREAL
#define DREAL
Definition pblas.h:474
Cdgebr2d
void Cdgebr2d()
Cdgerv2d
void Cdgerv2d()
Cdgebs2d
void Cdgebs2d()
Cdgesd2d
void Cdgesd2d()
Cdgsum2d
void Cdgsum2d()
dswap_
#define dswap_
Definition PBblas.h:96
dtrsv_
#define dtrsv_
Definition PBblas.h:155
dger_
#define dger_
Definition PBblas.h:160
dgemm_
#define dgemm_
Definition PBblas.h:177
dtrsm_
#define dtrsm_
Definition PBblas.h:194
dtrmv_
#define dtrmv_
Definition PBblas.h:150
dcopy_
#define dcopy_
Definition PBblas.h:101
dtrmm_
#define dtrmm_
Definition PBblas.h:189
dsyrk_
#define dsyrk_
Definition PBblas.h:199
dsyr2_
#define dsyr2_
Definition PBblas.h:172
dsyr2k_
#define dsyr2k_
Definition PBblas.h:206
dsyr_
#define dsyr_
Definition PBblas.h:167
dgemv_
#define dgemv_
Definition PBblas.h:140
dsymv_
#define dsymv_
Definition PBblas.h:145
daxpy_
#define daxpy_
Definition PBblas.h:106
dsymm_
#define dsymm_
Definition PBblas.h:182
datrmv_
#define datrmv_
Definition PBtools.h:727
dtzpad_
#define dtzpad_
Definition PBtools.h:694
dvvdot_
#define dvvdot_
Definition PBtools.h:687
dmmdda_
#define dmmdda_
Definition PBtools.h:640
dmmddact_
#define dmmddact_
Definition PBtools.h:656
dasymv_
#define dasymv_
Definition PBtools.h:720
drshft_
#define drshft_
Definition PBtools.h:682
dmmtcadd_
#define dmmtcadd_
Definition PBtools.h:634
dmmcadd_
#define dmmcadd_
Definition PBtools.h:629
dmmtadd_
#define dmmtadd_
Definition PBtools.h:624
dmmddat_
#define dmmddat_
Definition PBtools.h:651
dtzpadcpy_
#define dtzpadcpy_
Definition PBtools.h:699
dagemv_
#define dagemv_
Definition PBtools.h:715
dtzscal_
#define dtzscal_
Definition PBtools.h:704
dmmadd_
#define dmmadd_
Definition PBtools.h:618
dmmddac_
#define dmmddac_
Definition PBtools.h:645
dset_
#define dset_
Definition PBtools.h:664
dcshft_
#define dcshft_
Definition PBtools.h:677

◆ PB_Cfirstnb()

Int PB_Cfirstnb ( )

◆ PB_Cg2lrem()

Int PB_Cg2lrem ( )

◆ PB_CGatherV()

void PB_CGatherV ( )

◆ PB_Cgcd()

Int PB_Cgcd ( )

◆ PB_Cgetbuf()

char * PB_Cgetbuf ( )

◆ PB_Cindxg2p()

Int PB_Cindxg2p ( )

◆ PB_Cinfog2l()

void PB_Cinfog2l ( )

◆ PB_CInOutV()

void PB_CInOutV ( )

◆ PB_CInOutV2()

void PB_CInOutV2 ( )

◆ PB_CInV()

void PB_CInV ( )

◆ PB_CInV2()

void PB_CInV2 ( )

◆ PB_Citypeset()

PBTYP_T * PB_Citypeset ( )

Definition at line 19 of file PB_Citypeset.c.

20{
21/*
22* Purpose
23* =======
24*
25* PB_Citypeset on the first call initializes a static structure contai-
26* ning typed information and returns a pointer to it. The other calls
27* to this routine just returns this pointer.
28*
29* -- Written on April 1, 1998 by
30* R. Clint Whaley, University of Tennessee, Knoxville 37996, USA.
31*
32* ---------------------------------------------------------------------
33*/
34/*
35* .. Local Scalars ..
36*/
37 static Int setup=0;
38 static PBTYP_T TypeStruct;
39 static Int zero, one, negone;
40/* ..
41* .. Executable Statements ..
42*
43*/
44 if( setup ) return( &TypeStruct );
45
46 setup = 1;
47
48 TypeStruct.type = INT;
49 TypeStruct.usiz = sizeof( Int );
50 TypeStruct.size = sizeof( Int );
51 zero = 0;
52 one = 1;
53 negone = -1;
54
55 TypeStruct.zero = (char *) (&zero);
56 TypeStruct.one = (char *) (&one);
57 TypeStruct.negone = (char *) (&negone);
58
59 TypeStruct.Cgesd2d = Cigesd2d;
60 TypeStruct.Cgerv2d = Cigerv2d;
61 TypeStruct.Cgebs2d = Cigebs2d;
62 TypeStruct.Cgebr2d = Cigebr2d;
63 TypeStruct.Cgsum2d = Cigsum2d;
64
65 TypeStruct.Fmmadd = immadd_;
66 TypeStruct.Fmmcadd = immadd_;
67 TypeStruct.Fmmtadd = immtadd_;
68 TypeStruct.Fmmtcadd = immtadd_;
69 TypeStruct.Fmmdda = immdda_;
70 TypeStruct.Fmmddac = immdda_;
71 TypeStruct.Fmmddat = immddat_;
72 TypeStruct.Fmmddact = immddat_;
73
74 TypeStruct.Fcshft = NULL;
75 TypeStruct.Frshft = NULL;
76
77 TypeStruct.Fvvdotu = NULL;
78 TypeStruct.Fvvdotc = NULL;
79
80 TypeStruct.Fset = NULL;
81
82 TypeStruct.Ftzpad = NULL;
83 TypeStruct.Ftzpadcpy = NULL;
84
85 TypeStruct.Ftzscal = NULL;
86 TypeStruct.Fhescal = NULL;
87 TypeStruct.Ftzcnjg = NULL;
88
89 TypeStruct.Faxpy = NULL;
90 TypeStruct.Fcopy = NULL;
91 TypeStruct.Fswap = NULL;
92
93 TypeStruct.Fgemv = NULL;
94 TypeStruct.Fsymv = NULL;
95 TypeStruct.Fhemv = NULL;
96 TypeStruct.Ftrmv = NULL;
97 TypeStruct.Ftrsv = NULL;
98 TypeStruct.Fagemv = NULL;
99 TypeStruct.Fasymv = NULL;
100 TypeStruct.Fahemv = NULL;
101 TypeStruct.Fatrmv = NULL;
102
103 TypeStruct.Fgerc = NULL;
104 TypeStruct.Fgeru = NULL;
105 TypeStruct.Fsyr = NULL;
106 TypeStruct.Fher = NULL;
107 TypeStruct.Fsyr2 = NULL;
108 TypeStruct.Fher2 = NULL;
109
110 TypeStruct.Fgemm = NULL;
111 TypeStruct.Fsymm = NULL;
112 TypeStruct.Fhemm = NULL;
113 TypeStruct.Fsyrk = NULL;
114 TypeStruct.Fherk = NULL;
115 TypeStruct.Fsyr2k = NULL;
116 TypeStruct.Fher2k = NULL;
117 TypeStruct.Ftrmm = NULL;
118 TypeStruct.Ftrsm = NULL;
119
120 return( &TypeStruct );
121/*
122* End of PB_Citypeset
123*/
124}
INT
#define INT
Definition pblas.h:472
Cigsum2d
void Cigsum2d()
Cigerv2d
void Cigerv2d()
Cigebs2d
void Cigebs2d()
Cigesd2d
void Cigesd2d()
Cigebr2d
void Cigebr2d()
immadd_
#define immadd_
Definition PBtools.h:616
immdda_
#define immdda_
Definition PBtools.h:638
immddat_
#define immddat_
Definition PBtools.h:649
immtadd_
#define immtadd_
Definition PBtools.h:622

◆ PB_Clastnb()

Int PB_Clastnb ( )

◆ PB_Clcm()

Int PB_Clcm ( )

◆ PB_Cmalloc()

char * PB_Cmalloc ( )

◆ PB_Cnnxtroc()

Int PB_Cnnxtroc ( )

◆ PB_Cnpreroc()

Int PB_Cnpreroc ( )

◆ PB_Cnumroc()

Int PB_Cnumroc ( )

◆ PB_COutV()

void PB_COutV ( )

◆ PB_Cpaxpby()

void PB_Cpaxpby ( )

◆ PB_CpaxpbyDN()

void PB_CpaxpbyDN ( )

◆ PB_CpaxpbyND()

void PB_CpaxpbyND ( )

◆ PB_CpaxpbyNN()

void PB_CpaxpbyNN ( )

◆ PB_Cpdot11()

void PB_Cpdot11 ( )

◆ PB_CpdotND()

void PB_CpdotND ( )

◆ PB_CpdotNN()

void PB_CpdotNN ( )

◆ PB_Cpgeadd()

void PB_Cpgeadd ( )

◆ PB_CpgemmAB()

void PB_CpgemmAB ( )

◆ PB_CpgemmAC()

void PB_CpgemmAC ( )

◆ PB_CpgemmBC()

void PB_CpgemmBC ( )

◆ PB_Cplacnjg()

void PB_Cplacnjg ( )

◆ PB_Cplapad()

void PB_Cplapad ( )

◆ PB_Cplapd2()

void PB_Cplapd2 ( )

◆ PB_Cplaprn2()

void PB_Cplaprn2 ( )

◆ PB_Cplaprnt()

void PB_Cplaprnt ( )

◆ PB_Cplasca2()

void PB_Cplasca2 ( )

◆ PB_Cplascal()

void PB_Cplascal ( )

◆ PB_Cprnt()

void PB_Cprnt ( )

◆ PB_CpswapND()

void PB_CpswapND ( )

◆ PB_CpswapNN()

void PB_CpswapNN ( )

◆ PB_Cpsym()

void PB_Cpsym ( )

◆ PB_CpsymmAB()

void PB_CpsymmAB ( )

◆ PB_CpsymmBC()

void PB_CpsymmBC ( )

◆ PB_Cpsyr()

void PB_Cpsyr ( )

◆ PB_Cpsyr2()

void PB_Cpsyr2 ( )

◆ PB_Cpsyr2kA()

void PB_Cpsyr2kA ( )

◆ PB_Cpsyr2kAC()

void PB_Cpsyr2kAC ( )

◆ PB_CpsyrkA()

void PB_CpsyrkA ( )

◆ PB_CpsyrkAC()

void PB_CpsyrkAC ( )

◆ PB_Cptradd()

void PB_Cptradd ( )

◆ PB_Cptran()

void PB_Cptran ( )

◆ PB_Cptrm()

void PB_Cptrm ( )

◆ PB_CptrmmAB()

void PB_CptrmmAB ( )

◆ PB_CptrmmB()

void PB_CptrmmB ( )

◆ PB_Cptrsm()

void PB_Cptrsm ( )

◆ PB_CptrsmAB()

void PB_CptrsmAB ( )

◆ PB_CptrsmAB0()

void PB_CptrsmAB0 ( )

◆ PB_CptrsmAB1()

void PB_CptrsmAB1 ( )

◆ PB_CptrsmB()

void PB_CptrsmB ( )

◆ PB_Cptrsv()

void PB_Cptrsv ( )

◆ PB_CScatterV()

void PB_CScatterV ( )

◆ PB_Cspan()

Int PB_Cspan ( )

◆ PB_Cstypeset()

PBTYP_T * PB_Cstypeset ( )

Definition at line 19 of file PB_Cstypeset.c.

20{
21/*
22* Purpose
23* =======
24*
25* PB_Cstypeset on the first call initializes a static structure contai-
26* ning typed information and returns a pointer to it. The other calls
27* to this routine just returns this pointer.
28*
29* -- Written on April 1, 1998 by
30* R. Clint Whaley, University of Tennessee, Knoxville 37996, USA.
31*
32* ---------------------------------------------------------------------
33*/
34/*
35* .. Local Scalars ..
36*/
37 static Int setup=0;
38 static PBTYP_T TypeStruct;
39 static float zero, one, negone;
40/* ..
41* .. Executable Statements ..
42*
43*/
44 if( setup ) return( &TypeStruct );
45
46 setup = 1;
47
48 TypeStruct.type = SREAL;
49 TypeStruct.usiz = sizeof( float );
50 TypeStruct.size = sizeof( float );
51
52 zero = ZERO;
53 one = ONE;
54 negone = -ONE;
55
56 TypeStruct.zero = (char *) (&zero);
57 TypeStruct.one = (char *) (&one);
58 TypeStruct.negone = (char *) (&negone);
59
60 TypeStruct.Cgesd2d = Csgesd2d;
61 TypeStruct.Cgerv2d = Csgerv2d;
62 TypeStruct.Cgebs2d = Csgebs2d;
63 TypeStruct.Cgebr2d = Csgebr2d;
64 TypeStruct.Cgsum2d = Csgsum2d;
65
66 TypeStruct.Fmmadd = smmadd_;
67 TypeStruct.Fmmcadd = smmcadd_;
68 TypeStruct.Fmmtadd = smmtadd_;
69 TypeStruct.Fmmtcadd = smmtcadd_;
70 TypeStruct.Fmmdda = smmdda_;
71 TypeStruct.Fmmddac = smmddac_;
72 TypeStruct.Fmmddat = smmddat_;
73 TypeStruct.Fmmddact = smmddact_;
74
75 TypeStruct.Fcshft = scshft_;
76 TypeStruct.Frshft = srshft_;
77
78 TypeStruct.Fvvdotu = svvdot_;
79 TypeStruct.Fvvdotc = svvdot_;
80
81 TypeStruct.Fset = sset_;
82
83 TypeStruct.Ftzpad = stzpad_;
84 TypeStruct.Ftzpadcpy = stzpadcpy_;
85 TypeStruct.Ftzscal = stzscal_;
86 TypeStruct.Fhescal = stzscal_;
87 TypeStruct.Ftzcnjg = stzscal_;
88
89 TypeStruct.Faxpy = saxpy_;
90 TypeStruct.Fcopy = scopy_;
91 TypeStruct.Fswap = sswap_;
92
93 TypeStruct.Fgemv = sgemv_;
94 TypeStruct.Fsymv = ssymv_;
95 TypeStruct.Fhemv = ssymv_;
96 TypeStruct.Ftrmv = strmv_;
97 TypeStruct.Ftrsv = strsv_;
98 TypeStruct.Fagemv = sagemv_;
99 TypeStruct.Fasymv = sasymv_;
100 TypeStruct.Fahemv = sasymv_;
101 TypeStruct.Fatrmv = satrmv_;
102
103 TypeStruct.Fgerc = sger_;
104 TypeStruct.Fgeru = sger_;
105 TypeStruct.Fsyr = ssyr_;
106 TypeStruct.Fher = ssyr_;
107 TypeStruct.Fsyr2 = ssyr2_;
108 TypeStruct.Fher2 = ssyr2_;
109
110 TypeStruct.Fgemm = sgemm_;
111 TypeStruct.Fsymm = ssymm_;
112 TypeStruct.Fhemm = ssymm_;
113 TypeStruct.Fsyrk = ssyrk_;
114 TypeStruct.Fherk = ssyrk_;
115 TypeStruct.Fsyr2k = ssyr2k_;
116 TypeStruct.Fher2k = ssyr2k_;
117 TypeStruct.Ftrmm = strmm_;
118 TypeStruct.Ftrsm = strsm_;
119
120 return( &TypeStruct );
121/*
122* End of PB_Cstypeset
123*/
124}
SREAL
#define SREAL
Definition pblas.h:473
Csgerv2d
void Csgerv2d()
Csgebr2d
void Csgebr2d()
Csgebs2d
void Csgebs2d()
Csgsum2d
void Csgsum2d()
Csgesd2d
void Csgesd2d()
ssymm_
#define ssymm_
Definition PBblas.h:181
strmv_
#define strmv_
Definition PBblas.h:149
sger_
#define sger_
Definition PBblas.h:159
strmm_
#define strmm_
Definition PBblas.h:188
sswap_
#define sswap_
Definition PBblas.h:95
strsv_
#define strsv_
Definition PBblas.h:154
ssyr2_
#define ssyr2_
Definition PBblas.h:171
strsm_
#define strsm_
Definition PBblas.h:193
sgemm_
#define sgemm_
Definition PBblas.h:176
scopy_
#define scopy_
Definition PBblas.h:100
sgemv_
#define sgemv_
Definition PBblas.h:139
ssyrk_
#define ssyrk_
Definition PBblas.h:198
ssyr_
#define ssyr_
Definition PBblas.h:166
ssymv_
#define ssymv_
Definition PBblas.h:144
ssyr2k_
#define ssyr2k_
Definition PBblas.h:205
saxpy_
#define saxpy_
Definition PBblas.h:105
smmddac_
#define smmddac_
Definition PBtools.h:644
smmddat_
#define smmddat_
Definition PBtools.h:650
stzpad_
#define stzpad_
Definition PBtools.h:693
satrmv_
#define satrmv_
Definition PBtools.h:726
svvdot_
#define svvdot_
Definition PBtools.h:686
smmdda_
#define smmdda_
Definition PBtools.h:639
smmcadd_
#define smmcadd_
Definition PBtools.h:628
smmadd_
#define smmadd_
Definition PBtools.h:617
stzscal_
#define stzscal_
Definition PBtools.h:703
smmddact_
#define smmddact_
Definition PBtools.h:655
scshft_
#define scshft_
Definition PBtools.h:676
smmtcadd_
#define smmtcadd_
Definition PBtools.h:633
stzpadcpy_
#define stzpadcpy_
Definition PBtools.h:698
sasymv_
#define sasymv_
Definition PBtools.h:719
sagemv_
#define sagemv_
Definition PBtools.h:714
srshft_
#define srshft_
Definition PBtools.h:681
smmtadd_
#define smmtadd_
Definition PBtools.h:623
sset_
#define sset_
Definition PBtools.h:663

◆ PB_Ctop()

char * PB_Ctop ( )

◆ PB_Ctzahemv()

void PB_Ctzahemv ( )

◆ PB_Ctzasymv()

void PB_Ctzasymv ( )

◆ PB_Ctzatrmv()

void PB_Ctzatrmv ( )

◆ PB_Ctzhemm()

void PB_Ctzhemm ( )

◆ PB_Ctzhemv()

void PB_Ctzhemv ( )

◆ PB_Ctzher()

void PB_Ctzher ( )

◆ PB_Ctzher2()

void PB_Ctzher2 ( )

◆ PB_Ctzher2k()

void PB_Ctzher2k ( )

◆ PB_Ctzherk()

void PB_Ctzherk ( )

◆ PB_Ctzsymm()

void PB_Ctzsymm ( )

◆ PB_Ctzsymv()

void PB_Ctzsymv ( )

◆ PB_Ctzsyr()

void PB_Ctzsyr ( )

◆ PB_Ctzsyr2()

void PB_Ctzsyr2 ( )

◆ PB_Ctzsyr2k()

void PB_Ctzsyr2k ( )

◆ PB_Ctzsyrk()

void PB_Ctzsyrk ( )

◆ PB_Ctztrmm()

void PB_Ctztrmm ( )

◆ PB_Ctztrmv()

void PB_Ctztrmv ( )

◆ PB_CVMcontig()

void PB_CVMcontig ( )

◆ PB_CVMinit()

void PB_CVMinit ( )

◆ PB_CVMloc()

Int PB_CVMloc ( )

◆ PB_CVMnpq()

Int PB_CVMnpq ( )

◆ PB_CVMpack()

Int PB_CVMpack ( )

◆ PB_CVMswp()

Int PB_CVMswp ( )

◆ PB_CVMupdate()

void PB_CVMupdate ( )

◆ PB_Cwarn()

void PB_Cwarn ( )

◆ PB_Cztypeset()

PBTYP_T * PB_Cztypeset ( )

Definition at line 19 of file PB_Cztypeset.c.

20{
21/*
22* Purpose
23* =======
24*
25* PB_Cztypeset on the first call initializes a static structure contai-
26* ning typed information and returns a pointer to it. The other calls
27* to this routine just returns this pointer.
28*
29* -- Written on April 1, 1998 by
30* R. Clint Whaley, University of Tennessee, Knoxville 37996, USA.
31*
32* ---------------------------------------------------------------------
33*/
34/*
35* .. Local Scalars ..
36*/
37 static Int setup=0;
38 static PBTYP_T TypeStruct;
39 static cmplx16 zero, one, negone;
40/* ..
41* .. Executable Statements ..
42*
43*/
44 if( setup ) return( &TypeStruct );
45
46 setup = 1;
47
48 TypeStruct.type = DCPLX;
49 TypeStruct.usiz = sizeof( double );
50 TypeStruct.size = sizeof( cmplx16 );
51
52 zero [REAL_PART] = ZERO;
53 zero [IMAG_PART] = ZERO;
54 one [REAL_PART] = ONE;
55 one [IMAG_PART] = ZERO;
56 negone[REAL_PART] = -ONE;
57 negone[IMAG_PART] = ZERO;
58
59 TypeStruct.zero = ((char *) zero);
60 TypeStruct.one = ((char *) one);
61 TypeStruct.negone = ((char *) negone);
62
63 TypeStruct.Cgesd2d = Czgesd2d;
64 TypeStruct.Cgerv2d = Czgerv2d;
65 TypeStruct.Cgebs2d = Czgebs2d;
66 TypeStruct.Cgebr2d = Czgebr2d;
67 TypeStruct.Cgsum2d = Czgsum2d;
68
69 TypeStruct.Fmmadd = zmmadd_;
70 TypeStruct.Fmmcadd = zmmcadd_;
71 TypeStruct.Fmmtadd = zmmtadd_;
72 TypeStruct.Fmmtcadd = zmmtcadd_;
73 TypeStruct.Fmmdda = zmmdda_;
74 TypeStruct.Fmmddac = zmmddac_;
75 TypeStruct.Fmmddat = zmmddat_;
76 TypeStruct.Fmmddact = zmmddact_;
77
78 TypeStruct.Fcshft = zcshft_;
79 TypeStruct.Frshft = zrshft_;
80
81 TypeStruct.Fvvdotu = zvvdotu_;
82 TypeStruct.Fvvdotc = zvvdotc_;
83
84 TypeStruct.Fset = zset_;
85
86 TypeStruct.Ftzpad = ztzpad_;
87 TypeStruct.Ftzpadcpy = ztzpadcpy_;
88 TypeStruct.Ftzscal = ztzscal_;
89 TypeStruct.Fhescal = zhescal_;
90 TypeStruct.Ftzcnjg = ztzcnjg_;
91
92 TypeStruct.Faxpy = zaxpy_;
93 TypeStruct.Fcopy = zcopy_;
94 TypeStruct.Fswap = zswap_;
95
96 TypeStruct.Fgemv = zgemv_;
97 TypeStruct.Fsymv = zsymv_;
98 TypeStruct.Fhemv = zhemv_;
99 TypeStruct.Ftrmv = ztrmv_;
100 TypeStruct.Ftrsv = ztrsv_;
101 TypeStruct.Fagemv = zagemv_;
102 TypeStruct.Fasymv = zasymv_;
103 TypeStruct.Fahemv = zahemv_;
104 TypeStruct.Fatrmv = zatrmv_;
105
106 TypeStruct.Fgerc = zgerc_;
107 TypeStruct.Fgeru = zgeru_;
108 TypeStruct.Fsyr = zsyr_;
109 TypeStruct.Fher = zher_;
110 TypeStruct.Fsyr2 = zsyr2_;
111 TypeStruct.Fher2 = zher2_;
112
113 TypeStruct.Fgemm = zgemm_;
114 TypeStruct.Fsymm = zsymm_;
115 TypeStruct.Fhemm = zhemm_;
116 TypeStruct.Fsyrk = zsyrk_;
117 TypeStruct.Fherk = zherk_;
118 TypeStruct.Fsyr2k = zsyr2k_;
119 TypeStruct.Fher2k = zher2k_;
120 TypeStruct.Ftrmm = ztrmm_;
121 TypeStruct.Ftrsm = ztrsm_;
122
123 return( &TypeStruct );
124/*
125* End of PB_Cztypeset
126*/
127}
cmplx16
double cmplx16[2]
Definition pblas.h:137
DCPLX
#define DCPLX
Definition pblas.h:476
Czgesd2d
void Czgesd2d()
Czgebr2d
void Czgebr2d()
Czgebs2d
void Czgebs2d()
Czgerv2d
void Czgerv2d()
Czgsum2d
void Czgsum2d()
zgemm_
#define zgemm_
Definition PBblas.h:179
ztrsm_
#define ztrsm_
Definition PBblas.h:196
zgeru_
#define zgeru_
Definition PBblas.h:162
zsymm_
#define zsymm_
Definition PBblas.h:185
zaxpy_
#define zaxpy_
Definition PBblas.h:108
zher2_
#define zher2_
Definition PBblas.h:174
zsyr2k_
#define zsyr2k_
Definition PBblas.h:209
zsyrk_
#define zsyrk_
Definition PBblas.h:202
ztrmm_
#define ztrmm_
Definition PBblas.h:191
zhemm_
#define zhemm_
Definition PBblas.h:186
zgemv_
#define zgemv_
Definition PBblas.h:142
zgerc_
#define zgerc_
Definition PBblas.h:164
zhemv_
#define zhemv_
Definition PBblas.h:147
ztrsv_
#define ztrsv_
Definition PBblas.h:157
zcopy_
#define zcopy_
Definition PBblas.h:103
zher2k_
#define zher2k_
Definition PBblas.h:210
zswap_
#define zswap_
Definition PBblas.h:98
ztrmv_
#define ztrmv_
Definition PBblas.h:152
zherk_
#define zherk_
Definition PBblas.h:203
zher_
#define zher_
Definition PBblas.h:169
zsyr2_
#define zsyr2_
Definition PBtools.h:738
zmmtadd_
#define zmmtadd_
Definition PBtools.h:626
zmmddac_
#define zmmddac_
Definition PBtools.h:647
ztzscal_
#define ztzscal_
Definition PBtools.h:706
ztzpad_
#define ztzpad_
Definition PBtools.h:696
zsymv_
#define zsymv_
Definition PBtools.h:732
zrshft_
#define zrshft_
Definition PBtools.h:684
zmmtcadd_
#define zmmtcadd_
Definition PBtools.h:636
ztzcnjg_
#define ztzcnjg_
Definition PBtools.h:712
zahemv_
#define zahemv_
Definition PBtools.h:724
zmmadd_
#define zmmadd_
Definition PBtools.h:620
zset_
#define zset_
Definition PBtools.h:666
zvvdotu_
#define zvvdotu_
Definition PBtools.h:691
zsyr_
#define zsyr_
Definition PBtools.h:735
zmmcadd_
#define zmmcadd_
Definition PBtools.h:631
zmmddat_
#define zmmddat_
Definition PBtools.h:653
zvvdotc_
#define zvvdotc_
Definition PBtools.h:690
zhescal_
#define zhescal_
Definition PBtools.h:709
zatrmv_
#define zatrmv_
Definition PBtools.h:729
zasymv_
#define zasymv_
Definition PBtools.h:722
ztzpadcpy_
#define ztzpadcpy_
Definition PBtools.h:701
zcshft_
#define zcshft_
Definition PBtools.h:679
zmmddact_
#define zmmddact_
Definition PBtools.h:658
zagemv_
#define zagemv_
Definition PBtools.h:717
zmmdda_
#define zmmdda_
Definition PBtools.h:642

◆ pilaenv_()

Int pilaenv_ ( )