-
Notifications
You must be signed in to change notification settings - Fork 6
/
rein.c
69 lines (59 loc) · 1.5 KB
/
rein.c
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
#include"typedef.h"
#include"getput.h"
#include"longtools.h"
#include"bravais.h"
#include"matrix.h"
#include"gmp.h"
int main (int argc, char *argv[])
{
int i,
anz;
matrix_TYP **A,
*tmp,
*tmp2;
char comment[100],
version[10];
read_header(argc, argv);
if ((FILEANZ < 1) || (is_option('h')))
{
printf("usage: Rein 'file' -r -c\n");
printf(" where file contains a matrix_TYP.\n");
printf("\n");
printf(" Calculates the pure lattices generated by the rows (columns)\n");
printf(" of each matrix in file, ie. an integral basis of all integral\n");
printf(" points in the vectorspace spanned by the rows (columns) of\n");
printf(" each matrix in file.\n");
printf("\n");
printf("-r : use the row-space (default)\n");
printf("-c : use the column space\n");
printf("\n");
if (is_option('h')){
exit(0);
}
else{
exit(31);
}
}
A = mget_mat(FILENAMES[0],&anz);
printf("#%d\n",anz);
for (i=0;i<anz;i++){
if (is_option('c')){
sprintf(version,"(columns)");
tmp2 = tr_pose(A[i]);
tmp = long_rein_mat(tmp2);
free_mat(tmp2);
tmp2 = tr_pose(tmp);
free_mat(tmp);
tmp = tmp2;
}
else{
sprintf(version,"(rows)");
tmp = long_rein_mat(A[i]);
}
sprintf(comment,"pure lattice of the %d-th matrix of %s %s",
i+1,FILENAMES[0],version);
put_mat(tmp,NULL,comment,2);
free_mat(tmp);
}
exit(0);
}