with CUDA Fortran

Calling Thrust from CUDA Fortran
C wrapper for Thrust: csort.cu
#include
#include
#include
extern "C" {
//Sort for integer arrays
void sort_int_wrapper( int *data, int N)
{
}
// Wrap raw pointer with a device_ptr
thrust::device_ptr dev_ptr(data);
// Use device_ptr in Thrust sort
// algorithm
thrust::sort(dev_ptr, dev_ptr+N);
//Sort for single precision arrays
void sort_float_wrapper( float *data, int N)
{
}
thrust::device_ptr dev_ptr(data);
thrust::sort(dev_ptr, dev_ptr+N);
//Sort for double precision arrays
void sort_double_wrapper(double *data, int N)
{
}
}
thrust::device_ptr dev_ptr(data);
thrust::sort(dev_ptr, dev_ptr+N);