/dports/cad/z88/Z88OS-15/src/z88h/unix/ |
H A D | z88h.c | 1097 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 D | z88h.c | 1469 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 D | writetrilinos.f | 27 & 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 D | permutations.F90 | 53 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 D | m_pds.f90 | 174 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 D | metis_graph_order_f.c | 80 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 D | metis_graph_order.c | 81 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 D | linalg.f90 | 4 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 D | linalg.f90 | 4 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 D | reorder.hpp | 54 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 D | test_next_permutation.F90 | 40 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 D | cmkreord.f | 4 * 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 D | hecmw_matrix_ordering_CM.f90 | 19 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 D | hecmw_matrix_reorder.f90 | 39 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 D | wfn1_permutation_table.F | 38 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 D | wfn1_permutation_table.F | 38 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 D | BSglobal_perm.c | 14 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 D | BSsort_rows.c | 21 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 D | mc21a.c | 96 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 D | mc21a.c | 96 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 D | glpnet01.c | 96 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 D | serilut.c | 47 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 D | mc64ad.c | 719 --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 D | mc64ad.c | 722 --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 D | mc64ad.c | 722 --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 …]
|