1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#############################################################################
##
#A init.g Cryst library Bettina Eick
#A Franz Gaehler
#A Werner Nickel
##
#Y Copyright 1997-1999 by Bettina Eick, Franz G"ahler and Werner Nickel
##
## Cryst - the crystallographic groups package
##
## GAP 4 Version
##
## introducing globally the NC version of PreImagesRepresentative
if not IsBound( PreImagesRepresentativeNC ) then
BindGlobal( "PreImagesRepresentativeNC", PreImagesRepresentative );
fi;
#############################################################################
##
#R read the declaration files
##
ReadPackage( "cryst", "gap/common.gd" ); # declarations for integral matrices
ReadPackage( "cryst", "gap/cryst.gd" ); # declarations for AffineCrystGroups
ReadPackage( "cryst", "gap/hom.gd" ); # declarations for homomorphism
ReadPackage( "cryst", "gap/wyckoff.gd" ); # declarations for Wyckoff position
ReadPackage( "cryst", "gap/zass.gd" ); # declarations for Zassenhaus alg.
ReadPackage( "cryst", "gap/max.gd" ); # declarations for maximal subgroups
ReadPackage( "cryst", "gap/color.gd" ); # declarations for color groups
ReadPackage( "cryst", "gap/equiv.gd" ); # isomorphism test for space groups
ReadPackage( "cryst", "grp/spacegrp.gd" ); # the IT space group catalogue
|
