File: mlgsl_permut.h

package info (click to toggle)
ocamlgsl 0.3.5-3
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 3,444 kB
  • ctags: 2,901
  • sloc: ml: 7,956; ansic: 6,796; makefile: 303; sh: 87; awk: 13
file content (13 lines) | stat: -rw-r--r-- 434 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
/* ocamlgsl - OCaml interface to GSL                        */
/* Copyright () 2002 - Olivier Andrieu                     */
/* distributed under the terms of the GPL version 2         */


#include <caml/bigarray.h>

#define GSL_PERMUT_OF_BIGARRAY(arr) \
  struct caml_bigarray *bigarr_##arr = Bigarray_val(arr); \
  gsl_permutation perm_##arr = { \
      /*.size =*/ bigarr_##arr->dim[0], \
      /*.data =*/ bigarr_##arr->data }