Home
last modified time | relevance | path

Searched refs:nnzl (Results 1 – 25 of 44) sorted by relevance

12

/dports/math/R-cran-SparseM/SparseM/src/
H A Dchol2csr.f1 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 Dchol.f73 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 Dchfact.sci15 //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 Dblkslv.sci16 //[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 Delpa1_merge_systems_real_template.F90631 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 Dlis_matrix_csr.c840 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 Dlis_matrix_coo.c536 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 Dlis_matrix_csc.c496 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 Dlis_matrix_vbr.c1124 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 Dlis_matrix_bsc.c1077 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 Dlis_matrix_bsr.c1134 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 Dlis_precon_is.c155 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 Ddist.F9092 m1%nnzl = sum(m1%numcols(1:m1%no_l))
93 allocate(m1%cols(m1%nnzl))
94 do j = 1, m1%nnzl
H A Dm_redist.F9057 m2%nnzl = sum(m2%numcols(1:m2%no_l))
58 allocate(m2%cols(m2%nnzl))
59 allocate(m2%vals(m2%nnzl))
H A Dm_matrix.F907 integer :: nnzl component
/dports/math/scilab/scilab-6.1.1/scilab/modules/sparse/sci_gateway/cpp/
H A Dsci_sfinit.cpp29 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 Dchlfct.f12 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 Dm_redist_spmatrix.F9020 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 Dm_pexsi_dos.F90227 m1%nnzl = sum(numH(1:no_l))
250 nnzLocal = m2%nnzl
H A Dm_pexsi_local_dos.F90246 m1%nnzl = sum(numH(1:no_l))
269 nnzLocal = m2%nnzl
H A Dredist-spmatrix.lit71 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 Delpa1.f902216 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 DSparseM.R1487 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 DHashMatrix.cpp610 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 Dmatrix.csr.chol-class.Rd19 \item{\code{nnzl}:}{Object of class \code{numeric}, number of non-zero

12