Home
last modified time | relevance | path

Searched refs:iperm (Results 1 – 25 of 378) sorted by relevance

12345678910>>...16

/dports/cad/z88/Z88OS-15/src/z88h/unix/
H A Dz88h.c1097 iperm[koi[ 1]],iperm[koi[ 2]],iperm[koi[ 3]],iperm[koi[ 4]],iperm[koi[ 5]], in cut2z88()
1098 iperm[koi[ 6]],iperm[koi[ 7]],iperm[koi[ 8]],iperm[koi[ 9]],iperm[koi[10]], in cut2z88()
1099 iperm[koi[11]],iperm[koi[12]],iperm[koi[13]],iperm[koi[14]],iperm[koi[15]], in cut2z88()
1100 iperm[koi[16]],iperm[koi[17]],iperm[koi[18]],iperm[koi[19]],iperm[koi[20]]); in cut2z88()
1114 iperm[koi[ 1]],iperm[koi[ 2]],iperm[koi[ 3]],iperm[koi[ 4]],iperm[koi[ 5]], in cut2z88()
1115 iperm[koi[ 6]],iperm[koi[ 7]],iperm[koi[ 8]],iperm[koi[ 9]],iperm[koi[10]], in cut2z88()
1116 iperm[koi[11]],iperm[koi[12]],iperm[koi[13]],iperm[koi[14]],iperm[koi[15]], in cut2z88()
1139 iperm[koi[1]],iperm[koi[2]],iperm[koi[3]],iperm[koi[4]],iperm[koi[5]], in cut2z88()
1140 iperm[koi[6]],iperm[koi[7]],iperm[koi[8]],iperm[koi[9]],iperm[koi[10]]); in cut2z88()
1277 jele,pree,iperm[k1],iperm[k2],iperm[k3],iperm[k4],iperm[k5],iperm[k6]); in cut2z88()
[all …]
/dports/cad/z88/Z88OS-15/src/z88h/win/
H A Dz88h.c1469 iperm[koi[ 1]],iperm[koi[ 2]],iperm[koi[ 3]],iperm[koi[ 4]],iperm[koi[ 5]], in cut2z88()
1470 iperm[koi[ 6]],iperm[koi[ 7]],iperm[koi[ 8]],iperm[koi[ 9]],iperm[koi[10]], in cut2z88()
1471 iperm[koi[11]],iperm[koi[12]],iperm[koi[13]],iperm[koi[14]],iperm[koi[15]], in cut2z88()
1472 iperm[koi[16]],iperm[koi[17]],iperm[koi[18]],iperm[koi[19]],iperm[koi[20]]); in cut2z88()
1486 iperm[koi[ 1]],iperm[koi[ 2]],iperm[koi[ 3]],iperm[koi[ 4]],iperm[koi[ 5]], in cut2z88()
1487 iperm[koi[ 6]],iperm[koi[ 7]],iperm[koi[ 8]],iperm[koi[ 9]],iperm[koi[10]], in cut2z88()
1488 iperm[koi[11]],iperm[koi[12]],iperm[koi[13]],iperm[koi[14]],iperm[koi[15]], in cut2z88()
1511 iperm[koi[1]],iperm[koi[2]],iperm[koi[3]],iperm[koi[4]],iperm[koi[5]], in cut2z88()
1512 iperm[koi[6]],iperm[koi[7]],iperm[koi[8]],iperm[koi[9]],iperm[koi[10]]); in cut2z88()
1649 jele,pree,iperm[k1],iperm[k2],iperm[k3],iperm[k4],iperm[k5],iperm[k6]); in cut2z88()
[all …]
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dwritetrilinos.f27 & mi(*),nactdof(0:mi(2),*),iperm(3*nk),i,j,k local
49 iperm(nactdof(j,i))=k
63 write(50,*) iperm(i),iperm(i),ad(i)
67 write(50,*) iperm(irow(j)),iperm(i),au(j)
68 write(50,*) iperm(i),iperm(irow(j)),au(j)
76 write(50,*) iperm(i),iperm(i),ad(i)
80 write(50,*) iperm(irow(j)),iperm(i),au(j)
81 write(50,*) iperm(i),iperm(irow(j)),au(j+nzs)
95 write(50,*) iperm(i),b(i)
/dports/science/octopus/octopus-10.5/src/math/
H A Dpermutations.F9053 integer :: i1, order, oldperm, iperm, newpos local
68 iperm = 1
72 iperm = iperm + 1
73 this%allpermutations(1:newpos-1, iperm) = this%allpermutations(1:newpos-1, oldperm)
74 this%allpermutations(newpos, iperm) = order
76 this%allpermutations(order+1:nn, iperm) = this%allpermutations(order+1:nn, oldperm)
78 this%permsign(iperm) = this%permsign(oldperm) * (-1)**(order-newpos)
89 integer :: iperm local
93 do iperm = 1, this%npermutations
94 write (message(1), '(a,I7,a,I7,a,10I7)') 'permutation ', iperm, &
[all …]
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/solver_direct_parallel/
H A Dm_pds.f90174 jj=SP_MAT%iperm(j)
1073 iperm(i)=loc1
1077 iperm(i)=loc2
1176 call reserv(iperm(i),iperm(j),jstat1,irpt1,irowno1,ntt1)
1179 call stval(c1,iperm(i),iperm(j),a0%val(1,l),0)
1185 call reserv(iperm(i),iperm(j),jstat2,irpt2,irowno2,ntt2)
1188 call stval(c2,iperm(i),iperm(j),a0%val(1,l),0)
1194 call reserv(iperm(j),iperm(i),jstat1,irpt1,irowno1,ntt1)
1197 call stval(c1,iperm(j),iperm(i),a0%val(1,l),1)
1203 call reserv(iperm(j),iperm(i),jstat2,irpt2,irowno2,ntt2)
[all …]
/dports/cad/scotch/scotch-6.0.4/src/libscotchmetis/
H A Dmetis_graph_order_f.c80 SCOTCH_Num * const iperm), \ in METISNAMEU()
81 (n, xadj, adjncy, numflag, options, perm, iperm)) in METISNAMEU()
83 METISNAMEU(METIS_EdgeND) (n, xadj, adjncy, numflag, options, perm, iperm); in METISNAMEU()
98 SCOTCH_Num * const iperm), \ in METISNAMEU()
99 (n, xadj, adjncy, numflag, options, perm, iperm)) in METISNAMEU()
101 METISNAMEU(METIS_NodeND) (n, xadj, adjncy, numflag, options, perm, iperm); in METISNAMEU()
121 SCOTCH_Num * const iperm), \ in METISNAMEU()
122 (n, xadj, adjncy, vwgt, numflag, options, perm, iperm)) in METISNAMEU()
124 METISNAMEU(METIS_NodeWND) (n, xadj, adjncy, vwgt, numflag, options, perm, iperm); in METISNAMEU()
H A Dmetis_graph_order.c81 SCOTCH_Num * const iperm) in METISNAMEU()
83 METISNAMEU(METIS_NodeWND) (n, xadj, adjncy, NULL, numflag, options, perm, iperm); in METISNAMEU()
98 SCOTCH_Num * const iperm) in METISNAMEU()
100 METISNAMEU(METIS_NodeWND) (n, xadj, adjncy, NULL, numflag, options, perm, iperm); in METISNAMEU()
116 SCOTCH_Num * const iperm) in METISNAMEU()
132 …if (SCOTCH_graphOrderInit (&grafdat, &ordedat, iperm, perm, /* MeTiS and Scotch have opposite defi… in METISNAMEU()
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/nwpw/gw/Transfer/Utilities/
H A Dlinalg.f904 subroutine loupd(x,n,nm,iperm,nperm) argument
14 integer iperm(nm) local
63 iperm(j)=im
88 temp=v(iperm(i))
89 v(iperm(i))=v(i)
117 integer iperm(nm),nperm local
146 integer iperm(nm) local
195 iperm(j)=im
220 temp=v(iperm(i))
221 v(iperm(i))=v(i)
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/nwpw/gw/Transfer/Utilities/
H A Dlinalg.f904 subroutine loupd(x,n,nm,iperm,nperm) argument
14 integer iperm(nm) local
63 iperm(j)=im
88 temp=v(iperm(i))
89 v(iperm(i))=v(i)
117 integer iperm(nm),nperm local
146 integer iperm(nm) local
195 iperm(j)=im
220 temp=v(iperm(i))
221 v(iperm(i))=v(i)
[all …]
/dports/math/amgcl/amgcl-1.4.2/amgcl/adapter/
H A Dreorder.hpp54 const ptrdiff_t * iperm; member
57 : A(A), perm(perm), iperm(iperm) in reordered_matrix()
74 const ptrdiff_t * iperm; member
76 row_iterator(const base_iterator &base, const ptrdiff_t *iperm) in row_iterator()
77 : base(base), iperm(iperm) in row_iterator()
90 return iperm[base.col()]; in col()
99 return row_iterator(backend::row_begin(A, perm[i]), iperm); in row_begin()
184 reorder(const Matrix &A) : n(backend::rows(A)), perm(n), iperm(n) in reorder()
188 for(ptrdiff_t i = 0; i < n; ++i) iperm[perm[i]] = i; in reorder()
197 return reordered_matrix<Matrix>(A, perm.data(), iperm.data()); in operator ()()
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/external/gen1int/test_f90/basic/
H A Dtest_next_permutation.F9040 integer iperm, idx !incremental recorders local
118 iperm = 0
120 do while (do_perm .and. iperm<num_perm)
122 iperm = iperm+1
125 if (perm_num(idx)/=ref_perm(idx,iperm)) then
127 log_int=(/idx, iperm/), fmt_int="I3", io_log=io_log)
129 log_int=ref_perm(idx,iperm), fmt_int="I3", &
138 if (iperm/=num_perm) then
144 log_int=iperm, fmt_int="I4", io_log=io_log, font_color="red")
/dports/science/getdp/getdp-3.4.0-source/contrib/Sparskit/
H A Dcmkreord.f4 * init,iperm,mask,maskval,nlev,riord,
7 integer n,ja(*),ia(*),iperm(n),mask(n),riord(*),levels(*),
56 iperm(1)=0
57 call perphn(n,ja,ia,init,iperm,mask,maskval,nlev,riord,
60 call exchange(n,riord,iperm)
61 call dperm(n,a,ja,ia,a0,ja0,ia0,iperm,iperm,1)
114 subroutine exchange(n,iriord,iperm)
117 integer n,iriord(n),iperm(n)
133 iperm(iriord(i))=i
/dports/science/frontistr/FrontISTR-c66bdc397de319ca59a0565b3f3b1a3b33f0c50c/hecmw1/src/solver/matrix/
H A Dhecmw_matrix_ordering_CM.f9019 perm, iperm) argument
60 iperm(perm(i)) = i
66 perm, iperm) argument
73 call reverse_ordering(N, perm, iperm)
76 call write_perm(N, perm, iperm)
242 iperm(i) = N1 - iperm(i)
243 perm(iperm(i)) = i
275 write(F_NEW,*) irow, iperm(jcol)
280 write(F_NEW,*) irow, iperm(jcol)
286 subroutine write_perm(N, perm, iperm) argument
[all …]
H A Dhecmw_matrix_reorder.f9039 jnew = iperm(jold)
52 jnew = iperm(jold)
90 call reorder_diag2(N, NDOF, iperm, D, Dp)
91 call reorder_off_diag2(N, NDOF, iperm, &
94 call reorder_off_diag2(N, NDOF, iperm, &
182 integer(kind=kint), intent(in) :: iperm(:) local
192 inew = iperm(iold)
256 subroutine reorder_off_diag2(N, NDOF, iperm, & argument
261 integer(kind=kint), intent(in) :: iperm(:) local
278 inew = iperm(iold)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/rdmft/recycling/wfn1/
H A Dwfn1_permutation_table.F38 integer iperm !< The number of the permutation
49 iperm = 1
53 tbl(ii,iperm) = l(Cn(ii),ii,ne)
56 do while (iperm.lt.nprm)
80 iperm = iperm + 1
82 tbl(jj,iperm) = l(Cn(jj),jj,ne)
/dports/science/nwchem-data/nwchem-7.0.2-release/src/rdmft/recycling/wfn1/
H A Dwfn1_permutation_table.F38 integer iperm !< The number of the permutation
49 iperm = 1
53 tbl(ii,iperm) = l(Cn(ii),ii,ne)
56 do while (iperm.lt.nprm)
80 iperm = iperm + 1
82 tbl(jj,iperm) = l(Cn(jj),jj,ne)
/dports/math/blocksolve95/BlockSolve95/src/
H A DBSglobal_perm.c14 BSpermutation *perm, *iperm; in BSglobal_perm() local
18 iperm = BSalloc_permutation(numbering->length); CHKERRN(0); in BSglobal_perm()
20 iperm->perm[i] = i; in BSglobal_perm()
23 BSheap_sort1(perm->length,perm->perm,iperm->perm); CHKERRN(0); in BSglobal_perm()
24 BSperm2iperm(iperm,perm); CHKERRN(0); in BSglobal_perm()
25 BSfree_permutation(iperm); CHKERRN(0); in BSglobal_perm()
H A DBSsort_rows.c21 BSpermutation *iperm, *tperm; in BSsort_rows() local
26 iperm = BSalloc_permutation(A->num_rows); CHKERR(0); in BSsort_rows()
27 BSperm2iperm(perm,iperm); CHKERR(0); in BSsort_rows()
32 ind = iperm->perm[count]; in BSsort_rows()
39 ind = iperm->perm[count]; in BSsort_rows()
49 BSfree_permutation(iperm); CHKERR(0); in BSsort_rows()
/dports/math/igraph/igraph-0.9.5/vendor/glpk/misc/
H A Dmc21a.c96 int iperm[], int pr[], int arp[], int cv[], int out[]) in mc21a() argument
101 cv[i] = iperm[i] = 0; in mc21a()
118 if (iperm[i] == 0) goto L110; in mc21a()
138 j = iperm[i]; in mc21a()
153 iperm[i] = j; in mc21a()
161 iperm[i] = j; in mc21a()
172 { if (iperm[i] == 0) in mc21a()
175 arp[iperm[i]] = i; in mc21a()
180 iperm[out[++k]] = i; in mc21a()
225 numnz = mc21a(n, icn, ip, lenr, iperm, &iw1[0], &iw1[n], in main()
[all …]
/dports/math/glpk/glpk-5.0/src/misc/
H A Dmc21a.c96 int iperm[], int pr[], int arp[], int cv[], int out[]) in mc21a() argument
101 cv[i] = iperm[i] = 0; in mc21a()
118 if (iperm[i] == 0) goto L110; in mc21a()
138 j = iperm[i]; in mc21a()
153 iperm[i] = j; in mc21a()
161 iperm[i] = j; in mc21a()
172 { if (iperm[i] == 0) in mc21a()
175 arp[iperm[i]] = i; in mc21a()
180 iperm[out[++k]] = i; in mc21a()
225 numnz = mc21a(n, icn, ip, lenr, iperm, &iw1[0], &iw1[n], in main()
[all …]
/dports/audio/praat/praat-6.2.03/external/glpk/
H A Dglpnet01.c96 int iperm[], int pr[], int arp[], int cv[], int out[]) in mc21a() argument
101 cv[i] = iperm[i] = 0; in mc21a()
118 if (iperm[i] == 0) goto L110; in mc21a()
138 j = iperm[i]; in mc21a()
153 iperm[i] = j; in mc21a()
161 iperm[i] = j; in mc21a()
172 { if (iperm[i] == 0) in mc21a()
175 arp[iperm[i]] = i; in mc21a()
180 iperm[out[++k]] = i; in mc21a()
225 numnz = mc21a(n, icn, ip, lenr, iperm, &iw1[0], &iw1[n],
[all …]
/dports/science/hypre/hypre-2.23.0/src/distributed_ls/pilut/
H A Dserilut.c47 HYPRE_Int *perm, *iperm, in hypre_SerILUT() local
68 iperm = ldu->iperm; in hypre_SerILUT()
111 perm, iperm, globals ); in hypre_SerILUT()
160 if (iperm[ col_ind[j] - firstrow ] < iperm[i]) in hypre_SerILUT()
209 if (iperm[ucolind[l]-firstrow] < iperm[i]) in hypre_SerILUT()
260 iperm[col_ind[j]-firstrow] < nlocal) in hypre_SerILUT()
485 HYPRE_Int *perm, HYPRE_Int *iperm, in hypre_SecondDrop() argument
498 diag = iperm[lrow]; in hypre_SecondDrop()
543 if (iperm[jw[last]-firstrow] < diag) { in hypre_SecondDrop()
654 rrow = iperm[lrow] - nlocal; in hypre_SecondDropUpdate()
[all …]
/dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/SRC/
H A Dmc64ad.c719 --iperm; in mc64bd_()
731 iperm[k] = 0; in mc64bd_()
757 iperm[i__] = j; in mc64bd_()
834 iperm[ii] = jj; in mc64bd_()
839 iperm[i__] = j; in mc64bd_()
1613 --iperm; in mc64sd_()
1993 --iperm; in mc64ud_()
2116 iperm[i__] = j; in mc64ud_()
2228 --iperm; in mc64wd_()
2241 iperm[k] = 0; in mc64wd_()
[all …]
/dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/SUPERLU/
H A Dmc64ad.c722 --iperm; in mc64bd_()
734 iperm[k] = 0; in mc64bd_()
760 iperm[i__] = j; in mc64bd_()
837 iperm[ii] = jj; in mc64bd_()
842 iperm[i__] = j; in mc64bd_()
1617 --iperm; in mc64sd_()
1997 --iperm; in mc64ud_()
2120 iperm[i__] = j; in mc64ud_()
2232 --iperm; in mc64wd_()
2245 iperm[k] = 0; in mc64wd_()
[all …]
/dports/math/superlu/superlu-5.2.2/SRC/
H A Dmc64ad.c722 --iperm; in mc64bd_()
734 iperm[k] = 0; in mc64bd_()
760 iperm[i__] = j; in mc64bd_()
837 iperm[ii] = jj; in mc64bd_()
842 iperm[i__] = j; in mc64bd_()
1617 --iperm; in mc64sd_()
1997 --iperm; in mc64ud_()
2120 iperm[i__] = j; in mc64ud_()
2232 --iperm; in mc64wd_()
2245 iperm[k] = 0; in mc64wd_()
[all …]

12345678910>>...16