PLASMA  2.4.5
PLASMA - Parallel Linear Algebra for Scalable Multi-core Architectures
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups
workspace_d.c
Go to the documentation of this file.
1 
17 #include "common.h"
18 #include "workspace.h"
19 
20 /***************************************************************************/
40 int PLASMA_Alloc_Workspace_dgeev(int N, PLASMA_desc **descT) {
41  return plasma_alloc_ibnb_tile(N, N, PLASMA_FUNC_DGEEV, PlasmaRealDouble, descT); }
42 
43 /***************************************************************************/
63 int PLASMA_Alloc_Workspace_dgehrd(int N, PLASMA_desc **descT) {
64  return plasma_alloc_ibnb_tile(N, N, PLASMA_FUNC_DGEHRD, PlasmaRealDouble, descT); }
65 
66 /***************************************************************************/
89 int PLASMA_Alloc_Workspace_dgebrd(int M, int N, PLASMA_desc **descT) {
90  return plasma_alloc_ibnb_tile(M, N, PLASMA_FUNC_DGEBRD, PlasmaRealDouble, descT); }
91 
92 /***************************************************************************/
116 int PLASMA_Alloc_Workspace_dgels(int M, int N, double **T) {
117  return plasma_alloc_ibnb(M, N, PLASMA_FUNC_DGELS, PlasmaRealDouble, (void**)T); }
118 
119  /***************************************************************************/
144 int PLASMA_Alloc_Workspace_dgels_Tile(int M, int N, PLASMA_desc **descT) {
145  return plasma_alloc_ibnb_tile(M, N, PLASMA_FUNC_DGELS, PlasmaRealDouble, descT); }
146 
147 /***************************************************************************/
171 int PLASMA_Alloc_Workspace_dgeqrf(int M, int N, double **T) {
172  return plasma_alloc_ibnb(M, N, PLASMA_FUNC_DGELS, PlasmaRealDouble, (void**)T); }
173 
174 /***************************************************************************/
198 int PLASMA_Alloc_Workspace_dgeqrf_Tile(int M, int N, PLASMA_desc **descT) {
199  return plasma_alloc_ibnb_tile(M, N, PLASMA_FUNC_DGELS, PlasmaRealDouble, descT); }
200 
201 /***************************************************************************/
225 int PLASMA_Alloc_Workspace_dgelqf(int M, int N, double **T) {
226  return plasma_alloc_ibnb(M, N, PLASMA_FUNC_DGELS, PlasmaRealDouble, (void**)T); }
227 
228 /***************************************************************************/
252 int PLASMA_Alloc_Workspace_dgelqf_Tile(int M, int N, PLASMA_desc **descT) {
253  return plasma_alloc_ibnb_tile(M, N, PLASMA_FUNC_DGELS, PlasmaRealDouble, descT); }
254 
255 /***************************************************************************/
280 int PLASMA_Alloc_Workspace_dgesv_incpiv(int N, double **L, int **IPIV) {
281  int status = plasma_alloc_ibnb(N, N, PLASMA_FUNC_DGESV, PlasmaRealDouble, (void**)L);
282  if (status != PLASMA_SUCCESS)
283  return status;
284  return plasma_alloc_ipiv(N, N, PLASMA_FUNC_DGESV, (void**)IPIV); }
285 
286 /***************************************************************************/
311 int PLASMA_Alloc_Workspace_dgesv_incpiv_Tile(int N, PLASMA_desc **descL, int **IPIV)
312 {
313  int status = plasma_alloc_ibnb_tile(N, N, PLASMA_FUNC_DGESV, PlasmaRealDouble, descL);
314  if (status != PLASMA_SUCCESS)
315  return status;
316  return plasma_alloc_ipiv(N, N, PLASMA_FUNC_DGESV, (void **)IPIV);
317 }
318 /***************************************************************************/
341 int PLASMA_Alloc_Workspace_dgesvd(int M, int N, PLASMA_desc **descT) {
342  return plasma_alloc_ibnb_tile(M, N, PLASMA_FUNC_DGESVD, PlasmaRealDouble, descT); }
343 
344 /***************************************************************************/
379 int PLASMA_Alloc_Workspace_dgetrf_incpiv(int M, int N, double **L, int **IPIV) {
380  int status = plasma_alloc_ibnb(M, N, PLASMA_FUNC_DGESV, PlasmaRealDouble, (void**)L);
381  if (status != PLASMA_SUCCESS)
382  return status;
383  return plasma_alloc_ipiv(M, N, PLASMA_FUNC_DGESV, (void**)IPIV); }
384 
385 /***************************************************************************/
411 int PLASMA_Alloc_Workspace_dgetrf_incpiv_Tile(int N, PLASMA_desc **descL, int **IPIV)
412 {
413  int status = plasma_alloc_ibnb_tile(N, N, PLASMA_FUNC_DGESV, PlasmaRealDouble, descL);
414  if (status != PLASMA_SUCCESS)
415  return status;
416  return plasma_alloc_ipiv(N, N, PLASMA_FUNC_DGESV, (void **)IPIV);
417 }
418 /***************************************************************************/
441 int PLASMA_Alloc_Workspace_dsyev(int M, int N, PLASMA_desc **descT) {
442  return plasma_alloc_ibnb_tile(M, N, PLASMA_FUNC_DSYEV, PlasmaRealDouble, descT); }
443 
444 /***************************************************************************/
467 int PLASMA_Alloc_Workspace_dsygv(int M, int N, PLASMA_desc **descT) {
468  return plasma_alloc_ibnb_tile(M, N, PLASMA_FUNC_DSYGV, PlasmaRealDouble, descT); }
469 
470  /***************************************************************************/
493 int PLASMA_Alloc_Workspace_dsytrd(int M, int N, PLASMA_desc **descT) {
494  return plasma_alloc_ibnb_tile(M, N, PLASMA_FUNC_DSYTRD, PlasmaRealDouble, descT); }