1. could you please add Fortran interfaces for
- magmaf_dgetri
- magmaf_dstedc
- magmaf_zhegvx
- magmaf_zheevx
3. could you please add magma_dstedc function (see attachment)
Code: Select all
#include "common_magma.h"
extern "C" magma_int_t
magma_zstedc(char range, magma_int_t n, double* d, double* e, cuDoubleComplex* z, magma_int_t ldz,
cuDoubleComplex* work, magma_int_t lwork, double *rwork, magma_int_t lrwork,
magma_int_t* iwork, magma_int_t liwork, magma_int_t* info)
{
double *dwork;
if (MAGMA_SUCCESS != magma_dmalloc( &dwork, 3*n*(n/2 + 1) )) {
*info = -15;
return MAGMA_ERR_DEVICE_ALLOC;
}
char range_t = ' ';
if (range == 'I') range_t = 'A';
magma_zstedx(range_t, n, 0., 0., 0, 0, d, e, z, ldz,
rwork, lrwork, iwork, liwork, dwork, info);
magma_free( dwork );
}