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

563580 views
Tweet
Share
Share
1
#ifdef __cplusplus

2
extern "C" {

3
#endif

4


5


6


7


8
#ifndef _ORBIT_H_

9
#define _ORBIT_H_

10


11
#ifndef _CARAT_TYPEDEF_H_

12
#include"typedef.h"

13
#endif

14


15
#ifdef __STDC__

16
/*-------------------------------------------------------------*\

17
| FILE: orb_division.c 

18
\*-------------------------------------------------------------*/

19
extern matrix_TYP *orbit_representatives(matrix_TYP **M, int Manz,

20
     bravais_TYP *G, int *option, int *orbit_no, int is_sorted);

21


22
/*-------------------------------------------------------------*\

23
| FILE: orb_alg.c 

24
\*-------------------------------------------------------------*/

25
extern int *make_orbit_options();

26
extern matrix_TYP **orbit_alg(matrix_TYP *M, bravais_TYP *G, bravais_TYP *S,

27
     int *option, int *length);

28
extern void free_baum(struct baum *p);

29
struct baum *hash_addbaum(matrix_TYP *mat,

30
                          matrix_TYP **L,

31
                          int anz,

32
                          struct baum *verz,

33
                          int *schonda,

34
                          int hashnumber,

35
                          int *hashverz);

36
/*-------------------------------------------------------------*\

37
| FILE: orbit_subdivision.c 

38
\*-------------------------------------------------------------*/

39
extern int *orbit_subdivision(matrix_TYP *vecs, bravais_TYP *G, int *orbit_no);

40


41
/*-------------------------------------------------------------*\

42
| FILE: vec_orbit_division.c 

43
\*-------------------------------------------------------------*/

44
extern int *vec_orbit_division( int **V, int V_no, bravais_TYP *G,

45
     int orbit_no);

46


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

48
| FILE: row_spin.c 

49
\*-------------------------------------------------------------*/

50
extern matrix_TYP *row_spin(matrix_TYP *x,matrix_TYP **G,int no,int option);

51
extern bravais_TYP *representation_on_lattice(matrix_TYP *x,bravais_TYP *G,

52
                                       int option);

53
matrix_TYP *translation_lattice(matrix_TYP **G,int number,matrix_TYP *P);

54


55
#else

56
/*-------------------------------------------------------------*\

57
| FILE: orb_division.c 

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

59
extern matrix_TYP *orbit_representatives();

60


61
/*-------------------------------------------------------------*\

62
| FILE: orb_alg.c 

63
\*-------------------------------------------------------------*/

64
extern int *make_orbit_options();

65
extern matrix_TYP **orbit_alg();

66
extern void free_baum();

67
struct baum *hash_addbaum();

68


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

70
| FILE: orbit_subdivision.c 

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

72
extern int *orbit_subdivision();

73


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

75
| FILE: vec_orbit_division.c 

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

77
extern int *vec_orbit_division();

78


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

80
| FILE: row_spin.c 

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

82
extern matrix_TYP *row_spin();

83
extern bravais_TYP *representation_on_lattice();

84
matrix_TYP *translation_lattice();

85


86
#endif

87
#endif

88


89


90
#ifdef __cplusplus

91
}

92
#endif

93


94


95