Lines Matching refs:LPERM
5210 & DISPLS(:), LPERM(:),
5228 & LPERM, LIPERM, IPET, NVT, BUF_PE1, BUF_PE2,
5396 LPERM => WORK(3*id%N+1 : 4*id%N)
5398 CALL DMUMPS_782(id, ord%TOPNODES, LPERM, LIPERM, ord)
5399 CALL DMUMPS_774(id, ord%TOPNODES(2), LPERM,
5404 nullify(LPERM)
5591 CALL MUMPS_734(LPERM, LIPERM, IPET, NVT,
5597 SUBROUTINE DMUMPS_782(id, TOPNODES, LPERM, LIPERM, ord) argument
5600 INTEGER, POINTER :: TOPNODES(:), LPERM(:), LIPERM(:) local
5603 CALL MUMPS_733(LPERM , ord%N, id%INFO,
5612 LPERM = 0
5617 LPERM(GIDX) = K
5624 SUBROUTINE DMUMPS_774(id, NLOCVARS, LPERM, argument
5629 INTEGER, POINTER :: LPERM(:), LSTVAR(:), LVARPT(:),
5647 IF((LPERM(top_graph%JCN_LOC(I)) .NE. 0) .AND.
5649 LENG(LPERM(top_graph%IRN_LOC(I))) =
5650 & LENG(LPERM(top_graph%IRN_LOC(I))) + 1
5655 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5674 IDX = LPERM(LSTVAR(J))
5677 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5682 IF((LPERM(top_graph%JCN_LOC(I)) .NE. 0) .AND.
5684 PE(IPE(LPERM(top_graph%IRN_LOC(I)))+
5685 & ELEN(LPERM(top_graph%IRN_LOC(I))) +
5686 & LENG(LPERM(top_graph%IRN_LOC(I)))) =
5687 & LPERM(top_graph%JCN_LOC(I))
5688 LENG(LPERM(top_graph%IRN_LOC(I))) =
5689 & LENG(LPERM(top_graph%IRN_LOC(I))) + 1
5697 LPERM(1:NLOCVARS+NCLIQUES) = 0
5700 IF(LPERM(PE(J)) .EQ. I) THEN
5703 LPERM(PE(J)) = I