oefpil-sys 0.3.1

Rust FFI bindings to statically linked C/Fortran library OEFPIL
Documentation 
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
39
40
41
42
43
44
45

#include "lib.h"

void oefpil_tcm_blockdiag_set_tile_half(
	int n,
	int bn,
	double* A,
	int* tilemap,
	int ii,
	const double* B)
{
	(void)bn;
	A += ii * n * n;
	for (int i = 0; i < n; i++)
		for (int j = 0; j <= i; j++)
			A[j * n + i] = A[i * n + j] = *B++;
	tilemap[ii] = TILE_FULL;
}

void oefpil_tcm_full_set_tile_half(
	int n,
	int bn,
	double* A,
	int* tilemap,
	int ii,
	int jj,
	const double* B)
{
	int o = bn * n;
	double* AN = A + (ii * o + jj) * n;
	double* AT = A + (jj * o + ii) * n;
	for (int i = 0; i < n; i++)
		for (int j = 0; j <= i; j++)
			AT[j * o + i] = AN[i * o + j] = AT[i * o + j] = AN[j * o + i] = *B++;
	tilemap[jj * bn + ii] = tilemap[ii * bn + jj] = TILE_FULL;
}

FILE* stdin_file() {
	return stdin;
}
FILE* stdout_file() {
	return stdout;
}
FILE* stderr_file() {
	return stderr;
}