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

1
/****************************************************************************
2
**
3
*A  assemble_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

13
/* assemble a t x t matrix, A, which represents the action of the
14
   automorphism described by a 2-dimensional array, auts,
15
   on an initial-segment rank t subgroup of the p-multiplicator;
16
   note that the indices of auts start at 1, not 0 */
17

18
void assemble_matrix(int **A, int t, int **auts, struct pcp_vars *pcp)
19
{
20
   register int *y = y_address;
21

22
   register int i, j;
23
   register int offset = y[pcp->clend + pcp->cc - 1] + 1;
24

25
   for (i = 0; i < t; ++i)
26
      for (j = 0; j < t; ++j)
27
         A[i][j] = auts[offset + i][offset + j];
28
}
29

30