1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
/*******************************************************************************
* This file is AUTOMATICALLY GENERATED by:
* ../tools/fortran_wrappers.pl ../include/magma_ds.i
* Do not edit.
******************************************************************************/
#include <stdint.h> // for uintptr_t
#include "magma_v2.h"
#include "magma_mangling.h"
/*
* typedef comming from fortran.h file provided in CUDADIR/src directory
* it will probably change with future release of CUDA when they use 64 bit addresses
*/
typedef size_t devptr_t;
#ifdef PGI_FORTRAN
#define magma_idevptr(ptr_) ((magma_int_t*) (ptr_))
#define magma_zdevptr(ptr_) ((magmaDoubleComplex*)(ptr_))
#define magma_cdevptr(ptr_) ((magmaFloatComplex*) (ptr_))
#define magma_ddevptr(ptr_) ((double*) (ptr_))
#define magma_sdevptr(ptr_) ((float*) (ptr_))
#else
#define magma_idevptr(ptr_) ((magma_int_t*) (uintptr_t)(*(ptr_)))
#define magma_zdevptr(ptr_) ((magmaDoubleComplex*)(uintptr_t)(*(ptr_)))
#define magma_cdevptr(ptr_) ((magmaFloatComplex*) (uintptr_t)(*(ptr_)))
#define magma_ddevptr(ptr_) ((double*) (uintptr_t)(*(ptr_)))
#define magma_sdevptr(ptr_) ((float*) (uintptr_t)(*(ptr_)))
#endif
#ifdef __cplusplus
extern "C" {
#endif
#define magmaf_dsgesv_gpu FORTRAN_NAME( magmaf_dsgesv_gpu, MAGMAF_DSGESV_GPU )
void magmaf_dsgesv_gpu(
const char* trans, magma_int_t *n, magma_int_t *nrhs,
devptr_t *dA, magma_int_t *ldda,
magma_int_t *ipiv,
devptr_t *dipiv,
devptr_t *dB, magma_int_t *lddb,
devptr_t *dX, magma_int_t *lddx,
devptr_t *dworkd,
devptr_t *dworks,
magma_int_t *iter,
magma_int_t *info )
{
magma_dsgesv_gpu(
magma_trans_const(*trans), *n, *nrhs,
magma_ddevptr(dA), *ldda,
ipiv,
magma_idevptr(dipiv),
magma_ddevptr(dB), *lddb,
magma_ddevptr(dX), *lddx,
magma_ddevptr(dworkd),
magma_sdevptr(dworks),
iter,
info );
}
#define magmaf_dsgetrs_gpu FORTRAN_NAME( magmaf_dsgetrs_gpu, MAGMAF_DSGETRS_GPU )
void magmaf_dsgetrs_gpu(
const char* trans, magma_int_t *n, magma_int_t *nrhs,
devptr_t *dA, magma_int_t *ldda,
devptr_t *dipiv,
devptr_t *dB, magma_int_t *lddb,
devptr_t *dX, magma_int_t *lddx,
devptr_t *dSX,
magma_int_t *info )
{
magma_dsgetrs_gpu(
magma_trans_const(*trans), *n, *nrhs,
magma_sdevptr(dA), *ldda,
magma_idevptr(dipiv),
magma_ddevptr(dB), *lddb,
magma_ddevptr(dX), *lddx,
magma_sdevptr(dSX),
info );
}
#define magmaf_dsposv_gpu FORTRAN_NAME( magmaf_dsposv_gpu, MAGMAF_DSPOSV_GPU )
void magmaf_dsposv_gpu(
const char* uplo, magma_int_t *n, magma_int_t *nrhs,
devptr_t *dA, magma_int_t *ldda,
devptr_t *dB, magma_int_t *lddb,
devptr_t *dX, magma_int_t *lddx,
devptr_t *dworkd,
devptr_t *dworks,
magma_int_t *iter,
magma_int_t *info )
{
magma_dsposv_gpu(
magma_uplo_const(*uplo), *n, *nrhs,
magma_ddevptr(dA), *ldda,
magma_ddevptr(dB), *lddb,
magma_ddevptr(dX), *lddx,
magma_ddevptr(dworkd),
magma_sdevptr(dworks),
iter,
info );
}
#define magmaf_dsgeqrsv_gpu FORTRAN_NAME( magmaf_dsgeqrsv_gpu, MAGMAF_DSGEQRSV_GPU )
void magmaf_dsgeqrsv_gpu(
magma_int_t *m, magma_int_t *n, magma_int_t *nrhs,
devptr_t *dA, magma_int_t *ldda,
devptr_t *dB, magma_int_t *lddb,
devptr_t *dX, magma_int_t *lddx,
magma_int_t *iter,
magma_int_t *info )
{
magma_dsgeqrsv_gpu(
*m, *n, *nrhs,
magma_ddevptr(dA), *ldda,
magma_ddevptr(dB), *lddb,
magma_ddevptr(dX), *lddx,
iter,
info );
}
#ifdef __cplusplus
}
#endif
|
