Home
last modified time | relevance | path

Searched refs:nsub (Results 1 – 25 of 1863) sorted by relevance

12345678910>>...75

/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/
H A Dga_it2.F623 nsub = nsub + nvec
715 nsub = nsub - nvec
914 $ g_Ay, 1, n, nsub+1, nsub+1)
917 $ g_y, 1, n, nsub+1, nsub+1)
918 nsub = nsub + 1
932 b(isub) = -(a(isub,nsub) - a(nsub,nsub))
937 $ - a(nsub,jsub) - a(isub,nsub) + a(nsub,nsub)
943 zb(isub) = -(za(isub,nsub) - za(nsub,nsub))
948 $ - za(nsub,jsub) - za(isub,nsub) + za(nsub,nsub)
958 $ nsub-1,nsub-1,g_a))
[all …]
H A Dga_it_lsolve.F81 integer i, nsub
172 call ga_mat_to_vec(g_x, 1, n, nsub, nsub, g_b, 1, 1,1.0d0,'=')
184 call ga_local_mdot(n, nsub, nsub, aa, maxdim, g_p, g_p)
185 call ga_local_mdot(n, nsub, 1, bb, nsub, g_p, g_b)
199 call output(aa, 1, nsub, 1, nsub, maxdim, nsub, 1)
201 call output(bb, 1, nsub, 1, 1, nsub, 1, 1)
212 call output(yy, 1, nsub, 1, 1, nsub, 1, 1)
218 do i = 1, nsub
272 do i = 1, nsub
286 nsub = nsub + 1
[all …]
H A Dga_iter_diag.F91 integer i, j, nsub, info, cur_root, iroot
184 do i = 1, nsub
199 call output(aa, 1, nsub, 1, nsub, maxdim, nsub, 1)
201 call output(ss, 1, nsub, 1, nsub, maxdim, nsub, 1)
211 call output(yy, 1, nsub, 1, nsub, maxdim, nsub, 1)
213 call output(ee, 1, nsub, 1, 1, nsub, 1, 1)
220 call ga_mix(g_x, n, nsub, yy, maxdim)
324 if (nsub+croot .ge. maxsub)nsub=maxsub-croot
333 nsub=nsub+1
336 & nsub, nsub)
[all …]
H A Dga_lkain_ext.F63 integer iter, n, nvec, nsub, isub, type, maxsub
145 nsub = 0
241 write(6,3) iter, nsub+nvec, rmax, util_wallsec()
265 $ g_Ay, 1, n, nsub+1, nsub+nvec)
268 $ g_y, 1, n, nsub+1, nsub+nvec)
269 nsub = nsub + nvec
274 if (.not. ga_create(MT_DBL, nsub, nsub, 'lkain: A', 0, 0, g_a))
275 $ call errquit('lkain: allocating g_a?', nsub, GA_ERR)
283 call ga_dgemm('t','n',nsub,nsub,n,1.0d0,g_y,g_Ay,0.0d0,g_a)
318 if (nsub .eq. maxsub) then
[all …]
H A Dga_lkain_2cpl3_ext.F359 nsub = nsub + nvec
389 nsub = nsub - nvec
1156 nsub = nsub + nvec
1231 nsub = nsub - nvec
1890 nsub = nsub + nvec
1966 nsub = nsub - nvec
3106 nsub = nsub + nvec
3146 nsub = nsub - nvec
3616 do ivec=nsub+1,nsub+nvec
3635 do ivec=nsub+1,nsub+nvec
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/util/
H A Dga_it2.F623 nsub = nsub + nvec
715 nsub = nsub - nvec
914 $ g_Ay, 1, n, nsub+1, nsub+1)
917 $ g_y, 1, n, nsub+1, nsub+1)
918 nsub = nsub + 1
932 b(isub) = -(a(isub,nsub) - a(nsub,nsub))
937 $ - a(nsub,jsub) - a(isub,nsub) + a(nsub,nsub)
943 zb(isub) = -(za(isub,nsub) - za(nsub,nsub))
948 $ - za(nsub,jsub) - za(isub,nsub) + za(nsub,nsub)
958 $ nsub-1,nsub-1,g_a))
[all …]
H A Dga_it_lsolve.F81 integer i, nsub
172 call ga_mat_to_vec(g_x, 1, n, nsub, nsub, g_b, 1, 1,1.0d0,'=')
184 call ga_local_mdot(n, nsub, nsub, aa, maxdim, g_p, g_p)
185 call ga_local_mdot(n, nsub, 1, bb, nsub, g_p, g_b)
199 call output(aa, 1, nsub, 1, nsub, maxdim, nsub, 1)
201 call output(bb, 1, nsub, 1, 1, nsub, 1, 1)
212 call output(yy, 1, nsub, 1, 1, nsub, 1, 1)
218 do i = 1, nsub
272 do i = 1, nsub
286 nsub = nsub + 1
[all …]
H A Dga_iter_diag.F91 integer i, j, nsub, info, cur_root, iroot
184 do i = 1, nsub
199 call output(aa, 1, nsub, 1, nsub, maxdim, nsub, 1)
201 call output(ss, 1, nsub, 1, nsub, maxdim, nsub, 1)
211 call output(yy, 1, nsub, 1, nsub, maxdim, nsub, 1)
213 call output(ee, 1, nsub, 1, 1, nsub, 1, 1)
220 call ga_mix(g_x, n, nsub, yy, maxdim)
324 if (nsub+croot .ge. maxsub)nsub=maxsub-croot
333 nsub=nsub+1
336 & nsub, nsub)
[all …]
H A Dga_lkain_ext.F63 integer iter, n, nvec, nsub, isub, type, maxsub
145 nsub = 0
241 write(6,3) iter, nsub+nvec, rmax, util_wallsec()
265 $ g_Ay, 1, n, nsub+1, nsub+nvec)
268 $ g_y, 1, n, nsub+1, nsub+nvec)
269 nsub = nsub + nvec
274 if (.not. ga_create(MT_DBL, nsub, nsub, 'lkain: A', 0, 0, g_a))
275 $ call errquit('lkain: allocating g_a?', nsub, GA_ERR)
283 call ga_dgemm('t','n',nsub,nsub,n,1.0d0,g_y,g_Ay,0.0d0,g_a)
318 if (nsub .eq. maxsub) then
[all …]
H A Dga_lkain_2cpl3_ext.F359 nsub = nsub + nvec
389 nsub = nsub - nvec
1156 nsub = nsub + nvec
1231 nsub = nsub - nvec
1890 nsub = nsub + nvec
1966 nsub = nsub - nvec
3106 nsub = nsub + nvec
3146 nsub = nsub - nvec
3616 do ivec=nsub+1,nsub+nvec
3635 do ivec=nsub+1,nsub+nvec
[all …]
/dports/science/lammps/lammps-stable_29Sep2021/src/BODY/
H A Dbody_rounded_polygon.cpp123 return *(bonus->dvalue + 3*nsub(bonus) + 2*nsub(bonus)); in enclosing_radius()
133 return *(bonus->dvalue + 3*nsub(bonus) + 2*nsub(bonus)+1); in rounded_radius()
141 buf[0] = nsub; in pack_border_body()
143 return 1+(3*nsub+2*nsub+1+1); in pack_border_body()
154 return 1+(3*nsub+2*nsub+1+1); in unpack_border_body()
172 if (nsub < 1) in data_body()
187 if (nsub < 3) bonus->ndouble = 3*nsub + 2 + 1 + 1; in data_body()
188 else bonus->ndouble = 3*nsub + 2*nsub + 1 + 1; in data_body()
382 if (nsub < 3) ilast = 3*nsub + 2 + 1; in pack_data_body()
383 else ilast = 3*nsub + 2*nsub + 1; in pack_data_body()
[all …]
H A Dbody_rounded_polyhedron.cpp160 buf[0] = nsub; in pack_border_body()
164 if (nsub == 1 || nsub == 2) ndouble = 3*nsub+2+MAX_FACE_SIZE*nfac+1+1; in pack_border_body()
181 if (nsub == 1 || nsub == 2) ndouble = 3*nsub+2+MAX_FACE_SIZE*nfac+1+1; in unpack_border_body()
204 if (nsub < 1) in data_body()
215 if (nsub < 3) { in data_body()
231 if (nsub < 3) bonus->ndouble = 3*nsub + 2 + 1 + 1; in data_body()
404 if (nsub < 3) buf[m++] = ubuf(6 + 3*nsub + 1).d; in pack_data_body()
438 j = 3*nsub; in pack_data_body()
501 if (nsub > 2) { in write_data_body()
533 if (nsub == 1 || nsub == 2) nentries = 6 + 3*nsub + 1; in radius_body()
[all …]
H A Dbody_nparticle.cpp86 buf[0] = nsub; in pack_border_body()
88 return 1+3*nsub; in pack_border_body()
96 bonus->ivalue[0] = nsub; in unpack_border_body()
98 return 1+3*nsub; in unpack_border_body()
115 int nsub = ifile[0]; in data_body() local
116 if (nsub < 1) in data_body()
125 bonus->ivalue[0] = nsub; in data_body()
126 bonus->ndouble = 3*nsub; in data_body()
213 int nsub = ivalue[0]; in pack_data_body() local
295 int nsub = ifile[0]; in radius_body() local
[all …]
/dports/net/openldap24-server/openldap-2.4.59/libraries/librewrite/
H A Dsubst.c40 int nsub = 0, l; in rewrite_subst_compile() local
74 subs[ nsub ].bv_val = NULL; in rewrite_subst_compile()
91 subs[ nsub ].bv_len = l; in rewrite_subst_compile()
100 subs[ nsub ].bv_len = 0; in rewrite_subst_compile()
156 submatch[ nsub ].ls_type = in rewrite_subst_compile()
171 nsub++; in rewrite_subst_compile()
189 subs[ nsub ].bv_len = l; in rewrite_subst_compile()
198 subs[ nsub ].bv_len = 0; in rewrite_subst_compile()
208 s->lt_num_submatch = nsub; in rewrite_subst_compile()
215 for ( l=0; l<nsub; l++ ) { in rewrite_subst_compile()
[all …]
/dports/net/openldap24-client/openldap-2.4.59/libraries/librewrite/
H A Dsubst.c40 int nsub = 0, l; in rewrite_subst_compile() local
74 subs[ nsub ].bv_val = NULL; in rewrite_subst_compile()
91 subs[ nsub ].bv_len = l; in rewrite_subst_compile()
100 subs[ nsub ].bv_len = 0; in rewrite_subst_compile()
156 submatch[ nsub ].ls_type = in rewrite_subst_compile()
171 nsub++; in rewrite_subst_compile()
189 subs[ nsub ].bv_len = l; in rewrite_subst_compile()
198 subs[ nsub ].bv_len = 0; in rewrite_subst_compile()
208 s->lt_num_submatch = nsub; in rewrite_subst_compile()
215 for ( l=0; l<nsub; l++ ) { in rewrite_subst_compile()
[all …]
/dports/net/openldap25-client/openldap-2.5.9/libraries/librewrite/
H A Dsubst.c40 int nsub = 0, l; in rewrite_subst_compile() local
74 subs[ nsub ].bv_val = NULL; in rewrite_subst_compile()
91 subs[ nsub ].bv_len = l; in rewrite_subst_compile()
100 subs[ nsub ].bv_len = 0; in rewrite_subst_compile()
156 submatch[ nsub ].ls_type = in rewrite_subst_compile()
171 nsub++; in rewrite_subst_compile()
189 subs[ nsub ].bv_len = l; in rewrite_subst_compile()
198 subs[ nsub ].bv_len = 0; in rewrite_subst_compile()
208 s->lt_num_submatch = nsub; in rewrite_subst_compile()
215 for ( l=0; l<nsub; l++ ) { in rewrite_subst_compile()
[all …]
/dports/net/openldap25-server/openldap-2.5.9/libraries/librewrite/
H A Dsubst.c40 int nsub = 0, l; in rewrite_subst_compile() local
74 subs[ nsub ].bv_val = NULL; in rewrite_subst_compile()
91 subs[ nsub ].bv_len = l; in rewrite_subst_compile()
100 subs[ nsub ].bv_len = 0; in rewrite_subst_compile()
156 submatch[ nsub ].ls_type = in rewrite_subst_compile()
171 nsub++; in rewrite_subst_compile()
189 subs[ nsub ].bv_len = l; in rewrite_subst_compile()
198 subs[ nsub ].bv_len = 0; in rewrite_subst_compile()
208 s->lt_num_submatch = nsub; in rewrite_subst_compile()
215 for ( l=0; l<nsub; l++ ) { in rewrite_subst_compile()
[all …]
/dports/net/openldap26-client/openldap-2.6.0/libraries/librewrite/
H A Dsubst.c40 int nsub = 0, l; in rewrite_subst_compile() local
74 subs[ nsub ].bv_val = NULL; in rewrite_subst_compile()
91 subs[ nsub ].bv_len = l; in rewrite_subst_compile()
100 subs[ nsub ].bv_len = 0; in rewrite_subst_compile()
156 submatch[ nsub ].ls_type = in rewrite_subst_compile()
171 nsub++; in rewrite_subst_compile()
189 subs[ nsub ].bv_len = l; in rewrite_subst_compile()
198 subs[ nsub ].bv_len = 0; in rewrite_subst_compile()
208 s->lt_num_submatch = nsub; in rewrite_subst_compile()
215 for ( l=0; l<nsub; l++ ) { in rewrite_subst_compile()
[all …]
/dports/net/openldap26-server/openldap-2.6.0/libraries/librewrite/
H A Dsubst.c40 int nsub = 0, l; in rewrite_subst_compile() local
74 subs[ nsub ].bv_val = NULL; in rewrite_subst_compile()
91 subs[ nsub ].bv_len = l; in rewrite_subst_compile()
100 subs[ nsub ].bv_len = 0; in rewrite_subst_compile()
156 submatch[ nsub ].ls_type = in rewrite_subst_compile()
171 nsub++; in rewrite_subst_compile()
189 subs[ nsub ].bv_len = l; in rewrite_subst_compile()
198 subs[ nsub ].bv_len = 0; in rewrite_subst_compile()
208 s->lt_num_submatch = nsub; in rewrite_subst_compile()
215 for ( l=0; l<nsub; l++ ) { in rewrite_subst_compile()
[all …]
/dports/math/R-cran-SparseM/SparseM/src/
H A Dsubscr.f3 subroutine subext(nsub,ir,jc,a,ja,ia,sorted,values,iadd) argument
6 integer i,nsub,ir(nsub),jc(nsub),ja(*),ia(*),iadd(nsub)
7 double precision a(*),values(nsub),getelm
9 do i = 1,nsub
15 subroutine subasg(nrow,ncol,nsub,nnza,nnzb,ir,jc,a,ja,ia, argument
41 integer nrow,ncol,nsub,nnza,nnzb,len,ierr
42 integer ir(nsub),jc(nsub),ja(nnza),ia(nrow+1),jb(nnzb),ib(nrow+1)
43 double precision a(nnza),b(nnzb),values(nsub)
53 do j = 1,nsub
/dports/math/dsdp/DSDP5.8/src/vecmat/
H A Dvech.c513 if (iptr[i]>0){ invp[nsub]=i; perm[i]=nsub; nsub++;} in VechMatComputeEigs()
517 if (nsub*nsub>nn1){ in VechMatComputeEigs()
518 DSDPCALLOC2(&dmatarray,double,(nsub*nsub),&info); DSDPCHKERR(info); in VechMatComputeEigs()
521 memset((void*)dmatarray,0,nsub*nsub*sizeof(double)); in VechMatComputeEigs()
522 if (nsub*nsub>nn2){ in VechMatComputeEigs()
523 DSDPCALLOC2(&dworkarray,double,(nsub*nsub),&info); DSDPCHKERR(info); in VechMatComputeEigs()
527 if (nsub*nsub*sizeof(long int)>nn0*sizeof(double)){ in VechMatComputeEigs()
528 DSDPCALLOC2(&i2darray,long int,(nsub*nsub),&info); DSDPCHKERR(info); in VechMatComputeEigs()
540 info=DSDPGetEigs(dmatarray,nsub,dworkarray,nsub*nsub,i2darray,nsub*nsub, in VechMatComputeEigs()
543 memset((void*)dmatarray,0,nsub*nsub*sizeof(double)); in VechMatComputeEigs()
[all …]
H A Dvechu.c507 if (iptr[i]>0){ invp[nsub]=i; perm[i]=nsub; nsub++;} in VechMatComputeEigs()
511 if (nsub*nsub>nn1){ in VechMatComputeEigs()
512 DSDPCALLOC2(&dmatarray,double,(nsub*nsub),&info); DSDPCHKERR(info); in VechMatComputeEigs()
515 memset((void*)dmatarray,0,nsub*nsub*sizeof(double)); in VechMatComputeEigs()
516 if (nsub*nsub>nn2){ in VechMatComputeEigs()
517 DSDPCALLOC2(&dworkarray,double,(nsub*nsub),&info); DSDPCHKERR(info); in VechMatComputeEigs()
521 if (nsub*nsub*sizeof(long int)>nn0*sizeof(double)){ in VechMatComputeEigs()
522 DSDPCALLOC2(&i2darray,long int,(nsub*nsub),&info); DSDPCHKERR(info); in VechMatComputeEigs()
537 info=DSDPGetEigs(dmatarray,nsub,dworkarray,nsub*nsub,i2darray,nsub*nsub, in VechMatComputeEigs()
540 memset((void*)dmatarray,0,nsub*nsub*sizeof(double)); in VechMatComputeEigs()
[all …]
/dports/math/casadi/casadi-3.5.5/external_packages/DSDP/src/vecmat/
H A Dvech.c513 if (iptr[i]>0){ invp[nsub]=i; perm[i]=nsub; nsub++;} in VechMatComputeEigs()
517 if (nsub*nsub>nn1){ in VechMatComputeEigs()
518 DSDPCALLOC2(&dmatarray,double,(nsub*nsub),&info); DSDPCHKERR(info); in VechMatComputeEigs()
521 memset((void*)dmatarray,0,nsub*nsub*sizeof(double)); in VechMatComputeEigs()
522 if (nsub*nsub>nn2){ in VechMatComputeEigs()
523 DSDPCALLOC2(&dworkarray,double,(nsub*nsub),&info); DSDPCHKERR(info); in VechMatComputeEigs()
527 if (nsub*nsub*sizeof(long int)>nn0*sizeof(double)){ in VechMatComputeEigs()
528 DSDPCALLOC2(&i2darray,long int,(nsub*nsub),&info); DSDPCHKERR(info); in VechMatComputeEigs()
540 info=DSDPGetEigs(dmatarray,nsub,dworkarray,nsub*nsub,i2darray,nsub*nsub, in VechMatComputeEigs()
543 memset((void*)dmatarray,0,nsub*nsub*sizeof(double)); in VechMatComputeEigs()
[all …]
H A Dvechu.c507 if (iptr[i]>0){ invp[nsub]=i; perm[i]=nsub; nsub++;} in VechMatComputeEigs()
511 if (nsub*nsub>nn1){ in VechMatComputeEigs()
512 DSDPCALLOC2(&dmatarray,double,(nsub*nsub),&info); DSDPCHKERR(info); in VechMatComputeEigs()
515 memset((void*)dmatarray,0,nsub*nsub*sizeof(double)); in VechMatComputeEigs()
516 if (nsub*nsub>nn2){ in VechMatComputeEigs()
517 DSDPCALLOC2(&dworkarray,double,(nsub*nsub),&info); DSDPCHKERR(info); in VechMatComputeEigs()
521 if (nsub*nsub*sizeof(long int)>nn0*sizeof(double)){ in VechMatComputeEigs()
522 DSDPCALLOC2(&i2darray,long int,(nsub*nsub),&info); DSDPCHKERR(info); in VechMatComputeEigs()
537 info=DSDPGetEigs(dmatarray,nsub,dworkarray,nsub*nsub,i2darray,nsub*nsub, in VechMatComputeEigs()
540 memset((void*)dmatarray,0,nsub*nsub*sizeof(double)); in VechMatComputeEigs()
[all …]
/dports/math/octave-forge-nurbs/nurbs-1.4.3/inst/
H A Dnrbkntplot.m1 function nrbkntplot (nurbs, nsub)
56 nsub = [50 50]; variable
57 elseif (numel(nsub) == 1)
58 nsub = [nsub nsub]; variable
91 nsub = [25 25 25]; variable
92 elseif (numel(nsub) == 1)
93 nsub = [nsub nsub nsub]; variable
97 nrbkntplot (bnd(1), nsub(2:3));
101 nrbkntplot (bnd(iface), nsub(inds));
106 nsub = 1000; variable
[all …]

12345678910>>...75