/dports/math/concorde/concorde/LOCALCUT/ |
H A D | intmat.c | 158 int *rperm = (int *) NULL; in intmat_realloc() local 167 rperm = (int *) CCutil_reallocrus (mat_p->rperm, m*sizeof(int)); in intmat_realloc() 174 if ( rperm != (int *) NULL ) mat_p->rperm = rperm; in intmat_realloc() 181 mat_p->rperm = rperm; in intmat_realloc() 245 int *rperm = mat_p->rperm; in CCchunk_intmat_ortho() local 303 rperm[prestage] = rperm[ipiv]; in CCchunk_intmat_ortho() 308 ipiv = rperm[prestage]; in CCchunk_intmat_ortho() 346 rperm[stage] = rperm[ipiv]; in CCchunk_intmat_ortho() 348 rperm[ipiv] = itemp; in CCchunk_intmat_ortho() 351 ipiv = rperm[stage]; in CCchunk_intmat_ortho() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/mat/tests/ |
H A D | ex22.c | 14 IS rperm,cperm,icperm; in main() local 40 ierr = ISView(rperm,PETSC_VIEWER_STDOUT_SELF);CHKERRQ(ierr); in main() 41 ierr = ISDestroy(&rperm);CHKERRQ(ierr); in main() 45 ierr = ISView(rperm,PETSC_VIEWER_STDOUT_SELF);CHKERRQ(ierr); in main() 46 ierr = ISDestroy(&rperm);CHKERRQ(ierr); in main() 50 ierr = ISView(rperm,PETSC_VIEWER_STDOUT_SELF);CHKERRQ(ierr); in main() 51 ierr = ISDestroy(&rperm);CHKERRQ(ierr); in main() 59 ierr = ISView(rperm,PETSC_VIEWER_STDOUT_SELF);CHKERRQ(ierr); in main() 61 ierr = ISGetIndices(rperm,&rperm_ptr);CHKERRQ(ierr); in main() 73 ierr = ISRestoreIndices(rperm,&rperm_ptr);CHKERRQ(ierr); in main() [all …]
|
/dports/devel/py-qutip/qutip-4.6.2/qutip/tests/ |
H A D | test_sparse.py | 84 rperm = np.random.permutation(25) 115 rperm = np.random.permutation(25) 117 x = sp_permute(A.data, rperm, cperm) 122 rperm = np.random.permutation(25) 125 x = sp_permute(B, rperm, cperm) 130 rperm = np.random.permutation(25) 131 x = sp_permute(A.data, rperm, []) 132 B = sp_reverse_permute(x, rperm, []) 136 rperm = np.random.permutation(25) 138 x = sp_permute(B, rperm, []) [all …]
|
/dports/math/py-iohexperimenter/IOHexperimenter-0.2.9.2/src/ |
H A D | f_gallagher21.hpp | 79 f_gallagher_permutation_t *rperm; in prepare_problem() local 105 rperm[i].value = random_numbers[i]; in prepare_problem() 106 rperm[i].index = i; in prepare_problem() 109 … qsort(rperm, number_of_peaks - 1, sizeof(f_gallagher_permutation_t), f_gallagher_compare_doubles); in prepare_problem() 122 free(rperm); in prepare_problem() 123 rperm = (f_gallagher_permutation_t *)malloc((n) * sizeof(f_gallagher_permutation_t)); in prepare_problem() 129 rperm[j].value = random_numbers[j]; in prepare_problem() 130 rperm[j].index = j; in prepare_problem() 133 qsort(rperm, n, sizeof(f_gallagher_permutation_t), f_gallagher_compare_doubles); in prepare_problem() 136 ((double) rperm[j].index) / ((double) (n - 1)) - 0.5); in prepare_problem() [all …]
|
H A D | f_gallagher101.hpp | 78 f_gallagher_permutation_t1 *rperm; in prepare_problem() local 105 rperm[i].value = random_numbers[i]; in prepare_problem() 106 rperm[i].index = i; in prepare_problem() 109 …qsort(rperm, number_of_peaks - 1, sizeof(f_gallagher_permutation_t1), f_gallagher_compare_doubles1… in prepare_problem() 122 free(rperm); in prepare_problem() 123 rperm = (f_gallagher_permutation_t1 *)malloc((n) * sizeof(f_gallagher_permutation_t1)); in prepare_problem() 129 rperm[j].value = random_numbers[j]; in prepare_problem() 130 rperm[j].index = j; in prepare_problem() 133 qsort(rperm, n, sizeof(f_gallagher_permutation_t1), f_gallagher_compare_doubles1); in prepare_problem() 136 ((double) rperm[j].index) / ((double) (n - 1)) - 0.5); in prepare_problem() [all …]
|
/dports/science/gromacs/gromacs-2021.4/src/gromacs/selection/ |
H A D | sm_permute.cpp | 68 int* rperm; member 166 data->rperm = nullptr; in init_data_permute() 183 snew(d->rperm, d->n); in init_permute() 186 d->rperm[i] = -1; in init_permute() 195 if (d->rperm[d->perm[i]] >= 0) in init_permute() 199 d->rperm[d->perm[i]] = i; in init_permute() 216 b = i + d->rperm[j]; in init_output_permute() 231 sfree(d->rperm); in free_data_permute() 254 b = i + d->rperm[j]; in evaluate_permute()
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/rdmft/recycling/wfn1/ |
H A D | wfn1_overlap_ldr.F | 45 subroutine wfn1_overlap_ldr(ne,orbov,lperm,rperm,lmat,rmat,dvec, argument 57 double precision rperm(ne,ne) !< [Output] The right permutation 79 call dfill(ne*ne,0.0d0,rperm,1) 82 rperm(i,i) = 1.0d0 98 call wfn1_piv_ldr(tmp,lperm,rperm,ne,ne,1,pivo,ipar) 134 call wfn1_piv_ldr(tmp,lperm,rperm,ne,ne,i+1,pivo,ipar) 229 subroutine wfn1_overlap_ldr_tst(ne,orbov,lperm,rperm,lmat,rmat, argument 242 double precision rperm(ne,ne) !< [Output] The right permutation 255 call wfn1_overlap_ldr(ne,orbov,lperm,rperm,lmat,rmat, 266 call dgemm('n','n',ne,ne,ne,1.0d0,rperm,ne,rmat,ne,0.0d0,
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/rdmft/recycling/wfn1/ |
H A D | wfn1_overlap_ldr.F | 45 subroutine wfn1_overlap_ldr(ne,orbov,lperm,rperm,lmat,rmat,dvec, argument 57 double precision rperm(ne,ne) !< [Output] The right permutation 79 call dfill(ne*ne,0.0d0,rperm,1) 82 rperm(i,i) = 1.0d0 98 call wfn1_piv_ldr(tmp,lperm,rperm,ne,ne,1,pivo,ipar) 134 call wfn1_piv_ldr(tmp,lperm,rperm,ne,ne,i+1,pivo,ipar) 229 subroutine wfn1_overlap_ldr_tst(ne,orbov,lperm,rperm,lmat,rmat, argument 242 double precision rperm(ne,ne) !< [Output] The right permutation 255 call wfn1_overlap_ldr(ne,orbov,lperm,rperm,lmat,rmat, 266 call dgemm('n','n',ne,ne,ne,1.0d0,rperm,ne,rmat,ne,0.0d0,
|
/dports/science/PETSc/petsc-3.14.1/src/mat/order/ |
H A D | sorder.c | 176 PetscValidPointer(rperm,3); in MatGetOrdering() 183 *rperm = NULL; in MatGetOrdering() 218 ierr = ISSetPermutation(*rperm);CHKERRQ(ierr); in MatGetOrdering() 245 ierr = ISCreateStride(PETSC_COMM_SELF,m,0,1,rperm);CHKERRQ(ierr); in MatGetOrdering() 247 ierr = ISSetIdentity(*rperm);CHKERRQ(ierr); in MatGetOrdering() 253 ierr = ISCreateStride(PETSC_COMM_SELF,0,0,1,rperm);CHKERRQ(ierr); in MatGetOrdering() 255 ierr = ISSetIdentity(*rperm);CHKERRQ(ierr); in MatGetOrdering() 267 ierr = (*r)(mat,type,rperm,cperm);CHKERRQ(ierr); in MatGetOrdering() 268 ierr = ISSetPermutation(*rperm);CHKERRQ(ierr); in MatGetOrdering() 271 ierr = ISGetLocalSize(*rperm,&mis);CHKERRQ(ierr); in MatGetOrdering() [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/ttlg/ |
H A D | main.cpp | 149 int rperm[20]; in ttlg_transpose() local 163 rperm[j] = i; in ttlg_transpose() 181 params[4]= rperm[1]; in ttlg_transpose() 204 fvimatchl32_transpose_kernel(n, input, output, sizes, ldb,params, rperm, alpha, beta); in ttlg_transpose() 265 if(rperm[j] < params[4]) in ttlg_transpose() 269 else if(rperm[j] == params[4]) in ttlg_transpose() 299 if(rperm[params[3]] == params[4]) in ttlg_transpose() 314 if(rperm[j] < params[4]) in ttlg_transpose() 317 else if(rperm[j] == params[4]) in ttlg_transpose() 375 int rperm[100]; in fuseIndices() local [all …]
|
H A D | fvinomatchgeneral.cu | 130 …int *lda, const int *ldb, const int* params, const int * perm, const int* rperm, type alpha, type … in fvinomatchgeneral_transpose_kernel() argument 137 printf("\nR perm: %d \t %d \t %d\t %d\t %d\n", rperm[0], rperm[1], rperm[2], rperm[3], rperm[4]); in fvinomatchgeneral_transpose_kernel() 197 if(rperm[i] < blimit) in fvinomatchgeneral_transpose_kernel() 201 else if(rperm[i] == blimit) in fvinomatchgeneral_transpose_kernel() 220 temp[i] = ldb_s[rperm[i]]; in fvinomatchgeneral_transpose_kernel() 283 boff += ii[j]* ldb_s[rperm[j]]; in fvinomatchgeneral_transpose_kernel() 286 boff += tmp* ldb_s[rperm[j]]; in fvinomatchgeneral_transpose_kernel() 328 if(((rperm[i] < blimit) || ((rperm[i] == blimit) && (blockB ==1)))) in fvinomatchgeneral_transpose_kernel()
|
H A D | fvigeneralolap.cu | 308 printf("\nR perm: %d \t %d \t %d\t %d\t %d\n", rperm[0], rperm[1], rperm[2], rperm[3], rperm[4]); in fvigeneralolap_transpose_kernel() 388 if(rperm[alimit] < blimit || rperm[alimit] == blimit && blockB == 1) in fvigeneralolap_transpose_kernel() 400 if(rperm[i] < blimit) in fvigeneralolap_transpose_kernel() 404 else if(rperm[i] == blimit) in fvigeneralolap_transpose_kernel() 416 temp[i] = ldb_s[rperm[i]]; in fvigeneralolap_transpose_kernel() 450 if(rperm[i] <= blimit) in fvigeneralolap_transpose_kernel() 519 if(rperm[j] > blimit) in fvigeneralolap_transpose_kernel() 524 B_s[i] = ldb_s[rperm[j]]; in fvigeneralolap_transpose_kernel() 534 if(rperm[j] > blimit) in fvigeneralolap_transpose_kernel() 546 B_s[i] = ldb_s[rperm[j]]; in fvigeneralolap_transpose_kernel() [all …]
|
H A D | fvinomatchg32.cu | 179 …im, const type *A, type *B, const int *lda, const int *ldb, const int* params, const int * rperm) in fvinomatchg32_transpose_kernel() argument 186 printf("\nR perm: %d \t %d \t %d\t %d\t %d\n", rperm[0], rperm[1], rperm[2], rperm[3], rperm[4]); in fvinomatchg32_transpose_kernel() 227 temp[i] = ldb_s[rperm[i]]; in fvinomatchg32_transpose_kernel()
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/ttlg/ |
H A D | main.cpp | 149 int rperm[20]; in ttlg_transpose() local 163 rperm[j] = i; in ttlg_transpose() 181 params[4]= rperm[1]; in ttlg_transpose() 204 fvimatchl32_transpose_kernel(n, input, output, sizes, ldb,params, rperm, alpha, beta); in ttlg_transpose() 265 if(rperm[j] < params[4]) in ttlg_transpose() 269 else if(rperm[j] == params[4]) in ttlg_transpose() 299 if(rperm[params[3]] == params[4]) in ttlg_transpose() 314 if(rperm[j] < params[4]) in ttlg_transpose() 317 else if(rperm[j] == params[4]) in ttlg_transpose() 375 int rperm[100]; in fuseIndices() local [all …]
|
H A D | fvinomatchgeneral.cu | 130 …int *lda, const int *ldb, const int* params, const int * perm, const int* rperm, type alpha, type … in fvinomatchgeneral_transpose_kernel() argument 137 printf("\nR perm: %d \t %d \t %d\t %d\t %d\n", rperm[0], rperm[1], rperm[2], rperm[3], rperm[4]); in fvinomatchgeneral_transpose_kernel() 197 if(rperm[i] < blimit) in fvinomatchgeneral_transpose_kernel() 201 else if(rperm[i] == blimit) in fvinomatchgeneral_transpose_kernel() 220 temp[i] = ldb_s[rperm[i]]; in fvinomatchgeneral_transpose_kernel() 283 boff += ii[j]* ldb_s[rperm[j]]; in fvinomatchgeneral_transpose_kernel() 286 boff += tmp* ldb_s[rperm[j]]; in fvinomatchgeneral_transpose_kernel() 328 if(((rperm[i] < blimit) || ((rperm[i] == blimit) && (blockB ==1)))) in fvinomatchgeneral_transpose_kernel()
|
H A D | fvigeneralolap.cu | 308 printf("\nR perm: %d \t %d \t %d\t %d\t %d\n", rperm[0], rperm[1], rperm[2], rperm[3], rperm[4]); in fvigeneralolap_transpose_kernel() 388 if(rperm[alimit] < blimit || rperm[alimit] == blimit && blockB == 1) in fvigeneralolap_transpose_kernel() 400 if(rperm[i] < blimit) in fvigeneralolap_transpose_kernel() 404 else if(rperm[i] == blimit) in fvigeneralolap_transpose_kernel() 416 temp[i] = ldb_s[rperm[i]]; in fvigeneralolap_transpose_kernel() 450 if(rperm[i] <= blimit) in fvigeneralolap_transpose_kernel() 519 if(rperm[j] > blimit) in fvigeneralolap_transpose_kernel() 524 B_s[i] = ldb_s[rperm[j]]; in fvigeneralolap_transpose_kernel() 534 if(rperm[j] > blimit) in fvigeneralolap_transpose_kernel() 546 B_s[i] = ldb_s[rperm[j]]; in fvigeneralolap_transpose_kernel() [all …]
|
H A D | fvinomatchg32.cu | 179 …im, const type *A, type *B, const int *lda, const int *ldb, const int* params, const int * rperm) in fvinomatchg32_transpose_kernel() argument 186 printf("\nR perm: %d \t %d \t %d\t %d\t %d\n", rperm[0], rperm[1], rperm[2], rperm[3], rperm[4]); in fvinomatchg32_transpose_kernel() 227 temp[i] = ldb_s[rperm[i]]; in fvinomatchg32_transpose_kernel()
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/ttlg/includes/ |
H A D | ourinclude.h | 5 …, type *B, const int *lda, const int *ldb, const int* params, const int * rperm, type alpha, type … 7 …, type *B, const int *lda, const int *ldb, const int* params, const int * rperm, type alpha, type … 9 …, type *B, const int *lda, const int *ldb, const int* params, const int * rperm, type alpha, type … 13 …, type *B, const int *lda, const int *ldb, const int* params, const int * rperm, const int* perm, … 15 …, type *B, const int *lda, const int *ldb, const int* params, const int * rperm, const int* perm, …
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/ttlg/includes/ |
H A D | ourinclude.h | 5 …, type *B, const int *lda, const int *ldb, const int* params, const int * rperm, type alpha, type … 7 …, type *B, const int *lda, const int *ldb, const int* params, const int * rperm, type alpha, type … 9 …, type *B, const int *lda, const int *ldb, const int* params, const int * rperm, type alpha, type … 13 …, type *B, const int *lda, const int *ldb, const int* params, const int * rperm, const int* perm, … 15 …, type *B, const int *lda, const int *ldb, const int* params, const int * rperm, const int* perm, …
|
/dports/science/qiskit-aer/qiskit-aer-0.5.2/qiskit/providers/aer/pulse/qutip_lite/ |
H A D | sparse.py | 403 def sp_permute(A, rperm=(), cperm=(), safe=True): argument 426 rperm = np.asarray(rperm, dtype=np.int32) 430 if len(rperm) == 0: 431 rperm = np.arange(nrows, dtype=np.int32) 435 if len(np.setdiff1d(rperm, np.arange(nrows))) != 0: 450 nrows, ncols, rperm, cperm, flag) 457 def sp_reverse_permute(A, rperm=(), cperm=(), safe=True): argument 480 rperm = np.asarray(rperm, dtype=np.int32) 484 if len(rperm) == 0: 485 rperm = np.arange(nrows, dtype=np.int32) [all …]
|
/dports/math/gnumeric/gnumeric-1.12.50/src/ |
H A D | sort.c | 170 int i, *rperm; in gnm_sort_permute_invert() local 172 rperm = g_new (int, length); in gnm_sort_permute_invert() 174 rperm[perm[i]] = i; in gnm_sort_permute_invert() 176 return rperm; in gnm_sort_permute_invert() 186 int i, *rperm; in sort_permute() local 201 rperm = gnm_sort_permute_invert (perm, length); in sort_permute() 209 if (i == rperm[i]) { in sort_permute() 229 i2 = rperm[i1]; in sort_permute() 242 rperm[i1] = i1; in sort_permute() 253 g_free (rperm); in sort_permute()
|
/dports/devel/py-qutip/qutip-4.6.2/qutip/ |
H A D | sparse.py | 436 def sp_permute(A, rperm=(), cperm=(), safe=True): argument 460 rperm = np.asarray(rperm, dtype=np.int32) 464 if len(rperm) == 0: 465 rperm = np.arange(nrows, dtype=np.int32) 469 if len(np.setdiff1d(rperm, np.arange(nrows))) != 0: 484 nrows, ncols, rperm, cperm, flag) 491 def sp_reverse_permute(A, rperm=(), cperm=(), safe=True): argument 515 rperm = np.asarray(rperm, dtype=np.int32) 519 if len(rperm) == 0: 520 rperm = np.arange(nrows, dtype=np.int32) [all …]
|
/dports/science/qiskit-aer/qiskit-aer-0.5.2/qiskit/providers/aer/pulse/qutip_lite/cy/ |
H A D | sparse_utils.pyx | 114 cnp.ndarray[ITYPE_t, ndim=1] rperm, 132 if rperm.shape[0] != 0: 133 inds = np.argsort(rperm).astype(ITYPE) 134 perm_r = np.arange(rperm.shape[0], dtype=ITYPE)[inds] 176 if rperm.shape[0] != 0: 177 inds = np.argsort(rperm).astype(ITYPE) 194 cnp.ndarray[ITYPE_t, ndim=1] rperm, 207 if rperm.shape[0] != 0: 209 ii = rperm[jj] 216 k0 = new_ptr[rperm[jj]] [all …]
|
/dports/devel/py-qutip/qutip-4.6.2/qutip/cy/ |
H A D | sparse_utils.pyx | 113 cnp.ndarray[ITYPE_t, ndim=1] rperm, 118 the permutation arrays rperm and cperm, respectively. 131 if rperm.shape[0] != 0: 132 inds = np.argsort(rperm).astype(ITYPE) 175 if rperm.shape[0] != 0: 176 inds = np.argsort(rperm).astype(ITYPE) 193 cnp.ndarray[ITYPE_t, ndim=1] rperm, 206 if rperm.shape[0] != 0: 208 ii = rperm[jj] 215 k0 = new_ptr[rperm[jj]] [all …]
|
/dports/archivers/libarchive/libarchive-3.5.2/libarchive/ |
H A D | archive_disk_acl_darwin.c | 128 const int rperm = ARCHIVE_ENTRY_ACL_READ_DATA; in add_trivial_nfs4_acl() local 158 tacl_entry[5].permset |= rperm; in add_trivial_nfs4_acl() 166 tacl_entry[4].permset |= rperm; in add_trivial_nfs4_acl() 168 tacl_entry[2].permset |= rperm; in add_trivial_nfs4_acl() 180 tacl_entry[3].permset |= rperm; in add_trivial_nfs4_acl() 182 tacl_entry[0].permset |= rperm; in add_trivial_nfs4_acl() 184 tacl_entry[1].permset |= rperm; in add_trivial_nfs4_acl()
|