Markus Mottl avatar Markus Mottl committed 575ae56

Fixed new OCaml 4.00 warnings

Comments (0)

Files changed (16)

examples/blas/blas.ml

 (* $Id: blas.ml,v 1.12 2006/01/22 18:34:33 mottl Exp $ *)
 
 open Format
-open Bigarray
 
 open Lacaml.D
 open Lacaml.Io

examples/eig/eig.ml

 (* $Id: eig.ml,v 1.16 2005/07/14 15:47:39 mottl Exp $ *)
 
 open Format
-open Bigarray
 
 open Lacaml.D
 open Lacaml.Io
 (* CGEEV DEMO *)
 
 open Lacaml.C
-open Complex
 
 let () =
   let n = 3 in

examples/eig/sbev.ml

 (** Example based on http://www.nag.co.uk/lapack-ex/node61.html *)
 
 open Format
-open Bigarray
 
 open Lacaml.D
 open Lacaml.Io

examples/eig/sbgv.ml

 (** Example based on http://www.nag.co.uk/lapack-ex/node97.html *)
 
 open Format
-open Bigarray
 
 open Lacaml.D
 open Lacaml.Io

examples/lin_eq/gbsv.ml

 *)
 
 open Format
-open Bigarray
 
 open Lacaml.D
 open Lacaml.Io

examples/lin_eq_comp/lin_eq_comp.ml

 (* $Id: lin_eq_comp.ml,v 1.9 2006/01/22 18:34:33 mottl Exp $ *)
 
 open Format
-open Bigarray
 
 open Lacaml.D
 open Lacaml.Io

examples/lin_reg/lin_reg.ml

 (* $Id: lin_reg.ml,v 1.14 2005/03/10 16:10:11 mottl Exp $ *)
 
 open Format
-open Bigarray
 
 open Lacaml.D
 open Lacaml.Io

examples/qr/qr.ml

 *)
 
 open Format
-open Bigarray
 
 open Lacaml.D
-open Lacaml.Io
 
 let () = Random.self_init ()
 

examples/svd/svd.ml

 (* $Id: svd.ml,v 1.4 2005/07/14 15:37:30 mottl Exp $ *)
 
 open Format
-open Bigarray
 open Lacaml.Io
 
 (* REAL GESVD DEMO *)
 (* COMPLEX GESVD DEMO *)
 
 open Lacaml.C
-open Complex
 
 let () =
   let a = Mat.random 3 2 in
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *)
 
-open Bigarray
-
 (** Modules with functions specialized for simple (C) or double (Z)
     precision complex numbers. *)
 
   else ormqr_err ~loc ~side ~m ~n ~k ~lwork:1 ~a ~c ~err:info
 
 let ormqr_opt_lwork
-      ?(side = `L) ?m ?n ?k ~tau ?(ar = 1) ?(ac = 1) a ?(cr = 1) ?(cc = 1) c =
+      ?(side = `L) ?(trans = `N) ?m ?n ?k ~tau ?(ar = 1) ?(ac = 1) a
+      ?(cr = 1) ?(cc = 1) c =
   let loc = "Lacaml.FPREC.ormqr_opt_lwork" in
   let m, n, k = ormqr_get_params loc ~side ?m ?n ?k ~tau ~ar ~ac a ~cr ~cc c in
-  ormqr_get_opt_lwork loc ~side ~m ~n ~k ~tau ~ar ~ac ~a
+  ormqr_get_opt_lwork loc ~side ~trans ~m ~n ~k ~tau ~ar ~ac ~a ~cr ~cc ~c
 
 let ormqr
       ?(side = `L) ?(trans = `N) ?m ?n ?k ?work ~tau ?(ar = 1) ?(ac = 1) a
   mat ->
   int
 (** [orgqr_opt_lwork ?m ?n ?k ~tau ?ar ?ac a] @return the optimum
-    length of the work-array used by the [orgqr_opt_lwork]-function
-    given matrix [a], optionally its logical dimensions [m] and
-    [n], and the number of reflectors [k].
+    length of the work-array used by the [orgqr]-function given matrix [a],
+    optionally its logical dimensions [m] and [n], and the number of reflectors
+    [k].
 
     @param m default = available number of rows in matrix [a]
     @param n default = available number of columns in matrix [a]
 
 (* ORMQR *)
 
+val ormqr_opt_lwork :
+  ?side : side ->
+  ?trans : trans2 ->
+  ?m : int ->
+  ?n : int ->
+  ?k : int ->
+  tau : vec ->
+  ?ar : int ->
+  ?ac : int ->
+  mat ->
+  ?cr : int ->
+  ?cc : int ->
+  mat ->
+  int
+(** [ormqr_opt_lwork ?side ?trans ?m ?n ?k ~tau ?ar ?ac a ?cr ?cc c]
+    @return the optimum length of the work-array used by the [ormqr]-function
+    given matrix [a] and [b], optionally its logical dimensions [m] and [n],
+    and the number of reflectors [k].
+
+    @param m default = available number of rows in matrix [a]
+    @param n default = available number of columns in matrix [a]
+    @param k default = available number of elements in vector [tau]
+*)
+
 val ormqr :
   ?side : side ->
   ?trans : trans2 ->
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *)
 
-open Printf
 open Bigarray
 open Numberxx
 open Utils
 (* Zero-sized dummy vector (int) *)
 let empty_int32_vec = create_int32_vec 0
 
-(* Char indicating if matrix is unit triangular *)
-let get_diag_char = function true -> 'U' | false -> 'N'
-
 (* Char indicating type of norm to retrieve for XlanYY routines *)
 let get_norm_char = function `M -> 'M' | `O -> 'O' | `I -> 'I' | `F -> 'F'
 
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *)
 
-open Bigarray
 open Lacaml_vec4_FPREC
 open Utils
 open Floatxx
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *)
 
-open Printf
 open Bigarray
 open Numberxx
 open Common
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.