5 ! PLASMA FORTRAN header
6 ! PLASMA is a software
package provided by Univ. of Tennessee,
7 ! Univ. of California Berkeley and Univ. of Colorado Denver
11 ! @author Mathieu Faverge
16 !********************************************************************
17 ! PLASMA constants - precisions
19 integer PlasmaByte, PlasmaInteger, PlasmaRealFloat
20 integer PlasmaRealDouble, PlasmaComplexFloat, PlasmaComplexDouble
21 parameter ( PlasmaByte = 0 )
22 parameter ( PlasmaInteger = 1 )
23 parameter ( PlasmaRealFloat = 2 )
24 parameter ( PlasmaRealDouble = 3 )
25 parameter ( PlasmaComplexFloat = 4 )
26 parameter ( PlasmaComplexDouble = 5 )
28 !********************************************************************
29 ! PLASMA constants - CBLAS & LAPACK
31 integer PlasmaCM, PlasmaRM, PlasmaCCRB
32 integer PlasmaCRRB, PlasmaRCRB, PlasmaRRRB
33 parameter ( PlasmaCM = 101 )
34 parameter ( PlasmaRM = 102 )
35 parameter ( PlasmaCCRB = 103 )
36 parameter ( PlasmaCRRB = 104 )
37 parameter ( PlasmaRCRB = 105 )
38 parameter ( PlasmaRRRB = 106 )
40 integer PlasmaNoTrans, PlasmaTrans, PlasmaConjTrans
41 parameter ( PlasmaNoTrans = 111 )
42 parameter ( PlasmaTrans = 112 )
43 parameter ( PlasmaConjTrans = 113 )
45 integer PlasmaUpper, PlasmaLower
46 integer PlasmaUpperLower
47 parameter ( PlasmaUpper = 121 )
48 parameter ( PlasmaLower = 122 )
49 parameter ( PlasmaUpperLower = 123 )
51 integer PlasmaNonUnit,PlasmaUnit
52 parameter ( PlasmaNonUnit = 131 )
53 parameter ( PlasmaUnit = 132 )
55 integer PlasmaLeft,PlasmaRight
56 parameter ( PlasmaLeft = 141 )
57 parameter ( PlasmaRight = 142 )
59 integer PlasmaOneNorm, PlasmaRealOneNorm
60 integer PlasmaTwoNorm, PlasmaFrobeniusNorm
61 integer PlasmaInfNorm, PlasmaRealInfNorm
62 integer PlasmaMaxNorm, PlasmaRealMaxNorm
63 parameter ( PlasmaOneNorm = 171 )
64 parameter ( PlasmaRealOneNorm = 172 )
65 parameter ( PlasmaTwoNorm = 173 )
66 parameter ( PlasmaFrobeniusNorm = 174 )
67 parameter ( PlasmaInfNorm = 175 )
68 parameter ( PlasmaRealInfNorm = 176 )
69 parameter ( PlasmaMaxNorm = 177 )
70 parameter ( PlasmaRealMaxNorm = 178 )
72 integer PlasmaDistUniform
73 integer PlasmaDistSymmetric
74 integer PlasmaDistNormal
75 parameter ( PlasmaDistUniform = 201 )
76 parameter ( PlasmaDistSymmetric = 202 )
77 parameter ( PlasmaDistNormal = 203 )
79 integer PlasmaHermGeev
80 integer PlasmaHermPoev
81 integer PlasmaNonsymPosv
83 parameter ( PlasmaHermGeev = 241 )
84 parameter ( PlasmaHermPoev = 242 )
85 parameter ( PlasmaNonsymPosv = 243 )
86 parameter ( PlasmaSymPosv = 244 )
88 integer PlasmaNoPacking
89 integer PlasmaPackSubdiag
90 integer PlasmaPackSupdiag
91 integer PlasmaPackColumn
92 integer PlasmaPackLowerBand
94 integer PlasmaPackUpeprBand
96 parameter ( PlasmaNoPacking = 291 )
97 parameter ( PlasmaPackSubdiag = 292 )
98 parameter ( PlasmaPackSupdiag = 293 )
99 parameter ( PlasmaPackColumn = 294 )
100 parameter ( PlasmaPackRow = 295 )
101 parameter ( PlasmaPackLowerBand = 296 )
102 parameter ( PlasmaPackUpeprBand = 297 )
103 parameter ( PlasmaPackAll = 298 )
105 integer PlasmaNoVec,PlasmaVec
106 parameter ( PlasmaNoVec = 301 )
107 parameter ( PlasmaVec = 302 )
109 integer PlasmaForward, PlasmaBackward
110 parameter ( PlasmaForward = 391 )
111 parameter ( PlasmaBackward = 392 )
113 integer PlasmaColumnwise,PlasmaRowwise
114 parameter ( PlasmaColumnwise = 401 )
115 parameter ( PlasmaRowwise = 402 )
117 !********************************************************************
118 ! PLASMA constants - boolean
120 integer PLASMA_FALSE, PLASMA_TRUE
121 parameter ( PLASMA_FALSE = 0 )
122 parameter ( PLASMA_TRUE = 1 )
124 !********************************************************************
125 ! State machine switches
127 integer PLASMA_WARNINGS, PLASMA_ERRORS, PLASMA_AUTOTUNING
129 parameter ( PLASMA_WARNINGS = 1 )
130 parameter ( PLASMA_ERRORS = 2 )
131 parameter ( PLASMA_AUTOTUNING = 3 )
132 parameter ( PLASMA_DAG = 4 )
134 !********************************************************************
135 ! PLASMA constants - configuration parameters
137 integer PLASMA_CONCURRENCY, PLASMA_TILE_SIZE
138 integer PLASMA_INNER_BLOCK_SIZE, PLASMA_SCHEDULING_MODE
139 integer PLASMA_HOUSEHOLDER_MODE, PLASMA_HOUSEHOLDER_SIZE
140 integer PLASMA_TRANSLATION_MODE
141 parameter ( PLASMA_CONCURRENCY = 1 )
142 parameter ( PLASMA_TILE_SIZE = 2 )
143 parameter ( PLASMA_INNER_BLOCK_SIZE = 3 )
144 parameter ( PLASMA_SCHEDULING_MODE = 4 )
145 parameter ( PLASMA_HOUSEHOLDER_MODE = 5 )
146 parameter ( PLASMA_HOUSEHOLDER_SIZE = 6 )
147 parameter ( PLASMA_TRANSLATION_MODE = 7 )
149 !********************************************************************
150 ! PLASMA constants - scheduling mode
152 integer PLASMA_STATIC_SCHEDULING, PLASMA_DYNAMIC_SCHEDULING
153 parameter ( PLASMA_STATIC_SCHEDULING = 1 )
154 parameter ( PLASMA_DYNAMIC_SCHEDULING = 2 )
156 !********************************************************************
157 ! PLASMA constants - householder mode
159 integer PLASMA_FLAT_HOUSEHOLDER, PLASMA_TREE_HOUSEHOLDER
160 parameter ( PLASMA_FLAT_HOUSEHOLDER = 1 )
161 parameter ( PLASMA_TREE_HOUSEHOLDER = 2 )
163 !*********************************************************************
164 ! PLASMA constants - translation mode
166 integer PLASMA_INPLACE, PLASMA_OUTOFPLACE
167 parameter ( PLASMA_INPLACE = 1 )
168 parameter ( PLASMA_OUTOFPLACE = 2 )
170 !********************************************************************
171 ! PLASMA constants - success & error codes
173 integer PLASMA_SUCCESS, PLASMA_ERR_NOT_INITIALIZED
174 integer PLASMA_ERR_REINITIALIZED, PLASMA_ERR_NOT_SUPPORTED
175 integer PLASMA_ERR_ILLEGAL_VALUE, PLASMA_ERR_NOT_FOUND
176 integer PLASMA_ERR_OUT_OF_MEMORY, PLASMA_ERR_INTERNAL_LIMIT
177 integer PLASMA_ERR_UNALLOCATED, PLASMA_ERR_FILESYSTEM
178 integer PLASMA_ERR_UNEXPECTED, PLASMA_ERR_SEQUENCE_FLUSHED
179 parameter ( PLASMA_SUCCESS = 0 )
180 parameter ( PLASMA_ERR_NOT_INITIALIZED = -101 )
181 parameter ( PLASMA_ERR_REINITIALIZED = -102 )
182 parameter ( PLASMA_ERR_NOT_SUPPORTED = -103 )
183 parameter ( PLASMA_ERR_ILLEGAL_VALUE = -104 )
184 parameter ( PLASMA_ERR_NOT_FOUND = -105 )
185 parameter ( PLASMA_ERR_OUT_OF_MEMORY = -106 )
186 parameter ( PLASMA_ERR_INTERNAL_LIMIT = -107 )
187 parameter ( PLASMA_ERR_UNALLOCATED = -108 )
188 parameter ( PLASMA_ERR_FILESYSTEM = -109 )
189 parameter ( PLASMA_ERR_UNEXPECTED = -110 )
190 parameter ( PLASMA_ERR_SEQUENCE_FLUSHED= -111 )