File: mlgsl_matrix_float.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 (16 lines) | stat: -rw-r--r-- 391 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 

#include "wrappers.h"

#define BASE_TYPE float

#undef CONV_FLAT

#define TYPE(t) CONCAT2(t,BASE_TYPE)
#define _DECLARE_BASE_TYPE(v) double conv_##v
#define _CONVERT_BASE_TYPE(v) conv_##v = Double_val(v)
#if __GNUC__ >= 3
#define DECLARE_BASE_TYPE(v) _DECLARE_BASE_TYPE(v); _CONVERT_BASE_TYPE(v)
#endif /* __GNUC__ */
#define FUNCTION(a,b) CONCAT3(a,BASE_TYPE,b)

#include "mlgsl_matrix.h"