Lines Matching refs:LPERM
5205 & DISPLS(:), LPERM(:), local
5223 & LPERM, LIPERM, IPET, NVT, BUF_PE1, BUF_PE2,
5391 LPERM => WORK(3*id%N+1 : 4*id%N)
5393 CALL DMUMPS_782(id, ord%TOPNODES, LPERM, LIPERM, ord)
5394 CALL DMUMPS_774(id, ord%TOPNODES(2), LPERM,
5399 nullify(LPERM)
5586 CALL MUMPS_734(LPERM, LIPERM, IPET, NVT,
5592 SUBROUTINE DMUMPS_782(id, TOPNODES, LPERM, LIPERM, ord) argument
5595 INTEGER, POINTER :: TOPNODES(:), LPERM(:), LIPERM(:) local
5598 CALL MUMPS_733(LPERM , ord%N, id%INFO,
5607 LPERM = 0
5612 LPERM(GIDX) = K
5619 SUBROUTINE DMUMPS_774(id, NLOCVARS, LPERM, argument
5624 INTEGER, POINTER :: LPERM(:), LSTVAR(:), LVARPT(:), local
5642 IF((LPERM(top_graph%JCN_LOC(I)) .NE. 0) .AND.
5644 LENG(LPERM(top_graph%IRN_LOC(I))) =
5645 & LENG(LPERM(top_graph%IRN_LOC(I))) + 1
5650 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5669 IDX = LPERM(LSTVAR(J))
5672 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5677 IF((LPERM(top_graph%JCN_LOC(I)) .NE. 0) .AND.
5679 PE(IPE(LPERM(top_graph%IRN_LOC(I)))+
5680 & ELEN(LPERM(top_graph%IRN_LOC(I))) +
5681 & LENG(LPERM(top_graph%IRN_LOC(I)))) =
5682 & LPERM(top_graph%JCN_LOC(I))
5683 LENG(LPERM(top_graph%IRN_LOC(I))) =
5684 & LENG(LPERM(top_graph%IRN_LOC(I))) + 1
5692 LPERM(1:NLOCVARS+NCLIQUES) = 0
5695 IF(LPERM(PE(J)) .EQ. I) THEN
5698 LPERM(PE(J)) = I