File: matrixops.dats

package info (click to toggle)
ats2-lang 0.1.3-1
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 28,136 kB
  • ctags: 20,441
  • sloc: ansic: 354,696; makefile: 2,679; sh: 638
file content (38 lines) | stat: -rw-r--r-- 543 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
(*
//
// Some operations on matrices
//
*)

(* ****** ****** *)

extern
fun{a:t0p}
mul_scalar_matrix
  {m,n:int}
(
  c: a
, A: &matrix (INV(a), m, n) >> _
, m: size_t m, n: size_t n
) : void // end of [mul_scalar_matrix]

(* ****** ****** *)

implement{a}
mul_scalar_matrix
  (c, A, m, n) = let
//
implement(env)
matrix_foreach$fwork<a><env> (x, env) = x := gmul_val<a> (c, x)
//
in
  matrix_foreach<a> (A, m, n)
end // end of [mul_scalar_matrix]

(* ****** ****** *)

implement main () = 0

(* ****** ****** *)

(* end of [matrixops.dats] *)