/dports/science/PETSc/petsc-3.14.1/src/mat/tutorials/ |
H A D | ex4f.F90 | 13 PetscInt,pointer,dimension(:) :: dnnz,onnz 26 allocate(onnz(0:m-1)) 30 onnz(i) = 1 33 …_WORLD,m,n,PETSC_DETERMINE,PETSC_DETERMINE,PETSC_DECIDE,dnnz,PETSC_DECIDE,onnz,A,ierr);CHKERRA(ier… 37 deallocate(onnz)
|
H A D | ex4.c | 15 PetscInt n=5,m=5,*dnnz,*onnz,i,rstart,rend,M,N; in main() local 20 ierr = PetscMalloc2(m,&dnnz,m,&onnz);CHKERRQ(ierr); in main() 23 onnz[i] = 1; in main() 25 …ierr = MatCreateAIJ(comm,m,n,PETSC_DETERMINE,PETSC_DETERMINE,PETSC_DECIDE,dnnz,PETSC_DECIDE,onnz,&… in main() 28 ierr = PetscFree2(dnnz,onnz);CHKERRQ(ierr); in main()
|
/dports/science/PETSc/petsc-3.14.1/src/mat/order/ |
H A D | spectral.c | 24 PetscInt *dnnz, *onnz; in MatCreateLaplacian() local 35 ierr = PetscMalloc2(m,&dnnz,m,&onnz);CHKERRQ(ierr); in MatCreateLaplacian() 42 dnnz[r-rStart] = onnz[r-rStart] = 0; in MatCreateLaplacian() 51 else ++onnz[r-rStart]; in MatCreateLaplacian() 60 ierr = MatXAIJSetPreallocation(*L, 1, dnnz, onnz, NULL, NULL);CHKERRQ(ierr); in MatCreateLaplacian() 73 newVals[newcols] = dnnz[r-rStart]+onnz[r-rStart]-1; in MatCreateLaplacian() 85 newVals[newcols] = dnnz[r-rStart]+onnz[r-rStart]-1; in MatCreateLaplacian() 91 ierr = PetscFree2(dnnz,onnz);CHKERRQ(ierr); in MatCreateLaplacian()
|
/dports/science/PETSc/petsc-3.14.1/src/mat/utils/ |
H A D | gcreate.c | 265 PetscErrorCode MatXAIJSetPreallocation(Mat A,PetscInt bs,const PetscInt dnnz[],const PetscInt onnz[… in MatXAIJSetPreallocation() argument 282 ierr = MatMPIBAIJSetPreallocation(A,bs,0,dnnz,0,onnz);CHKERRQ(ierr); in MatXAIJSetPreallocation() 300 ierr = MatMPIAIJSetPreallocation(A,0,dnnz,0,onnz);CHKERRQ(ierr); in MatXAIJSetPreallocation() 301 ierr = MatISSetPreallocation(A,0,dnnz,0,onnz);CHKERRQ(ierr); in MatXAIJSetPreallocation() 303 ierr = MatHYPRESetPreallocation(A,0,dnnz,0,onnz);CHKERRQ(ierr); in MatXAIJSetPreallocation() 308 ierr = PetscMalloc2((!!dnnz)*m,&sdnnz,(!!onnz)*m,&sonnz);CHKERRQ(ierr); in MatXAIJSetPreallocation() 311 if (onnz) sonnz[i] = onnz[i/bs] * cbs; in MatXAIJSetPreallocation() 314 ierr = MatMPIAIJSetPreallocation(A,0,dnnz ? sdnnz : NULL,0,onnz ? sonnz : NULL);CHKERRQ(ierr); in MatXAIJSetPreallocation() 315 ierr = MatISSetPreallocation(A,0,dnnz ? sdnnz : NULL,0,onnz ? sonnz : NULL);CHKERRQ(ierr); in MatXAIJSetPreallocation() 317 ierr = MatHYPRESetPreallocation(A,0,dnnz ? sdnnz : NULL,0,onnz ? sonnz : NULL);CHKERRQ(ierr); in MatXAIJSetPreallocation()
|
/dports/science/PETSc/petsc-3.14.1/src/mat/impls/aij/mpi/ftn-custom/ |
H A D | zmpiaijf.c | 45 PETSC_EXTERN void matxaijsetpreallocation_(Mat *A,PetscInt *bs,PetscInt dnnz[],PetscInt onnz[],Pet… in matxaijsetpreallocation_() argument 48 CHKFORTRANNULLINTEGER(onnz); in matxaijsetpreallocation_() 51 *ierr = MatXAIJSetPreallocation(*A,*bs,dnnz,onnz,dnnzu,onnzu); in matxaijsetpreallocation_()
|
/dports/science/PETSc/petsc-3.14.1/src/mat/impls/shell/ |
H A D | shellcnv.c | 9 PetscInt *dnnz,*onnz,*dnnzu,*onnzu; in MatConvert_Shell() local 33 ierr = PetscMalloc4(mbs,&dnnz,mbs,&onnz,mbs,&dnnzu,mbs,&onnzu);CHKERRQ(ierr); in MatConvert_Shell() 36 onnz[i] = Nbs - nbs; in MatConvert_Shell() 40 ierr = MatXAIJSetPreallocation(mat,PETSC_DECIDE,dnnz,onnz,dnnzu,onnzu);CHKERRQ(ierr); in MatConvert_Shell() 41 ierr = PetscFree4(dnnz,onnz,dnnzu,onnzu);CHKERRQ(ierr); in MatConvert_Shell()
|
/dports/science/PETSc/petsc-3.14.1/src/mat/impls/hypre/ |
H A D | mhypre.c | 418 PetscInt i,dnnz,onnz,m,n; in MatConvert_HYPRE_AIJ() local 442 onnz = hypre_CSRMatrixNumNonzeros(hoffd); in MatConvert_HYPRE_AIJ() 496 ierr = PetscMalloc1(onnz,&ojj);CHKERRQ(ierr); in MatConvert_HYPRE_AIJ() 497 ierr = PetscMalloc1(onnz,&oa);CHKERRQ(ierr); in MatConvert_HYPRE_AIJ() 510 ierr = PetscMalloc1(onnz,&ojj);CHKERRQ(ierr); in MatConvert_HYPRE_AIJ() 524 for (i=0; i<onnz; i++) ojj[i] = coffd[offdj[i]]; in MatConvert_HYPRE_AIJ() 645 onnz = offd->nz; in MatAIJGetParCSR_Private() 652 onnz = 0; in MatAIJGetParCSR_Private() 1375 if (!onnz) { in MatHYPRESetPreallocation_HYPRE() 1378 } else honnz = (HYPRE_Int*)onnz; in MatHYPRESetPreallocation_HYPRE() [all …]
|
/dports/science/PETSc/petsc-3.14.1/src/mat/impls/aij/mpi/crl/ |
H A D | mcrl.c | 177 …m,PetscInt m,PetscInt n,PetscInt nz,const PetscInt nnz[],PetscInt onz,const PetscInt onnz[],Mat *A) in MatCreateMPIAIJCRL() argument 185 ierr = MatMPIAIJSetPreallocation_MPIAIJ(*A,nz,(PetscInt*)nnz,onz,(PetscInt*)onnz);CHKERRQ(ierr); in MatCreateMPIAIJCRL()
|
/dports/science/PETSc/petsc-3.14.1/src/mat/impls/nest/ |
H A D | matnest.c | 1909 PetscInt m,n,M,N,i,j,k,*dnnz,*onnz,rstart; in MatConvert_Nest_AIJ() local 1990 onnz = dnnz + m; in MatConvert_Nest_AIJ() 1993 onnz[k] = 0; in MatConvert_Nest_AIJ() 2052 ierr = PetscSFReduceBegin(bmsf,MPIU_INT,sub_onnz,onnz,MPI_SUM);CHKERRQ(ierr); in MatConvert_Nest_AIJ() 2053 ierr = PetscSFReduceEnd(bmsf,MPIU_INT,sub_onnz,onnz,MPI_SUM);CHKERRQ(ierr); in MatConvert_Nest_AIJ() 2064 onnz[i] = PetscMin(onnz[i],A->cmap->N - A->cmap->n); in MatConvert_Nest_AIJ() 2067 ierr = MatMPIAIJSetPreallocation(C,0,dnnz,0,onnz);CHKERRQ(ierr); in MatConvert_Nest_AIJ()
|
/dports/math/librsb/librsb-1.2.0.10/ |
H A D | rsb_eps.c | 683 rsb_nnz_idx_t onnz=nnz; in rsb_dump_postscript_from_coo() local 743 ,m,k,onnz,nr,nc,nnz,nc,nr); in rsb_dump_postscript_from_coo()
|
/dports/science/PETSc/petsc-3.14.1/src/dm/impls/network/ |
H A D | network.c | 1819 PetscInt *dnnz,*onnz; in DMCreateMatrix_Network() local 1956 ierr = PetscMalloc2(localSize,&dnnz,localSize,&onnz);CHKERRQ(ierr); in DMCreateMatrix_Network() 1965 onnz[j] = (PetscInt)PetscRealPart(vonz[j]); in DMCreateMatrix_Network() 1973 ierr = MatMPIAIJSetPreallocation(*J,0,dnnz,0,onnz);CHKERRQ(ierr); in DMCreateMatrix_Network() 1976 ierr = PetscFree2(dnnz,onnz);CHKERRQ(ierr); in DMCreateMatrix_Network()
|
/dports/science/PETSc/petsc-3.14.1/src/dm/impls/plex/ |
H A D | plextree.c | 2637 PetscInt *dnnz, *onnz; in DMPlexComputeInterpolatorTree() local 2650 ierr = PetscCalloc2(nGlobal,&dnnz,nGlobal,&onnz);CHKERRQ(ierr); in DMPlexComputeInterpolatorTree() 2745 onnz[gIndFine - rowStart] = 1; in DMPlexComputeInterpolatorTree() 2764 onnz[gIndFine - rowStart] = 1; in DMPlexComputeInterpolatorTree() 2782 onnz[gIndFine - rowStart] = numO[f]; in DMPlexComputeInterpolatorTree() 2794 onnz[gIndFine - rowStart] = numO[0]; in DMPlexComputeInterpolatorTree() 2810 onnz[gIndFine - rowStart] = numO[f]; in DMPlexComputeInterpolatorTree() 2822 onnz[gIndFine - rowStart] = numO[0]; in DMPlexComputeInterpolatorTree() 2828 ierr = MatXAIJSetPreallocation(mat,1,dnnz,onnz,NULL,NULL);CHKERRQ(ierr); in DMPlexComputeInterpolatorTree() 2829 ierr = PetscFree2(dnnz,onnz);CHKERRQ(ierr); in DMPlexComputeInterpolatorTree()
|
/dports/math/mfem/mfem-4.3/linalg/ |
H A D | petsc.cpp | 5381 PetscInt i,dnnz,onnz,m,n; in MatConvert_hypreParCSR_AIJ() local 5391 onnz = hypre_CSRMatrixNumNonzeros(hoffd); in MatConvert_hypreParCSR_AIJ() 5416 ierr = PetscMalloc1(onnz,&ojj); CHKERRQ(ierr); in MatConvert_hypreParCSR_AIJ() 5417 ierr = PetscMalloc1(onnz,&oa); CHKERRQ(ierr); in MatConvert_hypreParCSR_AIJ() 5422 for (i=0; i<onnz; i++) { ojj[i] = coffd[offdj[i]]; } in MatConvert_hypreParCSR_AIJ() 5423 ierr = PetscMemcpy(oa,hypre_CSRMatrixData(hoffd),onnz*sizeof(PetscScalar)); in MatConvert_hypreParCSR_AIJ()
|
/dports/science/PETSc/petsc-3.14.1/src/binding/petsc4py/src/PETSc/ |
H A D | Mat.pyx | 1427 def setISPreallocation(self, nnz, onnz): argument 1431 onnz = iarray_i(onnz, NULL, &connz)
|
/dports/science/PETSc/petsc-3.14.1/src/mat/impls/aij/mpi/ |
H A D | mpiaij.c | 1643 PetscInt i,j,m,n,ng,anz,bnz,*dnnz,*onnz,*tdnnz,*tonnz,*rdest,*cdest,*work,*gcdest; in MatPermute_MPIAIJ() local 1686 ierr = PetscCalloc4(m,&dnnz,m,&onnz,m,&tdnnz,m,&tonnz);CHKERRQ(ierr); in MatPermute_MPIAIJ() 1698 else onnz[i]++; in MatPermute_MPIAIJ() 1705 else onnz[i]++; in MatPermute_MPIAIJ() 1710 ierr = PetscSFBcastBegin(rowsf,MPIU_INT,onnz,tonnz);CHKERRQ(ierr); in MatPermute_MPIAIJ() 1711 ierr = PetscSFBcastEnd(rowsf,MPIU_INT,onnz,tonnz);CHKERRQ(ierr); in MatPermute_MPIAIJ() 1718 PetscInt *acols = dnnz,*bcols = onnz; /* Repurpose now-unneeded arrays */ in MatPermute_MPIAIJ() 1737 ierr = PetscFree4(dnnz,onnz,tdnnz,tonnz);CHKERRQ(ierr); in MatPermute_MPIAIJ()
|
/dports/science/PETSc/petsc-3.14.1/ |
H A D | CTAGS | 16173 …m,PetscInt n,PetscInt nz,const PetscInt nnz[],PetscInt onz,const PetscInt onnz[],Mat *A)$/;" f lan… 17062 …n(Mat A, PetscInt dnz, const PetscInt dnnz[], PetscInt onz, const PetscInt onnz[])$/;" f language:C 17063 …(Mat A, PetscInt dnz, const PetscInt dnnz[], PetscInt onz, const PetscInt onnz[])$/;" f language:C… 19317 …IJSetPreallocation(Mat A,PetscInt bs,const PetscInt dnnz[],const PetscInt onnz[],const PetscInt dn… 50252 …\/Sys\/PetscInt.html#PetscInt">PetscInt<\/a>,pointer,dimension(:) :: dnnz,onnz$/;" a language:HTML 55892 line26 src/mat/tutorials/ex4f.F90.html /^<a name="line26"> 26: <\/a> allocate(onnz(0:m-1))$/;" a l… 57444 line30 src/mat/tutorials/ex4f.F90.html /^<a name="line30"> 30: <\/a> onnz(i) = 1$/;" a language:H… 58388 …docs\/manualpages\/Sys\/PETSC_DECIDE.html#PETSC_DECIDE">PETSC_DECIDE<\/a>,onnz,A,ierr);CHKERRA(ier… 59464 line37 src/mat/tutorials/ex4f.F90.html /^<a name="line37"> 37: <\/a> deallocate(onnz)$/;" a langua… 70939 …id matxaijsetpreallocation_(Mat *A,PetscInt *bs,PetscInt dnnz[],PetscInt onnz[],PetscInt dnnzu[],…
|