/* ==================================================================== */
/* Allan CORNET */
/* INRIA 2008 */
/* Template toolbox_skeleton */
/* This file is released into the public domain */
/* ==================================================================== */
#include "stack-c.h"
#include "c:\Users\vlj\Desktop\GPULU\src\c\cuLU.h"
/* ==================================================================== */
int sci_toGPU(char *fname)
{
  int l1, m1, n1, l2, m2, n2;
  double a,b,c;
  double* tmp=NULL;

  CheckRhs(1,1) ;
  CheckLhs(1,1) ;
  init();

  /* get first parameter and put in 'a' */
  GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
  a = *stk(l1);

  m1=n1=1;
  toGPU(m1,n1,&a,tmp);
  fromGPU(m1,n1,tmp,&c);

  CreateVarFromPtr(Rhs + 1, SCILAB_POINTER_DATATYPE , &m1, &n1,
(void*)&tmp);
  LhsVar(1) = Rhs+1;
  return 0;
}
/* ==================================================================== */

int sci_fromGPU(char *fname)
{
	int ptr=0;
	double* tmp=NULL;
	double content=0;
	int m1,n1,m2,n2,l1 ;

	CheckRhs(1,1) ;
	CheckLhs(1,1) ;
	GetRhsVar(1, SCILAB_POINTER_DATATYPE, &m1, &n1, &ptr);
	tmp=(double*) ((unsigned long int) *stk(ptr));
	fromGPU(m1,n1,tmp,&content);
	CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l1);
	*stk(l1)=content;

	LhsVar(1)=Rhs+1;
	return 0;
}