-
Notifications
You must be signed in to change notification settings - Fork 6
/
tr_bravais.c
48 lines (41 loc) · 1.04 KB
/
tr_bravais.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
#include "typedef.h"
#include "tools.h"
#include "getput.h"
#include "bravais.h"
#include "matrix.h"
#include "datei.h"
int main (int argc, char *argv[])
{
bravais_TYP *G,
*H;
read_header(argc, argv);
if(FILEANZ != 1)
{
printf("Usage: %s 'file' [-n] [-i]\n",argv[0]);
printf("\n");
printf("file: bravais_TYP of the finite unimodular group G.\n");
printf("\n");
printf("Calculates the transposed group of G.\n");
printf("\n");
printf("Options:\n");
printf("-n : The space of invariant forms of the transposed group is not\n");
printf(" calculated.\n");
printf("-i : Invert the generators of G, G->normal, G->cen to give an isomorphism.\n");
printf("\n");
printf("Cf. Tr.\n");
if (is_option('h')){
exit(0);
}
else{
exit(31);
}
}
G = get_bravais(FILENAMES[0]);
H = tr_bravais(G,!is_option('n'),is_option('i'));
if (G->order){
H->order = G->order;
factorize_new(H->order,H->divisors);
}
put_bravais(H,NULL,NULL);
exit(0);
}