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
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}
#define Int
Definition Bconfig.h:22
PBTYP_T * PB_Cdtypeset(void)
#define DREAL
Definition pblas.h:474
void Cdgebr2d()
void Cdgerv2d()
void Cdgebs2d()
void Cdgesd2d()
void Cdgsum2d()
#define dswap_
Definition PBblas.h:96
#define dtrsv_
Definition PBblas.h:155
#define dger_
Definition PBblas.h:160
#define dgemm_
Definition PBblas.h:177
#define dtrsm_
Definition PBblas.h:194
#define dtrmv_
Definition PBblas.h:150
#define dcopy_
Definition PBblas.h:101
#define dtrmm_
Definition PBblas.h:189
#define dsyrk_
Definition PBblas.h:199
#define dsyr2_
Definition PBblas.h:172
#define dsyr2k_
Definition PBblas.h:206
#define dsyr_
Definition PBblas.h:167
#define dgemv_
Definition PBblas.h:140
#define dsymv_
Definition PBblas.h:145
#define daxpy_
Definition PBblas.h:106
#define dsymm_
Definition PBblas.h:182
#define datrmv_
Definition PBtools.h:727
#define ONE
Definition PBtools.h:64
#define dtzpad_
Definition PBtools.h:694
#define dvvdot_
Definition PBtools.h:687
#define dmmdda_
Definition PBtools.h:640
#define dmmddact_
Definition PBtools.h:656
#define dasymv_
Definition PBtools.h:720
#define drshft_
Definition PBtools.h:682
#define dmmtcadd_
Definition PBtools.h:634
#define ZERO
Definition PBtools.h:66
#define dmmcadd_
Definition PBtools.h:629
#define dmmtadd_
Definition PBtools.h:624
#define dmmddat_
Definition PBtools.h:651
#define dtzpadcpy_
Definition PBtools.h:699
#define dagemv_
Definition PBtools.h:715
#define dtzscal_
Definition PBtools.h:704
#define dmmadd_
Definition PBtools.h:618
#define dmmddac_
Definition PBtools.h:645
#define dset_
Definition PBtools.h:664
#define dcshft_
Definition PBtools.h:677
ATRMV_T Fatrmv
Definition pblas.h:381
char type
Definition pblas.h:331
Int usiz
Definition pblas.h:332
TRSM_T Ftrsm
Definition pblas.h:398
TZPADCPY_T Ftzpadcpy
Definition pblas.h:361
COPY_T Fcopy
Definition pblas.h:369
VVDOT_T Fvvdotc
Definition pblas.h:358
MMADD_T Fmmddac
Definition pblas.h:350
AHEMV_T Fahemv
Definition pblas.h:380
VVDOT_T Fvvdotu
Definition pblas.h:357
AGEMV_T Fagemv
Definition pblas.h:378
SYMM_T Fsymm
Definition pblas.h:391
SYR2K_T Fsyr2k
Definition pblas.h:395
SWAP_T Fswap
Definition pblas.h:370
HEMV_T Fhemv
Definition pblas.h:374
TRMM_T Ftrmm
Definition pblas.h:397
SYMV_T Fsymv
Definition pblas.h:373
MMADD_T Fmmadd
Definition pblas.h:345
SYR2_T Fsyr2
Definition pblas.h:387
TRSV_T Ftrsv
Definition pblas.h:376
MMADD_T Fmmdda
Definition pblas.h:349
HER_T Fher
Definition pblas.h:386
HER2K_T Fher2k
Definition pblas.h:396
GEMV_T Fgemv
Definition pblas.h:372
Int size
Definition pblas.h:333
GSUM2D_T Cgsum2d
Definition pblas.h:343
GERV2D_T Cgerv2d
Definition pblas.h:340
TZSCAL_T Ftzcnjg
Definition pblas.h:366
GEMM_T Fgemm
Definition pblas.h:390
HEMM_T Fhemm
Definition pblas.h:392
MMADD_T Fmmddact
Definition pblas.h:352
ASYMV_T Fasymv
Definition pblas.h:379
TZSCAL_T Fhescal
Definition pblas.h:365
MMADD_T Fmmddat
Definition pblas.h:351
GEBR2D_T Cgebr2d
Definition pblas.h:342
GERU_T Fgeru
Definition pblas.h:384
SYRK_T Fsyrk
Definition pblas.h:393
MMADD_T Fmmtcadd
Definition pblas.h:348
GESD2D_T Cgesd2d
Definition pblas.h:339
char * zero
Definition pblas.h:335
MMSHFT_T Fcshft
Definition pblas.h:354
TRMV_T Ftrmv
Definition pblas.h:375
HERK_T Fherk
Definition pblas.h:394
TZSCAL_T Ftzscal
Definition pblas.h:364
char * negone
Definition pblas.h:337
char * one
Definition pblas.h:336
MMADD_T Fmmcadd
Definition pblas.h:346
VVSET_T Fset
Definition pblas.h:362
TZPAD_T Ftzpad
Definition pblas.h:360
GEBS2D_T Cgebs2d
Definition pblas.h:341
SYR_T Fsyr
Definition pblas.h:385
GERC_T Fgerc
Definition pblas.h:383
MMADD_T Fmmtadd
Definition pblas.h:347
MMSHFT_T Frshft
Definition pblas.h:355
AXPY_T Faxpy
Definition pblas.h:368
HER2_T Fher2
Definition pblas.h:388