Home
last modified time | relevance | path

Searched refs:Invp (Results 1 – 7 of 7) sorted by relevance

/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/solver_direct/
H A Dhecmw_ordering_metis.F9022 subroutine hecmw_ordering_metis_NodeND(Neqns,Xadj,Adj0,Perm,Invp) argument
29 integer(kind=kint), intent(out):: Invp(:) local
48 call METIS_NodeND(Neqns,Xadj,Adj0,vwght,options,Perm,Invp)
60 call METIS_NodeND(Neqns,Xadj,Adj0,numflag,options,Perm,Invp)
H A Dhecmw_ordering.F9030 subroutine hecmw_ordering_gen(Neqns,Nttbr,Xadj,Adj0,Perm,Invp,opt,loglevel) argument
43 integer(kind=kint), intent(out):: Invp(:) local
60 call hecmw_ordering_GENQMD(Neqns,Nttbr,Xadj,Adj0,Perm,Invp)
63 call hecmw_ordering_METIS_NodeND(Neqns,Xadj,Adj0,Perm,Invp)
66 call hecmw_ordering_GENRCM(Neqns,Xadj,Adj0,Perm,Invp)
H A Dhecmw_ordering_rcm.f9019 subroutine hecmw_ordering_GENRCM(Neqns,Xadj,Adj0,Perm,Invp) argument
26 integer(kind=kint), intent(out):: Invp(:) local
H A Dhecmw_ordering_qmd.f9022 subroutine hecmw_ordering_GENQMD(Neqns,Nttbr,Xadj,Adj0,Perm,Invp) argument
30 integer(kind=kint), intent(out):: Invp(:) local
76 Invp(node) = node
113 np = Invp(nxnode)
116 Invp(ip) = np
118 Invp(nxnode) = num
134 search = Invp(inode)
H A D_unused_code.f90103 INTEGER :: Invp(*) local
110 READ (5,*) Invp(i)
111 IF ( Invp(i)==0 ) THEN
113 Invp(i) = i
117 ELSEIF ( Invp(i)<0 ) THEN
118 READ (11,*) (Invp(i),i=1,Neqns)
120 Iperm(Invp(i)) = i
128 Iperm(Invp(i)) = i
H A Dhecmw_solver_direct.f901092 ib0 = Invp(Izz)
1098 Invp(Izz) = ibp
1099 Invp(izzp) = ib0
1104 if ( Invp(Iperm(i))/=i .or. Iperm(Invp(i))/=i) then
1160 izzz = Invp(Izz)
1462 ii = Invp(I)
1463 jj = Invp(J)
1578 ii = Invp(I)
1579 jj = Invp(J)
1675 ii = Invp(I)
[all …]
/dports/math/testu01/TestU01-1.2.3/testu01/
H A Dsnpair.c108 double Invp; /* 1/p; ( = 1 if p = 0) */ member
279 dist = pow (distp, work->Invp); in snpair_DistanceCP()
706 work->dlim = pow (work->dlimp, work->Invp); in Setdlim()
1474 work->Invp = 1.0 / work->pLR; in snpair_ClosePairs()
2322 work->Invp = 1.0 / work->pLR; in snpair_BickelBreiman()
2551 work->Invp = work->pLR = work->pp = 1; in snpair_ClosePairsBitMatch()