C********************************************************************** SUBROUTINE SPCOMPACK ( NEQNS , NSUPER, NSUB, NNZ, XLINDX, LINDX , & XLNZ , ADJNCY) C*********************************************************************** C C ----------- C PARAMETERS. C ----------- C INTEGER NEQNS, NSUPER, NSUB c INTEGER XLINDX(nsuper+1), XLNZ(neqns+1) INTEGER LINDX(nsub) , ADJNCY(nnz) C*********************************************************************** C PURPOSE: C THIS SUBROUTINE Convert a compact adjacency representation into C a standard adjacency form C******************************************************************* call icopy (nsub,lindx,1,adjncy,1) i=1 do 1140 j=1,neqns if (i .eq. nsuper+1) go to 1141 if ((xlnz(j+1)-xlnz(j) .eq. xlindx(i+1)-xlindx(i)) & .and. (adjncy(xlnz(j)) .eq. j)) go to 1120 l=xlindx(nsuper+1)-xlindx(i)+(xlnz(j+1)-xlnz(j)) call icopy(l,lindx(xlindx(i)-(xlnz(j+1)-xlnz(j))), & 1,adjncy(xlnz(j)),1) i=i-1 1120 continue i=i+1 1140 continue go to 1135 1141 k=xlnz(neqns+1)-xlnz(j) i=1 ii=1 1125 if (i.gt.k) go to 1135 do 1130 j=1,ii adjncy(xlnz(neqns+1)-i) = neqns-j+1 1130 i=i+1 ii=ii+1 go to 1125 1135 continue return end C**********************************************************************