conpdc2.c

#include "defs.h"

extern char inf0[],inf1[],inf2[],inf3[],outf1[],outf2[],outf3[],temp1[],temp2[],
     ofstr[],ngn[],expg,exph,cr,dcr,hg,triv,cong;
extern int trsp,trptr;
extern int  nfuse,tree[],perm[],gorb[],lorbg[],lorbh[],base[],
       fpt[],bpt[],coh_index[],*cp[],*trad[],*sv[],
       *tailad[],**cpad[],**svgptr[],**svhptr[],
       npt,**lcp,**ucp,*stop,*pst,*pend,nb,fnt,lnt,
       ind,coind,oind,cind,bno,pt,**expp,npg;
extern FILE *ip,*op;

/* The basic aim of this part of the program is to compute permutations of G
   as permutations on the left cosets of H. This is used to compute double
   coset reps if required.
*/
int 
cnprg2 (void)
{ int i,j,k,l,m,n,ncp,pno,mexh,lorb,ndcr,nntb,*orb,rep,*q,**p,**conp,
        *len,*orbptr,*cperm,flct,inch;
  char ngth,fuse; int c;
  if (exph)
  { mexh= (pend-pst)/npt; lcp=cp; j=0;
    for (i=1;i<=lnt;i++) j+=(lorbh[i]-1);
    if (j<mexh) for (i=1;i<=lnt;i++)
    { for (j=1;j<=npt;j++) expp[j]=0; expp[base[i]]=stop;
      p=svhptr[i];
      for (j=1;j<=npt;j++) if (p[j]!=0 && p[j]!=stop)
      { expp[j]=pst; ucp=lcp-1; addsvf(j,p);
        for (k=1;k<=npt;k++) pst[k]=image(k); pst+=npt;
      }
      for (j=1;j<=npt;j++) p[j]=expp[j];
    }
    else {printf("Not enough room to expand H.\n"); exph=0; }
  }
  conp=cp+2*npt;
  if (cong)
  { strcat(inf1,".cp"); op=fopen(inf1,"w"); fprintf(op,"%4d%4d\n",ind,npg);
    printf("Computing coeffs of perms in G.\n");
    for (pno=1;pno<=npg;pno++)
    { *conp= perm+(pno-1)*2*npt-1;
      printf("Coeffs of permutation no %d.\n",pno);
/* The basic conversion algorithm now follows. In this case, coefficents
   are being output, as well as the perms themselves.
*/
      ucp=conp; q=tree;
      for (bno=fnt;bno!= -1;bno=fpt[bno])
      { tailad[bno]=q; q+=2; cpad[bno]=ucp+1; }
      for (cind=1;cind<=ind;cind++)
      { if (cind>1) advance(); lcp=conp; trptr=0;
        for (bno=1;bno<=nb;bno++)
        { if (fpt[bno]!=0)
          { i=tree[trptr]; j=image(i);
            while (svhptr[bno][j]==0)
            { trptr=tree[trptr+1]; i=tree[trptr]; j=image(i); }
            if (expg)
            { q=svgptr[bno][i]; if (q!=stop) {lcp--; *lcp=q+npt; } }
            else addsvb(i,svgptr[bno]);
            trptr+=2;
          }
          else j=image(base[bno]);
          if (exph) { q=svhptr[bno][j]; if (q!=stop) {ucp++; *ucp=q; }}
          else addsvf(j,svhptr[bno]);
          fprintf(op," %d",j);
        }
        fprintf(op," %6d  ",tree[trptr]);
      } /* for (cind=1;... */
      fprintf(op,"\n");
    } /* for (pno=1;...  */
    fclose(op);
  } /* if (cong) */
  if (hg==0) return(0);
 
  *conp= expg ? perm-1 : pst-1; flct= -1;
  printf("Converting permutations from %s.\n",inf3);
  if ((ip=fopen(inf3,"r"))==0)
  { fprintf(stderr,"Cannot open %s.\n",inf3); return(-1); }
  fscanf(ip,"%d%d%d%d",&i,&ncp,&j,&k);
  if (k!=0) k=3; else if (j>0) k=2; else k=1;
  if (i!=npt) {fprintf(stderr,"npt wrong in %s.\n",inf3); return(-1); }
  for (i=1;i<=k;i++) while ((c=getc(ip))!='\n');
  op=fopen(temp1,"w"); fprintf(op,"%4d%4d%4d%4d\n",ind,ncp,0,0);

  while (1)
  { for (pno=1;pno<=ncp;pno++)
    { printf("Converting perm no %d.\n",pno);
      q= *conp+1;
      for (i=1;i<=npt;i++) {fscanf(ip,"%d",q); q++;}
      while ((c=getc(ip))!='\n');
      ucp=conp; q=tree;
      for (bno=fnt;bno!= -1;bno=fpt[bno])
      { tailad[bno]=q; q+=2; cpad[bno]=ucp+1; }
      for (cind=1;cind<=ind;cind++)
      { if (cind>1) advance(); lcp=conp; trptr=0;
        for (bno=1;bno<=lnt;bno++)
        { if (fpt[bno]!=0)
          { i=tree[trptr]; j=image(i);
            while (svhptr[bno][j]==0)
            { trptr=tree[trptr+1]; i=tree[trptr]; j=image(i); }
            if (expg)
            { q=svgptr[bno][i]; if (q!=stop) {lcp--; *lcp=q+npt; } }
            else addsvb(i,svgptr[bno]);
            trptr+=2;
          }
          else j=image(base[bno]);
          if (exph) { q=svhptr[bno][j]; if (q!=stop) {ucp++; *ucp=q; }}
          else addsvf(j,svhptr[bno]);
        }
        fprintf(op," %3d",tree[trptr]);
      }
      fprintf(op,"\n");
    } /* for (pno=1;... */
    fclose(op); fclose(ip);
    flct++; if (flct>nfuse) break;
    if (flct==0)
    { strcpy(inf2,inf0); strcat(inf2,ngn);
      if ((ip=fopen(inf2,"r"))==0)
      { flct++; if (flct>nfuse) break; ngth=0; }
      else ngth=1;
    }
    if (flct>0)
    { strcpy(inf2,inf0); strcat(inf2,"dcr"); ofstr[0]=flct+'0';
      strcat(inf2,ofstr);
    }
    strcpy(outf3,inf2); strcat(outf3,".nr");
    if ((ip=fopen(inf2,"r"))==0)
    { fprintf(stderr,"Cannot open %s.\n",inf2); return(-1); }
    fscanf(ip,"%d%d",&i,&ncp); while (getc(ip)!='\n');
    if (i!=npt) {fprintf(stderr,"npt wrong in %s.\n",inf2); return(-1);}
    op=fopen(outf3,"w"); fprintf(op,"%3d\n",ncp);
    printf("Converting permutations from %s.\n",inf2);
  } /* while(1) */

/* We are now ready to compute orbits of the new perms if necessary, in order
   to compute double coset reps. The tree information is no longer required,
   and the tree space is used to store the new permutations.
*/
  if (dcr)
  { if (trsp<4*ind)
    { fprintf(stderr,"No room to compute orbits. Increase TRSP.\n");return(-1);}
    ndcr=ind-1; orb=tree-1; len=orb+ind; orbptr=len+ind; cperm=orbptr+ind;
    for (i=1;i<=ind;i++) {orb[i]=i; len[i]=1; orbptr[i]=0;}
    printf("Computing orbits of con perms from %s.\n",outf1);
    ip=fopen(temp1,"r");fscanf(ip,"%d%d",&i,&ncp);
    while ((c=getc(ip))!='\n'); flct= -1; fuse=0;
    while (1)
    { for (i=1;i<=ncp;i++)
      { q=cperm;
        for (j=1;j<=ind;j++) { q++; fscanf(ip,"%d",q); }
        for (j=1;j<=ind;j++)
        { k=orb[j]; l=orb[cperm[j]];
          if (k!=l)
          { if (fuse) {if (len[l]<len[k]) {m=k;k=l;l=m;}}
            else len[k]+=len[l];
            len[l]=0; n=k;
            while ((m=orbptr[n])!=0) n=m;
            orbptr[n]=l;
            while (l!=0) {orb[l]=k;l=orbptr[l];}
            ndcr--;
          }
        }
      }
      fclose(ip); flct++;
      if (flct==0) unlink(temp1); else unlink(outf3);
      if (flct>nfuse) break;
      if (flct==0) {fuse=1; if (ngth==0) flct++; if (flct>nfuse) break;}
      strcpy(outf3,inf0);
      if (flct==0) strcat(outf3,ngn);
      else { strcat(outf3,"dcr"); ofstr[0]=flct+'0'; strcat(outf3,ofstr);}
      strcat(outf3,".nr");
      ip=fopen(outf3,"r"); fscanf(ip,"%d",&ncp);
      printf("Computing orbits of con perms from %s.\n",outf3);
    }
    printf("Computing dcreps.\n");
    if (len[1]!=1) printf("Warning. Orb of 1 is greater than one.\n");
    nntb=0; for (i=fnt;i!= -1;i=fpt[i]) nntb++;
    lcp=cp; ip=fopen(temp2,"r"); op=fopen(outf2,"w");
    fprintf(op,"%4d %3d%4d%4d\n",npt,ndcr,0,0);
    for (rep=2;rep<=ind;rep++) if ((lorb=len[rep])>0)
    { ucp=lcp-1;
      for (bno=fnt;bno!= -1;bno=fpt[bno])
      { fscanf(ip,"%d",&inch);
        if (expg) { q=svgptr[bno][inch]; if (q!=stop) {ucp++; *ucp=q;} }
        else addsvf(inch,svgptr[bno]);
      }
      if (npt>=1000)
      for (i=1;i<=npt;i++) fprintf(op,"%5d",image(i));
      else for (i=1;i<=npt;i++) fprintf(op,"%4d",image(i));
      fprintf(op,"   %4d\n",lorb);
    }
    else for (i=1;i<=nntb;i++) fscanf(ip,"%d",&inch);
    fclose(op); fclose(ip); unlink(temp2);
  }
/* If we are keeping the converted permutations, then invert them, to
  get action on right cosets
*/
  if (hg && dcr==0)
  { ip=fopen(temp1,"r"); op=fopen(outf1,"w");
    fscanf(ip,"%d%d",&i,&ncp); while ((c=getc(ip))!='\n');
    if (triv) fprintf(op,"%4d%4d%4d%4d\n1\n",ind,ncp,1,0);
    else  fprintf(op,"%4d%4d%4d%4d\n",ind,ncp,0,0);
    for (i=1;i<=ncp;i++)
    { for (j=1;j<=ind;j++) {fscanf(ip,"%d",&k); tree[k]=j;}
      for (j=1;j<=ind;j++) fprintf(op," %3d",tree[j]); fprintf(op,"\n");
    }
    fclose(ip); fclose(op);
    unlink(temp1);
  }
  return(0);
}