/* File: lacaml_c.c

   Copyright (C) 2001-2005

     Markus Mottl
     email: markus.mottl@gmail.com
     WWW: http://www.ocaml.info

   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2 of the License, or (at your option) any later version.

   This library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with this library; if not, write to the Free Software
   Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
*/

/* $Id: lacaml_c.c,v 1.9 2005/03/02 21:54:05 mottl Exp $ */


#include <caml/mlvalues.h>
#include <caml/alloc.h>
#include <caml/memory.h>
#include <caml/fail.h>
#include <caml/callback.h>

#include "f2c.h"

#include "lacaml_macros.h"

/** ILAENV: fetch problem-dependent parameters for LAPACK-functions */

extern integer ilaenv_(
  integer *ISPEC, char *NAME, char *OPTS,
  integer *N1, integer *N2, integer *N3, integer *N4,
  ftnlen name_len, ftnlen opts_len);

CAMLprim value lacaml_ilaenv_stub(
  value vISPEC, value vNAME, value vOPTS,
  value vN1, value vN2, value vN3, value vN4)
{
  integer GET_INT(ISPEC),
          GET_INT(N1),
          GET_INT(N2),
          GET_INT(N3),
          GET_INT(N4);

  char *NAME = String_val(vNAME),
       *OPTS = String_val(vOPTS);

  ftnlen NAME_LEN = string_length(vNAME),
         OPTS_LEN = string_length(vOPTS);

  return Val_int (ilaenv_(&ISPEC, NAME, OPTS,
                          &N1, &N2, &N3, &N4, NAME_LEN, OPTS_LEN));
}

CAMLprim value lacaml_ilaenv_stub_bc(value *argv, int argn)
{
  return lacaml_ilaenv_stub(argv[0], argv[1], argv[2],
                            argv[3], argv[4], argv[5], argv[6]);
}