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