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

1
#ifdef __cplusplus
2
extern "C" {
3
#endif
4

5

6

7
#include"gmp.h"
8

9
#ifndef _BASE_H_
10
#define _BASE_H_
11

12
#ifdef __STDC__
13

14
/*************************************************************************
15
@ FILE: base.c
16
**************************************************************************/
17
extern void free_tree(struct tree *p);
18

19
extern int hash_mat(struct tree *p,matrix_TYP **v,matrix_TYP *x,int pos);
20

21
extern void init_bahn(bahn *a);
22

23
extern void free_bahn(bahn *a);
24

25
extern bahn **strong_generators(matrix_TYP **base,bravais_TYP *U,int OPT);
26

27
extern matrix_TYP **get_base(bravais_TYP *U);
28

29
extern int is_element(matrix_TYP *x,bravais_TYP *G,bahn **strong,int **w);
30

31
extern matrix_TYP **normalizer_in_N(bravais_TYP *U,bravais_TYP *N,int *anz,
32
                                    int finite_flag);
33

34
extern int size(bahn **a);
35

36
extern void extend_bahn(bahn **a);
37

38
extern matrix_TYP **get_base(bravais_TYP *U);
39

40
extern int red_gen(bravais_TYP *G,matrix_TYP **base,bahn ***strong,int i);
41

42
matrix_TYP *conjugated(bravais_TYP *G,bravais_TYP *H,
43
                       matrix_TYP **N,int Nanz,bahn **strong);
44

45
/*************************************************************************
46
@ FILE: base2.c
47
**************************************************************************/
48
int strong_generators_2(matrix_TYP **base,bravais_TYP *U,matrix_TYP ***K,
49
                        int *anz,MP_INT *mp);
50

51
#else
52

53
/*************************************************************************
54
@ FILE: base.c
55
**************************************************************************/
56
extern void free_tree();
57

58
extern int hash_mat();
59

60
extern void init_bahn();
61

62
extern void free_bahn();
63

64
extern bahn **strong_generators();
65

66
extern matrix_TYP **get_base();
67

68
extern int is_element();
69

70
extern matrix_TYP **normalizer_in_N();
71

72
extern int size();
73

74
extern void extend_bahn();
75

76
extern matrix_TYP **get_base();
77

78
extern int red_gen();
79

80
matrix_TYP *conjugated();
81

82
/*************************************************************************
83
@ FILE: base2.c
84
**************************************************************************/
85
int strong_generators_2();
86

87
#endif
88
#endif
89

90
#ifdef __cplusplus
91
}
92
#endif
93

94

95

96