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

563516 views
Tweet
Share
Share
1
#ifdef __cplusplus

2
extern "C" {

3
#endif

4


5


6
#ifndef _DATEI_H_

7
#define _DATEI_H_

8


9
#ifndef _CARAT_TYPEDEF_H_

10
#include"typedef.h"

11
#endif

12


13
typedef struct{

14
    bravais_TYP *grp;

15
    char *symbol;

16
    int almost;

17
    int zclass;

18
    int alpha;

19
    int N_orbits;

20
    matrix_TYP **TR;

21
} lattice_element;

22


23
#ifdef __STDC__

24


25
/*-------------------------------------------------------------*\

26
| FILE: brav_from_datei.c

27
\*-------------------------------------------------------------*/

28
bravais_TYP *brav_from_datei(char *symb,int almost,int zclass);

29


30
/*-------------------------------------------------------------*\

31
| FILE: free_bravais.c 

32
\*-------------------------------------------------------------*/

33
extern void free_bravais( bravais_TYP *grp);

34


35
/*-------------------------------------------------------------*\

36
| FILE: get_symbol.c 

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

38
extern symbol_out *get_symbol ( char *file_name);

39


40
/*-------------------------------------------------------------*\

41
| FILE: get_zentr.c 

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

43
extern void get_zentr( symbol_out *B);

44


45
/*-------------------------------------------------------------*\

46
| FILE: gittstab.c 

47
\*-------------------------------------------------------------*/

48
extern bravais_TYP *gittstab( bravais_TYP *grp, matrix_TYP *X);

49


50
extern bravais_TYP *Z_class( bravais_TYP *B, matrix_TYP *zen);

51


52
/*-------------------------------------------------------------*\

53
| FILE: gittstabneu.c

54
\*-------------------------------------------------------------*/

55
extern bravais_TYP *gittstabneu( bravais_TYP *grp, matrix_TYP *X);

56


57
/*-------------------------------------------------------------*\

58
| FILE: read_symbol.c 

59
\*-------------------------------------------------------------*/

60
extern symbol_out *read_symbol(char *file_name);

61


62
/*-------------------------------------------------------------*\

63
| FILE: right_order.c

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

65
extern void right_order(char *string);

66


67
/*-------------------------------------------------------------*\

68
| FILE: lattice_tools.c

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

70


71
lattice_element *init_lattice_element();

72
void free_lattice_element(lattice_element *x);

73
lattice_element *fget_lattice_element(FILE *F,int OPTION);

74
void fput_lattice_element(lattice_element *E,FILE *F);

75


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

77
| FILE: lattice.c

78
\*-------------------------------------------------------------*/

79


80
lattice_element **lattice(char *symb,int dim,int almost,int zclass,int *no,

81
                          int OPTION);

82


83
/*------------------------------------------------------------*\

84
| FILE: super_lattice.c

85
\*------------------------------------------------------------*/

86


87
lattice_element **super_lattice(char *symb,int dim,int almost,int zclass,

88
		int *no, int OPTION);

89


90
#else

91


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

93
| FILE: brav_from_datei.c

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

95
bravais_TYP *brav_from_datei();

96


97
/*-------------------------------------------------------------*\

98
| FILE: free_bravais.c 

99
\*-------------------------------------------------------------*/

100
extern void free_bravais();

101


102
/*-------------------------------------------------------------*\

103
| FILE: get_symbol.c 

104
\*-------------------------------------------------------------*/

105
extern symbol_out *get_symbol();

106


107
/*-------------------------------------------------------------*\

108
| FILE: get_zentr.c 

109
\*-------------------------------------------------------------*/

110
extern void get_zentr();

111


112
/*-------------------------------------------------------------*\

113
| FILE: gittstab.c 

114
\*-------------------------------------------------------------*/

115
extern bravais_TYP *gittstab();

116


117
extern bravais_TYP *Z_class();

118


119
/*-------------------------------------------------------------*\

120
| FILE: gittstabneu.c

121
\*-------------------------------------------------------------*/

122
extern bravais_TYP *gittstabneu();

123


124
/*-------------------------------------------------------------*\

125
| FILE: read_symbol.c 

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

127
symbol_out *read_symbol();

128


129
/*-------------------------------------------------------------*\

130
| FILE: right_order.c

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

132
extern void right_order();

133


134
/*--------------------------------------------------------------------------*\

135
| FILE: lattice_tools.c

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

137


138
lattice_element *init_lattice_element();

139
void free_lattice_element();

140
lattice_element *fget_lattice_element();

141
void fput_lattice_element();

142


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

144
| FILE: lattice.c

145
\*-------------------------------------------------------------*/

146


147
lattice_element **lattice(char *symb,int dim,int almost,int zclass,int *no,

148
                          int OPTION);

149


150
#endif

151
#endif

152


153


154
#ifdef __cplusplus

155
}

156
#endif

157


158


159