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

1
#include "typedef.h"
2
#include "matrix.h"
3
#include "bravais.h"
4

5

6

7
main (int argc, char *argv[])
8

9
{
10
  bravais_TYP *S;
11
  bravais_TYP *B;
12
  matrix_TYP *X;
13
  int i,j;
14

15
  extern char **FILENAMES;
16
  extern int FILEANZ;
17
  
18
  extern bravais_TYP *get_bravais();
19
  extern bravais_TYP *Z_class();
20
  read_header(argc, argv);
21
  if(FILEANZ != 1)
22
  {
23
    printf("usage:   gittstab 'file',\n");
24
    printf("where 'file' contains a group given as bravais_TYP\n");
25
    if (is_option('h')){
26
       exit(0);
27
    }
28
    else{
29
       exit(31);
30
    }
31
  }
32
/***********
33
  B = (bravais_TYP *) malloc(sizeof(bravais_TYP));
34
**************/
35
  B = get_bravais(FILENAMES[0]);
36
     for(j=0; j<B->zentr_no; j++)
37
     {
38
        X = B->zentr[j];
39
        S = Z_class(B, X);
40
        put_bravais(S, NULL, "not almost decomposable bravais-group");
41
        free_bravais(S);
42
     }
43

44

45
  exit(0);
46
}
47
/*{{{}}}*/
48

49