Google

sig
  type ('a, 'b, 'c) t
  val create :
    ('a, 'b) Bigarray.kind ->
    'Bigarray.layout -> int -> ('a, 'b, 'c) Bigarray.Array1.t
  val dim : ('a, 'b, 'c) Bigarray.Array1.t -> int
  external kind : ('a, 'b, 'c) Bigarray.Array1.t -> ('a, 'b) Bigarray.kind
    = "bigarray_kind"
  external layout : ('a, 'b, 'c) Bigarray.Array1.t -> 'Bigarray.layout
    = "bigarray_layout"
  external get : ('a, 'b, 'c) Bigarray.Array1.t -> int -> 'a
    = "%bigarray_ref_1"
  external set : ('a, 'b, 'c) Bigarray.Array1.t -> int -> '-> unit
    = "%bigarray_set_1"
  external sub :
    ('a, 'b, 'c) Bigarray.Array1.t ->
    int -> int -> ('a, 'b, 'c) Bigarray.Array1.t = "bigarray_sub"
  external blit :
    ('a, 'b, 'c) Bigarray.Array1.t -> ('a, 'b, 'c) Bigarray.Array1.t -> unit
    = "bigarray_blit"
  external fill : ('a, 'b, 'c) Bigarray.Array1.t -> '-> unit
    = "bigarray_fill"
  val of_array :
    ('a, 'b) Bigarray.kind ->
    'Bigarray.layout -> 'a array -> ('a, 'b, 'c) Bigarray.Array1.t
  val map_file :
    Unix.file_descr ->
    ('a, 'b) Bigarray.kind ->
    'Bigarray.layout -> bool -> int -> ('a, 'b, 'c) Bigarray.Array1.t