OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
pblas.h
Go to the documentation of this file.
1/* ---------------------------------------------------------------------
2*
3* -- PBLAS 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* This file includes the standard C libraries, as well as system depen-
12* dent include files. All PBLAS routines include this file.
13*
14* ---------------------------------------------------------------------
15* Machine Specific PBLAS macros
16* ---------------------------------------------------------------------
17*/
18#define _HAL_ 0
19#define _T3D_ 1
20#define _T3E_ 2
21
22#ifdef T3D
23#define _MACH_ _T3D_
24#endif
25#ifdef T3E
26#define _MACH_ _T3E_
27#endif
28#ifndef _MACH_
29#define _MACH_ _HAL_
30#endif
31/*
32* CBRATIO is the ratio of the transfer cost per element for the combine
33* sum to one process and the broadcast operation. This value is used
34* within the Level 3 PBLAS routines to decide on which algorithm to se-
35* lect.
36*/
37#define CBRATIO 1.3
38/*
39* ---------------------------------------------------------------------
40* Include files
41* ---------------------------------------------------------------------
42*/
43#include <stdio.h>
44#include <stdlib.h>
45
46#ifdef __STDC__
47#include <stdarg.h>
48#else
49#include <varargs.h>
50#endif
51
52#if( ( _MACH_ == _T3D_ ) || ( _MACH_ == _T3E_ ) )
53#include <fortran.h>
54#endif
55/*
56* ---------------------------------------------------------------------
57* FORTRAN <-> C interface
58* ---------------------------------------------------------------------
59*
60* These macros identifies how the PBLAS will be called as follows:
61*
62* _F2C_ADD_: the FORTRAN compiler expects the name of C functions to be
63* in all lower case and to have an underscore postfixed it (Suns, Intel
64* compilers expect this).
65*
66* _F2C_NOCHANGE: the FORTRAN compiler expects the name of C functions
67* to be in all lower case (IBM RS6K compilers do this).
68*
69* _F2C_UPCASE: the FORTRAN compiler expects the name of C functions
70* to be in all upcase. (Cray compilers expect this).
71*
72* _F2C_F77ISF2C: the FORTRAN compiler in use is f2c, a FORTRAN to C
73* converter.
74*/
75#define _F2C_ADD_ 0
76#define _F2C_NOCHANGE 1
77#define _F2C_UPCASE 2
78#define _F2C_F77ISF2C 3
79
80#ifdef UpCase
81#define _F2C_CALL_ _F2C_UPCASE
82#endif
83
84#ifdef NoChange
85#define _F2C_CALL_ _F2C_NOCHANGE
86#endif
87
88#ifdef Add_
89#define _F2C_CALL_ _F2C_ADD_
90#endif
91
92#ifdef f77IsF2C
93#define _F2C_CALL_ _F2C_F77ISF2C
94#endif
95
96#ifndef _F2C_CALL_
97#define _F2C_CALL_ _F2C_ADD_
98#endif
99/*
100* ---------------------------------------------------------------------
101* TYPE DEFINITIONS AND CONVERSION UTILITIES
102* ---------------------------------------------------------------------
103*/
104#ifndef Int
105#define Int int
106#endif
107
108#if( ( _MACH_ == _T3D_ ) || ( _MACH_ == _T3E_ ) )
109
110#define float double
111 /* Type of character argument in a FORTRAN call */
112#define F_CHAR_T _fcd
113 /* Character conversion utilities */
114#define F2C_CHAR(a) ( _fcdtocp( (a) ) )
115#define C2F_CHAR(a) ( _cptofcd( (a), 1 ) )
116 /* Type of FORTRAN functions */
117#define F_VOID_FCT void fortran /* Subroutine */
118#define F_INTG_FCT Int fortran /* INTEGER function */
119
120#else /* Type of character argument in a FORTRAN call */
121
122typedef char * F_CHAR_T;
123 /* Character conversion utilities */
124#define F2C_CHAR(a) (a)
125#define C2F_CHAR(a) (a)
126 /* Type of FORTRAN functions */
127#define F_VOID_FCT void /* Subroutine */
128#define F_INTG_FCT Int /* INTEGER function */
129
130#endif
131/*
132* ----------------------------------------------------------------------
133* #typedef definitions
134* ---------------------------------------------------------------------
135*/
136typedef float cmplx [2];
137typedef double cmplx16[2];
138
139#define REAL_PART 0
140#define IMAG_PART 1
141
142#ifdef __STDC__
143
144typedef void (*GESD2D_T) ( Int, Int, Int,
145 char *, Int, Int,
146 Int );
147typedef void (*GERV2D_T) ( Int, Int, Int,
148 char *, Int, Int,
149 Int );
150typedef void (*GEBS2D_T) ( Int, char *, char *,
151 Int, Int, char *,
152 Int );
153typedef void (*GEBR2D_T) ( Int, char *, char *,
154 Int, Int, char *,
155 Int, Int, Int );
156typedef void (*GSUM2D_T) ( Int, char *, char *,
157 Int, Int, char *,
158 Int, Int, Int );
159
160typedef F_VOID_FCT (*MMADD_T) ( Int *, Int *, char *,
161 char *, Int *, char *,
162 char *, Int * );
163typedef F_VOID_FCT (*MMSHFT_T) ( Int *, Int *, Int *,
164 char *, Int * );
165typedef F_VOID_FCT (*VVDOT_T) ( Int *, char *, char *,
166 Int *, char *, Int * );
167typedef F_VOID_FCT (*VVSET_T) ( Int *, char *, char *,
168 Int * );
169typedef F_VOID_FCT (*TZPAD_T) ( F_CHAR_T, F_CHAR_T, Int *,
170 Int *, Int *, char *,
171 char *, char *, Int * );
172typedef F_VOID_FCT (*TZPADCPY_T) ( F_CHAR_T, F_CHAR_T, Int *,
173 Int *, Int *, char *,
174 Int *, char *, Int * );
175typedef F_VOID_FCT (*TZSET_T) ( F_CHAR_T, Int *, Int *,
176 Int *, char *, char *,
177 char *, Int * );
178typedef F_VOID_FCT (*TZSCAL_T) ( F_CHAR_T, Int *, Int *,
179 Int *, char *, char *,
180 Int * );
181
182typedef F_VOID_FCT (*AXPY_T) ( Int *, char *, char *,
183 Int *, char *, Int * );
184typedef F_VOID_FCT (*COPY_T) ( Int *, char *, Int *,
185 char *, Int * );
186typedef F_VOID_FCT (*SWAP_T) ( Int *, char *, Int *,
187 char *, Int * );
188
189typedef F_VOID_FCT (*GEMV_T) ( F_CHAR_T, Int *, Int *,
190 char *, char *, Int *,
191 char *, Int *, char *,
192 char *, Int * );
193typedef F_VOID_FCT (*AGEMV_T) ( F_CHAR_T, Int *, Int *,
194 char *, char *, Int *,
195 char *, Int *, char *,
196 char *, Int * );
197typedef F_VOID_FCT (*SYMV_T) ( F_CHAR_T, Int *, char *,
198 char *, Int *, char *,
199 Int *, char *, char *,
200 Int * );
201typedef F_VOID_FCT (*ASYMV_T) ( F_CHAR_T, Int *, char *,
202 char *, Int *, char *,
203 Int *, char *, char *,
204 Int * );
205typedef F_VOID_FCT (*HEMV_T) ( F_CHAR_T, Int *, char *,
206 char *, Int *, char *,
207 Int *, char *, char *,
208 Int * );
209typedef F_VOID_FCT (*AHEMV_T) ( F_CHAR_T, Int *, char *,
210 char *, Int *, char *,
211 Int *, char *, char *,
212 Int * );
213typedef F_VOID_FCT (*TRMV_T) ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
214 Int *, char *, Int *,
215 char *, Int * );
216typedef F_VOID_FCT (*ATRMV_T) ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
217 Int *, char *, char *,
218 Int *, char *, Int *,
219 char *, char *, Int * );
220typedef F_VOID_FCT (*TRSV_T) ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
221 Int *, char *, Int *,
222 char *, Int * );
223typedef F_VOID_FCT (*GERC_T) ( Int *, Int *, char *,
224 char *, Int *, char *,
225 Int *, char *, Int * );
226typedef F_VOID_FCT (*GERU_T) ( Int *, Int *, char *,
227 char *, Int *, char *,
228 Int *, char *, Int * );
229typedef F_VOID_FCT (*SYR_T) ( F_CHAR_T, Int *, char *,
230 char *, Int *, char *,
231 Int * );
232typedef F_VOID_FCT (*HER_T) ( F_CHAR_T, Int *, char *,
233 char *, Int *, char *,
234 Int * );
235typedef F_VOID_FCT (*SYR2_T) ( F_CHAR_T, Int *, char *,
236 char *, Int *, char *,
237 Int *, char *, Int * );
238typedef F_VOID_FCT (*HER2_T) ( F_CHAR_T, Int *, char *,
239 char *, Int *, char *,
240 Int *, char *, Int * );
241
242typedef F_VOID_FCT (*GEMM_T) ( F_CHAR_T, F_CHAR_T, Int *,
243 Int *, Int *, char *,
244 char *, Int *, char *,
245 Int *, char *, char *,
246 Int * );
247typedef F_VOID_FCT (*SYMM_T) ( F_CHAR_T, F_CHAR_T, Int *,
248 Int *, char *, char *,
249 Int *, char *, Int *,
250 char *, char *, Int * );
251typedef F_VOID_FCT (*HEMM_T) ( F_CHAR_T, F_CHAR_T, Int *,
252 Int *, char *, char *,
253 Int *, char *, Int *,
254 char *, char *, Int * );
255typedef F_VOID_FCT (*SYRK_T) ( F_CHAR_T, F_CHAR_T, Int *,
256 Int *, char *, char *,
257 Int *, char *, char *,
258 Int * );
259typedef F_VOID_FCT (*HERK_T) ( F_CHAR_T, F_CHAR_T, Int *,
260 Int *, char *, char *,
261 Int *, char *, char *,
262 Int * );
263typedef F_VOID_FCT (*SYR2K_T) ( F_CHAR_T, F_CHAR_T, Int *,
264 Int *, char *, char *,
265 Int *, char *, Int *,
266 char *, char *, Int * );
267typedef F_VOID_FCT (*HER2K_T) ( F_CHAR_T, F_CHAR_T, Int *,
268 Int *, char *, char *,
269 Int *, char *, Int *,
270 char *, char *, Int * );
271typedef F_VOID_FCT (*TRMM_T) ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
272 F_CHAR_T, Int *, Int *,
273 char *, char *, Int *,
274 char *, Int * );
275typedef F_VOID_FCT (*TRSM_T) ( F_CHAR_T, F_CHAR_T, F_CHAR_T,
276 F_CHAR_T, Int *, Int *,
277 char *, char *, Int *,
278 char *, Int * );
279
280#else
281
282typedef void (*GESD2D_T) ();
283typedef void (*GERV2D_T) ();
284typedef void (*GEBS2D_T) ();
285typedef void (*GEBR2D_T) ();
286typedef void (*GSUM2D_T) ();
287
288typedef F_VOID_FCT (*MMADD_T) ();
289typedef F_VOID_FCT (*MMSHFT_T) ();
290typedef F_VOID_FCT (*VVDOT_T) ();
291typedef F_VOID_FCT (*VVSET_T) ();
292typedef F_VOID_FCT (*TZPAD_T) ();
293typedef F_VOID_FCT (*TZPADCPY_T) ();
294typedef F_VOID_FCT (*TZSET_T) ();
295typedef F_VOID_FCT (*TZSCAL_T) ();
296
297typedef F_VOID_FCT (*AXPY_T) ();
298typedef F_VOID_FCT (*COPY_T) ();
299typedef F_VOID_FCT (*SWAP_T) ();
300
301typedef F_VOID_FCT (*GEMV_T) ();
302typedef F_VOID_FCT (*AGEMV_T) ();
303typedef F_VOID_FCT (*SYMV_T) ();
304typedef F_VOID_FCT (*ASYMV_T) ();
305typedef F_VOID_FCT (*HEMV_T) ();
306typedef F_VOID_FCT (*AHEMV_T) ();
307typedef F_VOID_FCT (*TRMV_T) ();
308typedef F_VOID_FCT (*ATRMV_T) ();
309typedef F_VOID_FCT (*TRSV_T) ();
310typedef F_VOID_FCT (*GERC_T) ();
311typedef F_VOID_FCT (*GERU_T) ();
312typedef F_VOID_FCT (*SYR_T) ();
313typedef F_VOID_FCT (*HER_T) ();
314typedef F_VOID_FCT (*SYR2_T) ();
315typedef F_VOID_FCT (*HER2_T) ();
316
317typedef F_VOID_FCT (*GEMM_T) ();
318typedef F_VOID_FCT (*SYMM_T) ();
319typedef F_VOID_FCT (*HEMM_T) ();
320typedef F_VOID_FCT (*SYRK_T) ();
321typedef F_VOID_FCT (*HERK_T) ();
322typedef F_VOID_FCT (*SYR2K_T) ();
323typedef F_VOID_FCT (*HER2K_T) ();
324typedef F_VOID_FCT (*TRMM_T) ();
325typedef F_VOID_FCT (*TRSM_T) ();
326
327#endif
328
329typedef struct
330{
331 char type; /* Encoding of the data type */
332 Int usiz; /* length in bytes of elementary data type */
333 Int size; /* length in bytes of data type */
334
335 char * zero,
336 * one,
337 * negone; /* pointers to contants of correct type */
338
339 GESD2D_T Cgesd2d; /* BLACS functions */
340 GERV2D_T Cgerv2d;
341 GEBS2D_T Cgebs2d;
342 GEBR2D_T Cgebr2d;
343 GSUM2D_T Cgsum2d;
344
345 MMADD_T Fmmadd; /* Addition functions */
346 MMADD_T Fmmcadd;
347 MMADD_T Fmmtadd;
348 MMADD_T Fmmtcadd;
349 MMADD_T Fmmdda;
350 MMADD_T Fmmddac;
351 MMADD_T Fmmddat;
352 MMADD_T Fmmddact;
353
354 MMSHFT_T Fcshft; /* Shift functions */
355 MMSHFT_T Frshft;
356
357 VVDOT_T Fvvdotu; /* Dot functions */
358 VVDOT_T Fvvdotc;
359
360 TZPAD_T Ftzpad; /* Array pad function */
361 TZPADCPY_T Ftzpadcpy;
362 VVSET_T Fset;
363
364 TZSCAL_T Ftzscal; /* Scaling functions */
365 TZSCAL_T Fhescal;
366 TZSCAL_T Ftzcnjg;
367
368 AXPY_T Faxpy; /* Level 1 BLAS */
369 COPY_T Fcopy;
370 SWAP_T Fswap;
371
372 GEMV_T Fgemv; /* Level 2 BLAS */
373 SYMV_T Fsymv;
374 HEMV_T Fhemv;
375 TRMV_T Ftrmv;
376 TRSV_T Ftrsv;
377
378 AGEMV_T Fagemv;
379 ASYMV_T Fasymv;
380 AHEMV_T Fahemv;
381 ATRMV_T Fatrmv;
382
383 GERC_T Fgerc;
384 GERU_T Fgeru;
385 SYR_T Fsyr;
386 HER_T Fher;
387 SYR2_T Fsyr2;
388 HER2_T Fher2;
389
390 GEMM_T Fgemm; /* Level 3 BLAS */
391 SYMM_T Fsymm;
392 HEMM_T Fhemm;
393 SYRK_T Fsyrk;
394 HERK_T Fherk;
395 SYR2K_T Fsyr2k;
396 HER2K_T Fher2k;
397 TRMM_T Ftrmm;
398 TRSM_T Ftrsm;
399
400} PBTYP_T;
401
402#ifdef __STDC__
403
404typedef void (*TZSYR_T) ( PBTYP_T *, char *, Int,
405 Int, Int, Int,
406 char *, char *, Int,
407 char *, Int, char *,
408 Int );
409typedef void (*TZSYR2_T) ( PBTYP_T *, char *, Int,
410 Int, Int, Int,
411 char *, char *, Int,
412 char *, Int, char *,
413 Int, char *, Int,
414 char *, Int );
415typedef void (*TZTRM_T) ( PBTYP_T *, char *, char *,
416 char *, char *, Int,
417 Int, Int, Int,
418 char *, char *, Int,
419 char *, Int, char *,
420 Int );
421typedef void (*TZSYM_T) ( PBTYP_T *, char *, char *,
422 Int, Int, Int,
423 Int, char *, char *,
424 Int, char *, Int,
425 char *, Int, char *,
426 Int, char *, Int );
427#else
428
429typedef void (*TZSYR_T) ();
430typedef void (*TZSYR2_T) ();
431typedef void (*TZTRM_T) ();
432typedef void (*TZSYM_T) ();
433
434#endif
435
436typedef struct
437{
438 Int offd; /* Global diagonal offset */
439 Int lcmt00; /* LCM value of first block */
440
441 Int mp; /* Local number of rows */
442 Int imb1; /* Size of first row block (global) */
443 Int imbloc; /* Size of first local row block */
444 Int mb; /* Row block size */
445 Int lmbloc; /* Size of last local row block */
446 Int mblks; /* Number of local row blocks */
447 Int iupp; /* LCM row bound for first diagonal block */
448 Int upp; /* LCM row bound for diagonal block */
449 Int prow; /* Relative row process coordinate */
450 Int nprow; /* Number of process rows */
451
452 Int nq; /* Local number of columns */
453 Int inb1; /* Size of first column block (global) */
454 Int inbloc; /* Size of first local column block */
455 Int nb; /* Column block size */
456 Int lnbloc; /* Size of last local column block */
457 Int nblks; /* Number of local column blocks */
458 Int ilow; /* LCM column bound for first diagonal block */
459 Int low; /* LCM column bound for diagonal block */
460 Int pcol; /* Relative column process coordinate */
461 Int npcol; /* Number of process columns */
462
463 Int lcmb; /* Least common multiple of nprow * mb and npcol * nb */
464
465} PB_VM_T;
466
467/*
468* ---------------------------------------------------------------------
469* #define macro constants
470* ---------------------------------------------------------------------
471*/
472#define INT 'I' /* type identifiers */
473#define SREAL 'S'
474#define DREAL 'D'
475#define SCPLX 'C'
476#define DCPLX 'Z'
477
478#define crot_ CROT
Int
#define Int
Definition Bconfig.h:22
GEBR2D_T
void(* GEBR2D_T)()
Definition pblas.h:285
HER2_T
F_VOID_FCT(* HER2_T)()
Definition pblas.h:315
SYR_T
F_VOID_FCT(* SYR_T)()
Definition pblas.h:312
TZSYR2_T
void(* TZSYR2_T)()
Definition pblas.h:430
ATRMV_T
F_VOID_FCT(* ATRMV_T)()
Definition pblas.h:308
HEMV_T
F_VOID_FCT(* HEMV_T)()
Definition pblas.h:305
SYMV_T
F_VOID_FCT(* SYMV_T)()
Definition pblas.h:303
VVDOT_T
F_VOID_FCT(* VVDOT_T)()
Definition pblas.h:290
cmplx
float cmplx[2]
Definition pblas.h:136
SYR2_T
F_VOID_FCT(* SYR2_T)()
Definition pblas.h:314
MMSHFT_T
F_VOID_FCT(* MMSHFT_T)()
Definition pblas.h:289
GEMM_T
F_VOID_FCT(* GEMM_T)()
Definition pblas.h:317
F_VOID_FCT
#define F_VOID_FCT
Definition pblas.h:127
HEMM_T
F_VOID_FCT(* HEMM_T)()
Definition pblas.h:319
cmplx16
double cmplx16[2]
Definition pblas.h:137
TRMV_T
F_VOID_FCT(* TRMV_T)()
Definition pblas.h:307
COPY_T
F_VOID_FCT(* COPY_T)()
Definition pblas.h:298
TZPADCPY_T
F_VOID_FCT(* TZPADCPY_T)()
Definition pblas.h:293
MMADD_T
F_VOID_FCT(* MMADD_T)()
Definition pblas.h:288
SYMM_T
F_VOID_FCT(* SYMM_T)()
Definition pblas.h:318
GSUM2D_T
void(* GSUM2D_T)()
Definition pblas.h:286
SWAP_T
F_VOID_FCT(* SWAP_T)()
Definition pblas.h:299
Int
#define Int
Definition pblas.h:105
GERU_T
F_VOID_FCT(* GERU_T)()
Definition pblas.h:311
ASYMV_T
F_VOID_FCT(* ASYMV_T)()
Definition pblas.h:304
TZTRM_T
void(* TZTRM_T)()
Definition pblas.h:431
SYRK_T
F_VOID_FCT(* SYRK_T)()
Definition pblas.h:320
AGEMV_T
F_VOID_FCT(* AGEMV_T)()
Definition pblas.h:302
GESD2D_T
void(* GESD2D_T)()
Definition pblas.h:282
TRMM_T
F_VOID_FCT(* TRMM_T)()
Definition pblas.h:324
HER_T
F_VOID_FCT(* HER_T)()
Definition pblas.h:313
GERV2D_T
void(* GERV2D_T)()
Definition pblas.h:283
GEBS2D_T
void(* GEBS2D_T)()
Definition pblas.h:284
GERC_T
F_VOID_FCT(* GERC_T)()
Definition pblas.h:310
TRSV_T
F_VOID_FCT(* TRSV_T)()
Definition pblas.h:309
HERK_T
F_VOID_FCT(* HERK_T)()
Definition pblas.h:321
TZSYR_T
void(* TZSYR_T)()
Definition pblas.h:429
AHEMV_T
F_VOID_FCT(* AHEMV_T)()
Definition pblas.h:306
TZSCAL_T
F_VOID_FCT(* TZSCAL_T)()
Definition pblas.h:295
HER2K_T
F_VOID_FCT(* HER2K_T)()
Definition pblas.h:323
GEMV_T
F_VOID_FCT(* GEMV_T)()
Definition pblas.h:301
TZPAD_T
F_VOID_FCT(* TZPAD_T)()
Definition pblas.h:292
TZSET_T
F_VOID_FCT(* TZSET_T)()
Definition pblas.h:294
F_CHAR_T
char * F_CHAR_T
Definition pblas.h:122
AXPY_T
F_VOID_FCT(* AXPY_T)()
Definition pblas.h:297
VVSET_T
F_VOID_FCT(* VVSET_T)()
Definition pblas.h:291
TZSYM_T
void(* TZSYM_T)()
Definition pblas.h:432
TRSM_T
F_VOID_FCT(* TRSM_T)()
Definition pblas.h:325
SYR2K_T
F_VOID_FCT(* SYR2K_T)()
Definition pblas.h:322
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_VM_T
Definition pblas.h:437
PB_VM_T::lcmb
Int lcmb
Definition pblas.h:463
PB_VM_T::lnbloc
Int lnbloc
Definition pblas.h:456
PB_VM_T::low
Int low
Definition pblas.h:459
PB_VM_T::iupp
Int iupp
Definition pblas.h:447
PB_VM_T::npcol
Int npcol
Definition pblas.h:461
PB_VM_T::nprow
Int nprow
Definition pblas.h:450
PB_VM_T::lcmt00
Int lcmt00
Definition pblas.h:439
PB_VM_T::pcol
Int pcol
Definition pblas.h:460
PB_VM_T::inbloc
Int inbloc
Definition pblas.h:454
PB_VM_T::ilow
Int ilow
Definition pblas.h:458
PB_VM_T::offd
Int offd
Definition pblas.h:438
PB_VM_T::inb1
Int inb1
Definition pblas.h:453
PB_VM_T::nblks
Int nblks
Definition pblas.h:457
PB_VM_T::mp
Int mp
Definition pblas.h:441
PB_VM_T::prow
Int prow
Definition pblas.h:449
PB_VM_T::imbloc
Int imbloc
Definition pblas.h:443
PB_VM_T::nq
Int nq
Definition pblas.h:452
PB_VM_T::lmbloc
Int lmbloc
Definition pblas.h:445
PB_VM_T::nb
Int nb
Definition pblas.h:455
PB_VM_T::imb1
Int imb1
Definition pblas.h:442
PB_VM_T::mblks
Int mblks
Definition pblas.h:446
PB_VM_T::mb
Int mb
Definition pblas.h:444
PB_VM_T::upp
Int upp
Definition pblas.h:448