English
- int fast_transpos(JD ma[],JD mb[])
- { int n,col,p,k,t;
- int num[M],cpot[M];
- n=ma[0].j;
- t=ma[0].v;
- mb[0].i=n; mb[0].j=ma[0].i; mb[0].v=t;
- if(t<=0)
- return(0);
- for(col=0;col<=n;col++)
- num[col]=0;
- for(p=1;p<=t;p++)
- { k=ma[p].j;
- num[k]++;
- }
- cpot[0]=0; cpot[1]=1;
- for(col=2;col<=n;col++)
- cpot[col]=cpot[col-1]+num[col-1];
- for(p=1;p<=t;p++)
- { col=ma[p].j;
- k=cpot[col];
- mb[k].i=ma[p].j;
- mb[k].j=ma[p].i;
- mb[k].v=ma[p].v;
- cpot[col]++;
- }
- return(1);
- }
