/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/ |
H A D | ga_it2.F | 623 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 D | ga_it_lsolve.F | 81 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 D | ga_iter_diag.F | 91 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 D | ga_lkain_ext.F | 63 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 D | ga_lkain_2cpl3_ext.F | 359 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 D | ga_it2.F | 623 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 D | ga_it_lsolve.F | 81 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 D | ga_iter_diag.F | 91 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 D | ga_lkain_ext.F | 63 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 D | ga_lkain_2cpl3_ext.F | 359 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 D | body_rounded_polygon.cpp | 123 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 D | body_rounded_polyhedron.cpp | 160 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 D | body_nparticle.cpp | 86 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 D | subst.c | 40 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 D | subst.c | 40 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 D | subst.c | 40 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 D | subst.c | 40 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 D | subst.c | 40 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 D | subst.c | 40 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 D | subscr.f | 3 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 D | vech.c | 513 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 D | vechu.c | 507 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 D | vech.c | 513 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 D | vechu.c | 507 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 D | nrbkntplot.m | 1 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 …]
|