/** * C++ version of gsl_blas_zswap(). * @param X A vector * @param Y A vector * @return Error code on failure */ int zswap( vector_complex& X, vector_complex& Y ){ return gsl_blas_zswap( X.get(), Y.get() ); }
static VALUE rb_gsl_blas_zswap(int argc, VALUE *argv, VALUE obj) { gsl_vector_complex *x = NULL, *y = NULL; get_vector_complex2(argc, argv, obj, &x, &y); return INT2FIX(gsl_blas_zswap(x, y)); }