GAP 4.8.9 installation with standard packages -- copy to your CoCalc project to get it

1
#include"typedef.h"
2

3

4
main (int argc, char *argv[])
5
{
6

7
	matrix_TYP **x, **S;
8
        bravais_TYP *G;
9
        int anz;
10

11
        extern char **FILENAMES;
12
        extern int FILEANZ;
13

14
        extern matrix_TYP **mget_mat();
15
        extern bravais_TYP *hyperbolic_stabilizer();
16

17
        read_header(argc, argv);
18
        if(FILEANZ != 2)
19
        {
20
           printf("usage:  hypstab 'file1' 'file2 ,\n");
21
           printf("where 'file1' contains an 1 by n matrix X.\n");
22
           printf("and   'file2' contains a set of n by n matrix S.\n");
23
           printf("of sylvester Typ (-1, n-1) s.t. xSx^{tr} < 0\n");
24
           if (is_option('h')){
25
              exit(0);
26
           }
27
           else{
28
              exit(31);
29
           }
30
        }
31
        x = mget_mat(FILENAMES[0], &anz);
32
        S = mget_mat(FILENAMES[1], &anz);
33
        G = hyperbolic_stabilizer(x[0], S[0]);
34
        put_bravais(G, NULL, "hyperbolic stabilizer");
35

36

37
   exit(0);
38
}
39

40