Book a Demo!
CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutPoliciesSign UpSign In
Download

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

563595 views
Tweet
Share
Share
1
#ifdef __cplusplus

2
extern "C" {

3
#endif

4


5


6
#ifndef _BRAVAIS_H_

7
#define _BRAVAIS_H_

8


9
#ifndef _CARAT_TYPEDEF_H_

10
#include"typedef.h"

11
#endif

12


13
#ifdef __STDC__

14


15
/*-------------------------------------------------------------*\

16
| FILE: bravais_tools.c

17
\*-------------------------------------------------------------*/

18
bravais_TYP *bravais_group(bravais_TYP *H,int FLAG);

19
bravais_TYP *copy_bravais(bravais_TYP *H);

20


21
/*-------------------------------------------------------------*\

22
| FILE: formspace.c 

23
\*-------------------------------------------------------------*/

24
extern matrix_TYP **formspace(matrix_TYP **B, int Banz, int sym_opt, int *fdim);

25


26
/*-------------------------------------------------------------*\

27
| FILE: init_bravais.c 

28
\*-------------------------------------------------------------*/

29
extern bravais_TYP *init_bravais(int dim);

30


31
/*-------------------------------------------------------------*\

32
| FILE: invar_space.c 

33
\*-------------------------------------------------------------*/

34
extern matrix_TYP **invar_space(matrix_TYP **B, int Banz, int fodim,

35
     int symm_opt, int epsilon, int *anz);

36


37
/*-------------------------------------------------------------*\

38
| FILE: konj_bravais.c 

39
\*-------------------------------------------------------------*/

40
extern bravais_TYP *konj_bravais(bravais_TYP *B, matrix_TYP *T);

41


42
/*-------------------------------------------------------------*\

43
| FILE: lincomb.c 

44
\*-------------------------------------------------------------*/

45
extern matrix_TYP *vec_to_form(int *v, matrix_TYP **F, int Fanz);

46
extern void form_to_vec(int *erg, matrix_TYP *A, matrix_TYP **F,

47
     int Fanz, int *denominator);

48
extern vertex_TYP *form_to_vertex(matrix_TYP *A, matrix_TYP **F,

49
     int Fanz, int *denominator);

50
extern void form_to_vec_modular(int *erg, matrix_TYP *A, matrix_TYP **F,

51
     int Fanz);

52


53
/*-------------------------------------------------------------*\

54
| FILE: normlin.c 

55
\*-------------------------------------------------------------*/

56
extern matrix_TYP *normlin(matrix_TYP **Fo, matrix_TYP *N, int fdim);

57


58
/*-------------------------------------------------------------*\

59
| FILE: p_formspace.c 

60
\*-------------------------------------------------------------*/

61
extern matrix_TYP **p_formspace(matrix_TYP **B, int Banz, int prime,

62
      int sym_opt, int *fdim);

63


64
/*-------------------------------------------------------------*\

65
| FILE: rform.c 

66
\*-------------------------------------------------------------*/

67
extern matrix_TYP *rform(matrix_TYP **B, int Banz, matrix_TYP *Fo, int epsilon);

68


69
/*-------------------------------------------------------------*\

70
| FILE: trace_bifo.c 

71
\*-------------------------------------------------------------*/

72
extern matrix_TYP *trace_bifo(matrix_TYP **F1, matrix_TYP **F2, int anz);

73


74
/*-------------------------------------------------------------*\

75
| FILE: tr_bravais.c 

76
\*-------------------------------------------------------------*/

77
extern bravais_TYP *tr_bravais(bravais_TYP *B, int calcforms, int invert);

78


79
/*-------------------------------------------------------------*\

80
| FILE: normalisator.c

81
\*-------------------------------------------------------------*/

82
void normalisator(bravais_TYP *H,

83
                  bravais_TYP *Gtr,

84
                  matrix_TYP *A,

85
                  int prime,

86
                  boolean b_option,

87
                  boolean o_option);

88


89


90
#else

91


92
/*-------------------------------------------------------------*\

93
| FILE: bravais_tools.c

94
\*-------------------------------------------------------------*/

95
bravais_TYP *bravais_group();

96
bravais_TYP *copy_bravais();

97


98
/*-------------------------------------------------------------*\

99
| FILE: formspace.c 

100
\*-------------------------------------------------------------*/

101
extern matrix_TYP **formspace();

102


103
/*-------------------------------------------------------------*\

104
| FILE: init_bravais.c 

105
\*-------------------------------------------------------------*/

106
extern bravais_TYP *init_bravais();

107


108
/*-------------------------------------------------------------*\

109
| FILE: invar_space.c 

110
\*-------------------------------------------------------------*/

111
extern matrix_TYP **invar_space();

112


113
/*-------------------------------------------------------------*\

114
| FILE: konj_bravais.c 

115
\*-------------------------------------------------------------*/

116
extern bravais_TYP *konj_bravais();

117


118
/*-------------------------------------------------------------*\

119
| FILE: lincomb.c 

120
\*-------------------------------------------------------------*/

121
extern matrix_TYP *vec_to_form();

122
extern void form_to_vec();

123
extern vertex_TYP *form_to_vertex();

124
extern void form_to_vec_modular();

125


126
/*-------------------------------------------------------------*\

127
| FILE: normlin.c 

128
\*-------------------------------------------------------------*/

129
extern matrix_TYP *normlin();

130


131
/*-------------------------------------------------------------*\

132
| FILE: p_formspace.c 

133
\*-------------------------------------------------------------*/

134
extern matrix_TYP **p_formspace();

135


136
/*-------------------------------------------------------------*\

137
| FILE: rform.c 

138
\*-------------------------------------------------------------*/

139
extern matrix_TYP *rform();

140


141
/*-------------------------------------------------------------*\

142
| FILE: trace_bifo.c 

143
\*-------------------------------------------------------------*/

144
extern matrix_TYP *trace_bifo();

145


146
/*-------------------------------------------------------------*\

147
| FILE: tr_bravais.c 

148
\*-------------------------------------------------------------*/

149
extern bravais_TYP *tr_bravais();

150


151
/*-------------------------------------------------------------*\

152
| FILE: normalisator.c

153
\*-------------------------------------------------------------*/

154
void normalisator();

155


156


157
#endif

158
#endif

159


160


161
#ifdef __cplusplus

162
}

163
#endif

164


165


166


167