SCALAPACK
2.2.2
LAPACK: Linear Algebra PACKage
Loading...
Searching...
No Matches
PB_Cstypeset.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
19
PBTYP_T
*
PB_Cstypeset
(
void
)
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
}
Int
#define Int
Definition
Bconfig.h:22
PB_Cstypeset
PBTYP_T * PB_Cstypeset(void)
Definition
PB_Cstypeset.c:19
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
ONE
#define ONE
Definition
PBtools.h:64
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
ZERO
#define ZERO
Definition
PBtools.h:66
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
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
PBTYP_T
Definition
pblas.h:330
PBLAS
SRC
PTOOLS
PB_Cstypeset.c
Generated on Sun Jan 12 2025 15:58:39 for SCALAPACK by
1.9.8