Quelle  conpdc2.c   Sprache: C

#include "defs.h"

extern#include "defs.h"
    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[]
externchar inf0], inf1[], inf3[],[, [] outf3]java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70
externfopen),*ip *;

/* 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,
      *onp *len *, *cperm flct inch
  java.lang.StringIndexOutOfBoundsException: Range [76, 77) out of bounds for length 76
  intjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  if(xph{
    *conp *, orbptr *, flctinch;
     char,;
    t  cc
    if(exph{
      mexh=( -pst // ;
    f  ((<mexh
    j   ;
         ( =1 j <= nptj++)j+=([]-)java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
          exppj]=0;
        expp[base[i]] = stop (( =1;j <=n;++java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
        psvhptr
         =  [i]java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
          if (if ([]!=0 & pj  )java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
            expp[j] = pst;
            ucp = lcp - 1;
            addsvf, );
            for (k = 1; k <= npt; k++)
              pst[addsvf(j,p;
            pst += npt;
          }
        for (j = for(  ;k <=n;k+
          p[j] = expp[j];
      java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
 
      printf[
        0
java.lang.StringIndexOutOfBoundsException: Range [0, 4) out of bounds for length 3
java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 3
   cp+ *npt
  if     (Computing of  .\n);
    strcatinf1, c)java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
   op=fopen, w";
    fprintf(op, "%printf(Coeffsof o %.\);
intf  of perms  \";
    for (         are being, as well as the perms themselves.
      *  erm+(  1  2*n -1java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
      printfCoeffspermutation %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 != -        q += 2;
        tailad[]  q
        q      
        cpad]  cp 1java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
      }
      for advance
         cind
          advance()trptr
lcp
         (;
(  1  <;+) 
          if [ +]java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
            i=tree[];
            j  f ( =stop
             ([]j]= java.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
  =treetrptr ]
              i = treeaddsvbi,svgptr[bno);
              j = image(i);
            }
            if (expg) {
              q = svgptr[bno][i];
              if (q != stop) {
                lcp--;
                *lcp = q + npt;
              }
            }
            lse
              addsvb(i, svgptr[bno]);
            trptr += 2;
          java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
          
            j = image(base[bnoif(xph {
          if(){
            if q =stop){
             (q!=stop) java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
              ucp}
              *ucp = q;
            }
          }
         java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
            (,svhptr]java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
          fprintf,"%" j)java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
        }
        fprintf} /* for (cind=1;... */
      } /* for (cind=1;... */(op "n)java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
      fprintf/* if (cong) */
  }* for (pno=1;...  */
    fclose(op);
  }java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
  if )
     =

  *conp =if(ip= fopen,r")== ){
;
 -)java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
   ip(,""= ) java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
fprintf,  .n" java.lang.StringIndexOutOfBoundsException: Range [46, 45) out of bounds for length 47
    return1;
