/dports/math/R-cran-SparseM/SparseM/src/ |
H A D | chol2csr.f | 1 subroutine chol2csr(nrow,nnzlindx,nsuper,lindx,xlindx,nnzl,lnz, argument 4 & nnzl, xlnz(nrow+1), dim(2), ia(nrow+1), ja(nnzl), 6 double precision lnz(nnzl), ra(nnzl) 12 do 100 i = 1, nnzl
|
H A D | chol.f | 73 integer nsub,nsuper,nnzdmax,nnzdsm,nnzl,iwsiz,tmpsiz,iwmax, 130 & invp,colcnt,nnzl,nsub,nsuper,snode,xsuper,iwsiz, 136 if (nnzl .gt. nnzlmax) then
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/sparse/macros/ |
H A D | chfact.sci | 15 //spcho = {xlnz, nnzl, xsuper, xlindx, lindx, snode, 42 //[xlnz,nnzl,xsuper,xlindx,lindx,snode,split,tmpsiz,perm,invp,lnz]=spcho(2:12); 48 nnzl=size(lnz,1); 75 //[xlnz,nnzl,xsuper,xlindx,lindx,snode,split,tmpsiz,perm,invp,lnz]=spcho(2:12); 82 lnz=zeros(spcho("nnzl"),1); 105 [perm,invp,colcnt,nnzl,nsub,nsuper,snode,xsuper,iflag]=... 123 spcho = tlist(["chol","xlnz","nnzl","xsuper","xlindx","lindx","snode","split",... 125 xlnz,nnzl,xsuper,xlindx,lindx,snode,split,tmpsiz,perm,invp,[])
|
H A D | blkslv.sci | 16 //[xlnz,nnzl,xsuper,xlindx,lindx,snode,split,tmpsiz,perm,invp,lnz]=spcho(2:12);
|
/dports/math/elpa/elpa-2019.05.002/src/elpa1/ |
H A D | elpa1_merge_systems_real_template.F90 | 631 nnzl = 0 640 nnzl = nnzl+1 648 ndef = max(nnzu,nnzl) 696 nnzl = 0 705 nnzl = nnzl+1 706 d1l(nnzl) = d1(i) 707 zl (nnzl) = z (i) 806 tmp(1:nnzl) = d1l(1:nnzl)-dbase(j) 809 &(obj,tmp,nnzl,ddiff(j)) 810 ev(1:nnzl,i) = zl(1:nnzl) / tmp(1:nnzl) * ev_scale(j) [all …]
|
/dports/math/lis/lis-2.0.30/src/matrix/ |
H A D | lis_matrix_csr.c | 840 nnzl++; in lis_matrix_split_csr() 907 nnzl = 0; in lis_matrix_split_csr() 919 nnzl++; in lis_matrix_split_csr() 1029 nnzl++; in lis_matrix_split_create_csr() 1090 nnzl = 0; in lis_matrix_split_create_csr() 1101 nnzl++; in lis_matrix_split_create_csr() 1228 nnzl = 0; in lis_matrix_split_update_csr() 1237 nnzl++; in lis_matrix_split_update_csr() 1388 nnzl++; in lis_matrix_split2_csr() 1445 nnzl = 0; in lis_matrix_split2_csr() [all …]
|
H A D | lis_matrix_coo.c | 536 LIS_INT nnzl,nnzu; in lis_matrix_split_coo() local 545 nnzl = 0; in lis_matrix_split_coo() 559 nnzl++; in lis_matrix_split_coo() 590 nnzl = 0; in lis_matrix_split_coo() 596 lrow[nnzl] = A->row[i]; in lis_matrix_split_coo() 597 lcol[nnzl] = A->col[i]; in lis_matrix_split_coo() 599 nnzl++; in lis_matrix_split_coo() 613 A->L->nnz = nnzl; in lis_matrix_split_coo() 634 LIS_INT nnz,nnzl,nnzu; in lis_matrix_merge_coo() local 642 nnzl = A->L->nnz; in lis_matrix_merge_coo() [all …]
|
H A D | lis_matrix_csc.c | 496 LIS_INT nnzl,nnzu; in lis_matrix_split_csc() local 509 nnzl = 0; in lis_matrix_split_csc() 559 nnzl = liw[np]; in lis_matrix_split_csc() 568 nnzl++; in lis_matrix_split_csc() 583 err = lis_matrix_malloc_csr(np,nnzl,&lptr,&lindex,&lvalue); in lis_matrix_split_csc() 635 nnzl = 0; in lis_matrix_split_csc() 645 lindex[nnzl] = A->index[j]; in lis_matrix_split_csc() 646 lvalue[nnzl] = A->value[j]; in lis_matrix_split_csc() 647 nnzl++; in lis_matrix_split_csc() 660 lptr[i+1] = nnzl; in lis_matrix_split_csc() [all …]
|
H A D | lis_matrix_vbr.c | 1124 LIS_INT nnzl,nnzu,bnnzl,bnnzu; in lis_matrix_split_vbr() local 1140 nnzl = 0; in lis_matrix_split_vbr() 1219 nnzl = liw2[nr]; in lis_matrix_split_vbr() 1229 nnzl++; in lis_matrix_split_vbr() 1246 err = lis_matrix_malloc_vbr(n,nnzl,nr,nc,bnnzl,&lrow,&lcol,&lptr,&lbptr,&lbindex,&lvalue); in lis_matrix_split_vbr() 1336 nnzl = 0; in lis_matrix_split_vbr() 1353 memcpy(&lvalue[nnzl],&A->value[A->ptr[j]],bs*sizeof(LIS_SCALAR));; in lis_matrix_split_vbr() 1354 nnzl += bs; in lis_matrix_split_vbr() 1356 lptr[bnnzl] = nnzl; in lis_matrix_split_vbr() 1379 A->L->nnz = nnzl; in lis_matrix_split_vbr()
|
H A D | lis_matrix_bsc.c | 1077 LIS_INT nnzl,nnzu; in lis_matrix_split_bsc() local 1095 nnzl = 0; in lis_matrix_split_bsc() 1150 nnzl = liw[nc]; in lis_matrix_split_bsc() 1159 nnzl++; in lis_matrix_split_bsc() 1174 err = lis_matrix_malloc_bsc(np,bnr,bnc,nnzl,&lptr,&lindex,&lvalue); in lis_matrix_split_bsc() 1226 nnzl = 0; in lis_matrix_split_bsc() 1236 lindex[nnzl] = A->bindex[j]; in lis_matrix_split_bsc() 1237 memcpy(&lvalue[bs*nnzl],&A->value[bs*j],bs*sizeof(LIS_SCALAR));; in lis_matrix_split_bsc() 1238 nnzl++; in lis_matrix_split_bsc() 1251 lptr[i+1] = nnzl; in lis_matrix_split_bsc() [all …]
|
H A D | lis_matrix_bsr.c | 1134 LIS_INT nnzl,nnzu; in lis_matrix_split_bsr() local 1152 nnzl = 0; in lis_matrix_split_bsr() 1207 nnzl = liw[nr]; in lis_matrix_split_bsr() 1216 nnzl++; in lis_matrix_split_bsr() 1231 err = lis_matrix_malloc_bsr(n,bnr,bnc,nnzl,&lptr,&lindex,&lvalue); in lis_matrix_split_bsr() 1283 nnzl = 0; in lis_matrix_split_bsr() 1293 lindex[nnzl] = A->bindex[j]; in lis_matrix_split_bsr() 1294 memcpy(&lvalue[bs*nnzl],&A->value[bs*j],bs*sizeof(LIS_SCALAR));; in lis_matrix_split_bsr() 1295 nnzl++; in lis_matrix_split_bsr() 1308 lptr[i+1] = nnzl; in lis_matrix_split_bsr() [all …]
|
/dports/math/lis/lis-2.0.30/src/precon/ |
H A D | lis_precon_is.c | 155 LIS_INT nnzl,nnzu,kl,ku; in lis_precon_create_is_csr() local 199 nnzl = 0; in lis_precon_create_is_csr() 210 nnzl++; in lis_precon_create_is_csr() 238 nnzl++; in lis_precon_create_is_csr() 265 lptr[i+1] = nnzl; in lis_precon_create_is_csr() 280 nnzl = lptr[n]; in lis_precon_create_is_csr() 283 lindex = (LIS_INT *)lis_malloc(nnzl*sizeof(LIS_INT),"lis_precon_create_is_csr::lindex"); in lis_precon_create_is_csr() 284 lvalue = (LIS_SCALAR *)lis_malloc(nnzl*sizeof(LIS_SCALAR),"lis_precon_create_is_csr::lvalue"); in lis_precon_create_is_csr()
|
/dports/science/siesta/siesta-4.1.5/Util/MPI_test/ |
H A D | dist.F90 | 92 m1%nnzl = sum(m1%numcols(1:m1%no_l)) 93 allocate(m1%cols(m1%nnzl)) 94 do j = 1, m1%nnzl
|
H A D | m_redist.F90 | 57 m2%nnzl = sum(m2%numcols(1:m2%no_l)) 58 allocate(m2%cols(m2%nnzl)) 59 allocate(m2%vals(m2%nnzl))
|
H A D | m_matrix.F90 | 7 integer :: nnzl component
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/sparse/sci_gateway/cpp/ |
H A D | sci_sfinit.cpp | 29 int* perm, int* invp, int* colcnt, int* nnzl, int* nsub, 144 int* nnzl = (int*)pdbl10->get(); in sci_sfinit() local 166 C2F(sfinit)(neqns, nnza, xadj, adjncy, perm, invp, colcnt, nnzl, nsub, in sci_sfinit()
|
/dports/math/R-cran-quantreg/quantreg/src/ |
H A D | chlfct.f | 12 integer m,ierr,nsub,iwsiz,nnzdsub,nnzl,nsuper,nnzlmax,nsubmax, 53 & invp,colcnt,nnzl,nsub,nsuper,snode,xsuper,iwsiz, 59 if (nnzl .gt. nnzlmax) then
|
/dports/science/siesta/siesta-4.1.5/Src/ |
H A D | m_redist_spmatrix.F90 | 20 integer :: nnzl = -1 component 155 m2%nnzl = sum(m2%numcols(1:m2%no_l)) 156 call re_alloc(m2%cols,1,m2%nnzl,"m2%cols","redistribute_spmatrix") 161 call re_alloc(m2%vals(j)%data,1,m2%nnzl, &
|
H A D | m_pexsi_dos.F90 | 227 m1%nnzl = sum(numH(1:no_l)) 250 nnzLocal = m2%nnzl
|
H A D | m_pexsi_local_dos.F90 | 246 m1%nnzl = sum(numH(1:no_l)) 269 nnzLocal = m2%nnzl
|
H A D | redist-spmatrix.lit | 71 integer :: nnzl = -1 222 m2%nnzl = sum(m2%numcols(1:m2%no_l)) 223 call re_alloc(m2%cols,1,m2%nnzl,"m2%cols","redistribute_spmatrix") 228 call re_alloc(m2%vals(j)%data,1,m2%nnzl, &
|
/dports/science/openmx/openmx3.8/source/ |
H A D | elpa1.f90 | 2216 nnzl = 0 2225 nnzl = nnzl+1 2233 ndef = max(nnzu,nnzl) 2273 nnzl = 0 2282 nnzl = nnzl+1 2283 d1l(nnzl) = d1(i) 2284 zl (nnzl) = z (i) 2338 tmp(1:nnzl) = d1l(1:nnzl)-dbase(j) 2339 call v_add_s(tmp,nnzl,ddiff(j)) 2340 ev(1:nnzl,i) = zl(1:nnzl) / (tmp(1:nnzl)+1.0e-26) * ev_scale(j) [all …]
|
/dports/math/R-cran-SparseM/SparseM/R/ |
H A D | SparseM.R | 1487 nsuper="numeric",lindx="numeric",xlindx="numeric",nnzl="numeric", repr in matrix.csr.chol 1560 nnzl=as.integer(x@nnzl), 1564 ra=double(x@nnzl), 1566 ja=integer(x@nnzl)) 1845 nnzl <- z$xlnz[length(z$xlnz)]-1 1863 nnzl=as.integer(nnzl),lnz=z$lnz[1:nnzl],xlnz=z$xlnz,invp=z$invp, 1898 as.integer(r@xlindx), as.integer(r@nnzl), as.double(r@lnz), 1905 as.integer(r@xlindx), as.integer(r@nnzl), as.double(r@lnz), 1927 as.integer(l@xlindx), as.integer(l@nnzl),
|
/dports/math/freefem++/FreeFem-sources-4.6/src/femlib/ |
H A D | HashMatrix.cpp | 610 double nnzl = min(max(1.,double(nzzx)/mnx),50.);// bof bof !!!! FH in Increaze() local 611 size_t nh = mnx*nnzl; in Increaze() 906 size_t nnzl=nnz-nnzu-nnzd; in SortLU() local 907 cout << "SortLU " << U << ":s " << nnzl << " "<< nnzd << " " << nnzu << endl; in SortLU() 976 size_t nnzl=SortLU(-1); in CSR_L() local 977 Buildp(this->m,i,type_CSR+addstateLU(-1),nnzl); in CSR_L() 982 return nnzl; in CSR_L()
|
/dports/math/R-cran-SparseM/SparseM/man/ |
H A D | matrix.csr.chol-class.Rd | 19 \item{\code{nnzl}:}{Object of class \code{numeric}, number of non-zero
|