1 #include "defs.h"
2
3 # define MSP 60000
4 # define MM 100
5 # define MV 2000
6 # define MDIM 100
7 # define MPR 256
8 # define MWL 200
9 int msp=MSP;
10 short mv=MV,mm=MM,mdim=MDIM,mpr=MPR,prime,dim,*spv,**spm,ngens,
11 mspace[MSP],*vec[MV],**mat[MM],cp[MWL],pinv[MPR],opmats;
12 char inf1[80],inf2[80];
13 FILE *ip;
14
15 int
main(int argc,char * argv[])16 main (int argc, char *argv[])
17 { short arg; char err;
18 err=0; arg=1; opmats=0;
19 if (argc<=arg) {err=1; goto error;}
20 if (argv[arg][0]=='-')
21 { if (argv[arg][1]=='o') opmats=1; else {err=1; goto error;}
22 arg++; if (argc<=arg) {err=1; goto error;}
23 }
24 strcpy(inf1,argv[arg]);strcat(inf1,".");strcpy(inf2,inf1);
25 if (calcmats() == -1) exit(1);
26 if (matact(0)== -1) exit(1);
27
28 arg++; while (argc>arg)
29 { strcpy(inf1,inf2); strcat(inf1,argv[arg]);
30 if (matact(1)== -1) exit(1);
31 arg++;
32 }
33 error: if (err)
34 { fprintf(stderr,"Usage: nq+chrun gpname [inf] [inf] ...\n"); exit(1);}
35 exit(0);
36 }
37