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

563642 views
Tweet
Share
Share
1
#include "typedef.h"

2
#include "matrix.h"

3
#include"getput.h"

4
#include"datei.h"

5
/**************************************************************************\

6
@---------------------------------------------------------------------------

7
@---------------------------------------------------------------------------

8
@ FILE: free_bravais.

9
@---------------------------------------------------------------------------

10
@---------------------------------------------------------------------------

11
@

12
\**************************************************************************/

13


14
/**************************************************************************\

15
@---------------------------------------------------------------------------

16
@ void free_bravais(grp)

17
@ bravais_TYP *grp;

18
@

19
@ frees the space allocated for the pointers of the bravais_TYP *grp.

20
@---------------------------------------------------------------------------

21
@

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

23


24
void free_bravais(grp)

25
bravais_TYP *grp;

26
{

27
int i;

28


29
  if ( grp ) {

30
    if ( grp->gen_no != 0 &&  grp->gen ) {

31
      for(i=0; i< grp->gen_no; i++) {

32
          free_mat(grp->gen[i]);

33
      }  

34
      free ( grp->gen );

35
    }

36
    

37
    if ( grp->form_no != 0 && grp->form ) {

38
      for(i=0; i< grp->form_no; i++) {

39
          free_mat(grp->form[i]);

40
      }

41
      free( (int *)grp->form);

42
    }

43
    

44
    if ( grp->zentr_no != 0  && grp->zentr ) {

45
      for(i=0; i< grp->zentr_no; i++)

46
      {

47
          free_mat(grp->zentr[i]);

48
      }

49
      free( (int *)grp->zentr);

50
    }

51
      

52
    if ( grp->normal_no != 0  && grp->normal ) {

53
      for(i=0; i< grp->normal_no; i++)

54
      {

55
          free_mat(grp->normal[i]);

56
      }

57
      free( (int *)grp->normal);

58
    }

59
    

60
    if ( grp->cen_no != 0  && grp->cen ) {

61
      for(i=0; i< grp->cen_no; i++)

62
      {

63
        free_mat(grp->cen[i]);

64
      }

65
      free( (int *)grp->cen );

66
    }

67


68
    free( (int *)grp);

69
  }

70


71
}

72


73


74
/*{{{}}}*/

75


76