Lines Matching refs:LPERM
5209 & DISPLS(:), LPERM(:), local
5227 & LPERM, LIPERM, IPET, NVT, BUF_PE1, BUF_PE2,
5395 LPERM => WORK(3*id%N+1 : 4*id%N)
5397 CALL CMUMPS_782(id, ord%TOPNODES, LPERM, LIPERM, ord)
5398 CALL CMUMPS_774(id, ord%TOPNODES(2), LPERM,
5403 nullify(LPERM)
5590 CALL MUMPS_734(LPERM, LIPERM, IPET, NVT,
5596 SUBROUTINE CMUMPS_782(id, TOPNODES, LPERM, LIPERM, ord) argument
5599 INTEGER, POINTER :: TOPNODES(:), LPERM(:), LIPERM(:) local
5602 CALL MUMPS_733(LPERM , ord%N, id%INFO,
5611 LPERM = 0
5616 LPERM(GIDX) = K
5623 SUBROUTINE CMUMPS_774(id, NLOCVARS, LPERM, argument
5628 INTEGER, POINTER :: LPERM(:), LSTVAR(:), LVARPT(:), local
5646 IF((LPERM(top_graph%JCN_LOC(I)) .NE. 0) .AND.
5648 LENG(LPERM(top_graph%IRN_LOC(I))) =
5649 & LENG(LPERM(top_graph%IRN_LOC(I))) + 1
5654 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5673 IDX = LPERM(LSTVAR(J))
5676 ELEN(LPERM(LSTVAR(J))) = ELEN(LPERM(LSTVAR(J)))+1
5681 IF((LPERM(top_graph%JCN_LOC(I)) .NE. 0) .AND.
5683 PE(IPE(LPERM(top_graph%IRN_LOC(I)))+
5684 & ELEN(LPERM(top_graph%IRN_LOC(I))) +
5685 & LENG(LPERM(top_graph%IRN_LOC(I)))) =
5686 & LPERM(top_graph%JCN_LOC(I))
5687 LENG(LPERM(top_graph%IRN_LOC(I))) =
5688 & LENG(LPERM(top_graph%IRN_LOC(I))) + 1
5696 LPERM(1:NLOCVARS+NCLIQUES) = 0
5699 IF(LPERM(PE(J)) .EQ. I) THEN
5702 LPERM(PE(J)) = I