CoCalc Logo Icon
StoreFeaturesDocsShareSupportNewsAboutSign UpSign In

Real-time collaboration for Jupyter Notebooks, Linux Terminals, LaTeX, VS Code, R IDE, and more,
all in one place.

| Download

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

Views: 418346
Tweet
Share
Share
1
/****************************************************************************

2
**

3
*A  extend_matrix.c             ANUPQ source                   Eamonn O'Brien

4
**

5
*Y  Copyright 1995-2001,  Lehrstuhl D fuer Mathematik,  RWTH Aachen,  Germany

6
*Y  Copyright 1995-2001,  School of Mathematical Sciences, ANU,     Australia

7
**

8
*/

9


10
#include "pq_defs.h"

11
#include "pcp_vars.h"

12
#include "constants.h"

13
#include "pq_functions.h"

14


15
int **

16
reallocate_matrix(int **a, int orig_n, int orig_m, int n, int m, Logical zero);

17


18
/* extend the space available for storage of automorphisms */

19


20
int **extend_matrix(int **current, struct pcp_vars *pcp)

21
{

22
   register int *y = y_address;

23


24
   int nmr_of_generators;

25
   int **auts;

26


27
   nmr_of_generators = y[pcp->clend + 1];

28


29
   auts = reallocate_matrix(current,

30
                            nmr_of_generators,

31
                            nmr_of_generators,

32
                            pcp->lastg,

33
                            pcp->lastg,

34
                            TRUE);

35


36
   return auts;

37
}

38


39