Source file S.ml

(* File: SD.ml

   Copyright © 2001-

   Markus Mottl <markus.mottl@gmail.com>

   Christophe Troestler <Christophe.Troestler@umons.ac.be>

   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.1 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.,
   51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA *)

(** Modules with functions specialized for simple (S) or double (D) precision
    numbers. *)

include Float32
include Impl2_S
include Impl4_S
include Real_io

module Vec = struct
  type t = vec

  include Types.Vec (* Export [unop],... so they can be explicit in S and D. *)
  include Vec2_S
  include Vec4_S
end

module Mat = struct
  type t = mat

  include Types.Mat
  include Mat2_S
  include Mat4_S
end