(* Sized Linear Algebra Package (SLAP)

   Copyright (C) 2013- Akinori ABE <abe@kb.ecei.tohoku.ac.jp>

   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
*)

open Bigarray
open Slap_misc
open Slap_common

type prec = floatXBITS_elt
type num_type = float
type (+'indim, +'outdim, +'tag) trans3 =
  ('indim, 'outdim, 'tag) Slap_common.trans2
let prec = floatXBITS
let zero = 0.0
let one = 1.0
let lacaml_trans3 = Slap_common.lacaml_trans2
let int_of_num = int_of_float

#include "slap_SDCZ_common.ml"

module Vec =
struct
#include "slap_SDCZ_vec.ml"
#include "slap_SD_vec.ml"
end

module Mat =
struct
#include "slap_SDCZ_mat.ml"
#include "slap_SD_mat.ml"
end

#include "slap_SDCZ_la.ml"
#include "slap_SD_la.ml"
