Method: NuLin::Native.dorglq

Defined in:

ext/nulin_native.c

.dorglq(m, n, k, a, lda, tau, work, lwork, info) ⇒ Object

# File 'ext/nulin_native.c', line 251

static VALUE nulin_dorglq(VALUE self,VALUE m,VALUE n,VALUE k,VALUE a,VALUE lda,VALUE tau,VALUE work,VALUE lwork,VALUE info)
{
  integer M = NUM2INT(m);
  integer N = NUM2INT(n);
  integer K = NUM2INT(k);
  doublereal* A = NA_PTR_TYPE((nulin_check_narray(a),a), doublereal*);
  integer LDA = NUM2INT(lda);
  doublereal* TAU = NA_PTR_TYPE((nulin_check_narray(tau),tau), doublereal*);
  doublereal* WORK = NA_PTR_TYPE((nulin_check_narray(work),work), doublereal*);
  integer LWORK = NUM2INT(lwork);
  integer INFO = NUM2INT(info);
  dorglq_(&M,&N,&K,A,&LDA,TAU,WORK,&LWORK,&INFO);
  return rb_ary_new3(1, INT2NUM(INFO));
}