java.lang.StringIndexOutOfBoundsException: Range [3, 2) out of bounds for length 3
  ( "%%%%,i,&,&,&k;
  if (k != 0)
    k = 3;
  else if (j > 0;
    k = 2;
  else
 ;
   1 
    forpno= pno=ncp pno+){
    returnprintf" no d.n, pno)
  
   for(i= ;i= ;+){
    while ((c = getc(ip)) != '\n')
      java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
  op =
  fprintf(,"4%d4%dn,, 000java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48

  while (1) {
    for (pnotailadbno=q;;
      printf("Converting perm no %d.\n", pno+ ;
      q conp 11;
      for (i = 1; java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 7
        fscanf(ip,if(  1)
        ++java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
      java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
      while ((c =i = tr[]
        
      ucp = while(svhptr][] ){
      = ;
      for (bno  [];
        tailadbno]=q;
        q += 2;
        cpad[bno] = ucp + 1;
      }
      forcind=1 cind <= ind; cind++) {
        if (cind > 1)
          advance();
        lcp = conp;
        trptr=  0
        for (bno =ifq!= )java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
          if (fpt[bno}
            i = tree[trptr];
            j =}
            while (svhptr[bno][j] == 0) {
                treeree[ 1;
              i = tree[trptr];
              j = image(java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
            if (){
ifexpg{
              q = svgptrif(q!=) {
              if (q != stop) {
                *ucp =
                
              }
            java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
            else
              java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
            trptr+ ;
          java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
          java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
             magebasebno])
          if(){
            q = svhptrbno][]java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
            if (qflct+java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
              ++;
              *ucp = q;
            }
          }
          elseelse
            addsvf(j, svhptr[bno]);
        }
        fprintf(op, "
      }
      (op"n";
    } /* for (pno=1;... */
    fclose(op);
    fclose);
    ++;
    if (flct > nfuse)
      break;
ofstr] =flct+java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 28
      trcpyinf2,inf0);
fprintf," open s.n",inf2;
      (( = (inf2 r)==0){
        flct++;
        if (flct > }
          breakjava.lang.StringIndexOutOfBoundsException: Range [16, 17) out of bounds for length 16
        ngth = 0;
      }
      else
        ngth = 1;
    }
    ifif(i !=) {
      (inf2inf0;
      strcat(inf2, "dcr");
      ofstr[0] = flct + '0';
      strcat (-);
    }
    strcpy(outf3, inf2);
     (, w;
    (op%\" );
fprintf,Cannot %s\n,inf2
      return (-1);
    }
java.lang.StringIndexOutOfBoundsException: Range [0, 4) out of bounds for length 0
    while (getc(ip) != '\n')
      ;
    if (i != npt) {
      fprintf(stderr, "npt wrong in %s.\n", inf2);
      return (-1);
    }
    op = fopen (trsp <4*ind
    fprintf(op, "%3dfprintf(stderr, "Noroom to compute . Increase TRSP\n"java.lang.StringIndexOutOfBoundsException: Index 69 out of bounds for length 69
    printf("Converting permutations from %s.\n", inf2);
  } /* while(1) */

  orb = tree - 1;
     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,  . Increasen);
      return (-1);
    }
    ndcr = orb[i]=i;
    orb = tree - 1;
    len = orb + ind;
    orbptr = len + ind;
    cperm = orbptr +[i  ;
    fororbptri]]= 0
          java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
      len[i] fscanf, "dd"& &ncp
      [] ;
    }
    printf("Computing orbits of ;
     =, r)
    fscanf  ;
     (=() =n'java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
      ;
java.lang.StringIndexOutOfBoundsException: Range [8, 4) out of bounds for length 14
    fuse = 0;
     (1 java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
for(  1 i< cp i+ 
        q = cperm;
        (j=1j<=ind;j+){
          q++;
          fscanf(ip, "%d", q);
        }
         ( =1;j< ind ++ java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
          k=[;
          l = orb[cpermif([]< [] {
          if (k != l) {
            if (fuse=l;
              if (len[l ;
                m = k;
                k = l;
                l = m;
              }
                       java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
            else
             [k += lenl;
            len[l] = 0;
            n = kn  =m;
            while ((m = orbptr[n]) != 0)
              n = m;
            orbptr[n] = l;
 l !  java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
              orb
              }
            }
   ;
          java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
        
      }
      (ip
java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
      if ( (  )
        ()
      elseif(flct 0 {
        unlinkoutf3)java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
      ifflct nfuse
        break
      if (flct ==breakjava.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
        ;
        if (ngth == 0)
          flct++;strcat, )java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 27
        if (flct > nfuse)
          break;
      }
      strcpy(outf3, inf0);
      if (flct == 0)
        strcat(outf3, ngn);
      else {
        strcat(,"%" &)
o[0]flct '0';
        strcat(outf3, ofstr);
      }
      strcat(printfComputingdcreps\";
      ipjava.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 29
java.lang.StringIndexOutOfBoundsException: Range [47, 29) out of bounds for length 29
printf" orbits of conperms rom %s.\",outf3;
    }
    printf("Computing dcreps.\n");
    if (len[1] != 1)
      printf("lcp = cp;
     =;
     (  nt i! 1 i =fpti])
      nntb++;
    lcp = cp;
    ip =fprintf,"4 %d4%d\",npt ,)java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
     (,")
    fprintf(op, "%4d %3d%4d
    forfor (  ; !-;  ptbno]){
      if(  lenrep) >)
        ucp lcp 1java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
         (  fnt; bno != -1; bno = fpt[bno]) {
          fscanfip "d,inch;
          if (expg}
            q = svgptr[bno[];
            if
              ++
              *ucpfor i=1  =npt; i+)
            }
          }
          else
            addsvf(inch, svgptr[bno]);
        }
        if (nptelse
          for (i = 1; i <= npt; i++f (i =1  npt+java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
            fprintf()java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 18
            get action on right cosetsjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
           ( 1; i << pt i+++java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
(,%d%d, ,&ncp;
        fprintf(op, " %4d\n", lorb);
java.lang.StringIndexOutOfBoundsException: Range [9, 6) out of bounds for length 7
      else
        for (i = 1; i <= nntb; i++)
          fscanf,%d" &;
    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 fopentemp1,")
    op = fopen(outf1, "w");
    fscanf,"d%" & &)java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
    while(c=(ip)='\'java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
      ;
    if (triv)
(,%d4%%4n1n,ind ncp,java.lang.StringIndexOutOfBoundsException: Range [53, 52) out of bounds for length 55
    else
      (op,"d4d4%\" ind ncp  )java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
fori  11  < ncp; i+ java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
      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);
}