ScaLAPACK 2.1  2.1 ScaLAPACK: Scalable Linear Algebra PACKage
PB_Citypeset.c
Go to the documentation of this file.
1 /* ---------------------------------------------------------------------
2 *
3 * -- PBLAS auxiliary routine (version 2.0) --
4 * University of Tennessee, Knoxville, Oak Ridge National Laboratory,
5 * and University of California, Berkeley.
6 * April 1, 1998
7 *
8 * ---------------------------------------------------------------------
9 */
10 /*
11 * Include files
12 */
13 #include "../pblas.h"
14 #include "../PBpblas.h"
15 #include "../PBtools.h"
16 #include "../PBblacs.h"
17 #include "../PBblas.h"
18
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
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
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 }
PBTYP_T::Fgemm
GEMM_T Fgemm
Definition: pblas.h:386
PBTYP_T::Fgerc
GERC_T Fgerc
Definition: pblas.h:379
PBTYP_T::Cgerv2d
GERV2D_T Cgerv2d
Definition: pblas.h:336
Cigebr2d
void Cigebr2d()
PBTYP_T::Fhescal
TZSCAL_T Fhescal
Definition: pblas.h:361
PBTYP_T::Fsyr2
SYR2_T Fsyr2
Definition: pblas.h:383
PBTYP_T::Ftzcnjg
TZSCAL_T Ftzcnjg
Definition: pblas.h:362
PBTYP_T::Fahemv
AHEMV_T Fahemv
Definition: pblas.h:376
PBTYP_T::Fvvdotc
VVDOT_T Fvvdotc
Definition: pblas.h:354
PBTYP_T::Fmmddat
Definition: pblas.h:347
PBTYP_T::Fcshft
MMSHFT_T Fcshft
Definition: pblas.h:350
PBTYP_T::Ftrsv
TRSV_T Ftrsv
Definition: pblas.h:372
PBTYP_T::Ftrmm
TRMM_T Ftrmm
Definition: pblas.h:393
PBTYP_T::Fgemv
GEMV_T Fgemv
Definition: pblas.h:368
PBTYP_T::Ftzscal
TZSCAL_T Ftzscal
Definition: pblas.h:360
PBTYP_T::Fher
HER_T Fher
Definition: pblas.h:382
PBTYP_T::Faxpy
AXPY_T Faxpy
Definition: pblas.h:364
Cigerv2d
void Cigerv2d()
PBTYP_T::type
char type
Definition: pblas.h:327
PBTYP_T::Cgesd2d
GESD2D_T Cgesd2d
Definition: pblas.h:335
Definition: pblas.h:356
PBTYP_T::usiz
int usiz
Definition: pblas.h:328
PBTYP_T::Ftrsm
TRSM_T Ftrsm
Definition: pblas.h:394
Cigebs2d
void Cigebs2d()
PBTYP_T::Fher2k
HER2K_T Fher2k
Definition: pblas.h:392
PBTYP_T::Fswap
SWAP_T Fswap
Definition: pblas.h:366
PBTYP_T::Fherk
HERK_T Fherk
Definition: pblas.h:390
PBTYP_T::Fsyr2k
SYR2K_T Fsyr2k
Definition: pblas.h:391
Definition: pblas.h:342
Definition: pblas.h:357
PBTYP_T::Frshft
MMSHFT_T Frshft
Definition: pblas.h:351
PBTYP_T::Fasymv
ASYMV_T Fasymv
Definition: pblas.h:375
Definition: pblas.h:343
PBTYP_T::Fmmdda
Definition: pblas.h:345
PBTYP_T::Cgebs2d
GEBS2D_T Cgebs2d
Definition: pblas.h:337
Definition: pblas.h:344
PBTYP_T::negone
char * negone
Definition: pblas.h:331
INT
#define INT
Definition: pblas.h:468
PBTYP_T::Fset
VVSET_T Fset
Definition: pblas.h:358
Definition: pblas.h:341
Cigsum2d
void Cigsum2d()
PBTYP_T::one
char * one
Definition: pblas.h:331
PBTYP_T::Fsyrk
SYRK_T Fsyrk
Definition: pblas.h:389
PBTYP_T::Ftrmv
TRMV_T Ftrmv
Definition: pblas.h:371
PBTYP_T::size
int size
Definition: pblas.h:329
immddat_
F_VOID_FCT immddat_()
PBTYP_T::Fsymm
SYMM_T Fsymm
Definition: pblas.h:387
PB_Citypeset
PBTYP_T * PB_Citypeset()
Definition: PB_Citypeset.c:19
PBTYP_T::Fatrmv
ATRMV_T Fatrmv
Definition: pblas.h:377
PBTYP_T::Fvvdotu
VVDOT_T Fvvdotu
Definition: pblas.h:353
PBTYP_T::Fcopy
COPY_T Fcopy
Definition: pblas.h:365
PBTYP_T::Fher2
HER2_T Fher2
Definition: pblas.h:384
PBTYP_T::Cgebr2d
GEBR2D_T Cgebr2d
Definition: pblas.h:338
PBTYP_T::Cgsum2d
GSUM2D_T Cgsum2d
Definition: pblas.h:339
PBTYP_T
Definition: pblas.h:325
PBTYP_T::Fhemv
HEMV_T Fhemv
Definition: pblas.h:370
PBTYP_T::Fhemm
HEMM_T Fhemm
Definition: pblas.h:388
PBTYP_T::Fsymv
SYMV_T Fsymv
Definition: pblas.h:369
Cigesd2d
void Cigesd2d()
PBTYP_T::Fgeru
GERU_T Fgeru
Definition: pblas.h:380
PBTYP_T::Fmmddac
Definition: pblas.h:346
PBTYP_T::Fsyr
SYR_T Fsyr
Definition: pblas.h:381
PBTYP_T::zero
char * zero
Definition: pblas.h:331
PBTYP_T::Fmmddact