/dports/science/xtb/xtb-6.4.1/src/gfnff/ |
H A D | neighbourlist.f90 | 31 integer :: nxb component 57 integer, intent(in) :: nxb local 61 self%nxb = nxb 66 allocate(self%hblist3(3, self%nxb), source=0)
|
/dports/science/afni/afni-AFNI_21.3.16/src/ |
H A D | mri_subset.c | 14 int nxa , nxb , ny , ii , jj , ps , ia ; in mri_subset_x2D() local 19 nxa = ima->nx ; ny = ima->ny ; nxb = ng ; in mri_subset_x2D() 20 imb = mri_new( nxb , ny , ima->kind ) ; in mri_subset_x2D() 26 for( ii=0 ; ii < nxb ; ii++ ){ in mri_subset_x2D() 30 bpt = bar + ps*(ii+jj*nxb) ; in mri_subset_x2D()
|
H A D | 3dmatmult.c | 76 int nxb, nyb, nzb, nxyb; in multiply_dsets() local 87 nxa = DSET_NX(opts->dsetA); nxb = DSET_NX(opts->dsetB); in multiply_dsets() 108 nvals,nza,nya,nxb); in multiply_dsets() 113 nxc = nxb; nyc = nya; nzc = nza; in multiply_dsets() 135 nxyb = nxb * nyb; in multiply_dsets() 170 sum += sliceA[nxa*row+ind] * sliceB[nxb*ind+col]; in multiply_dsets()
|
H A D | mri_fft_complex.c | 231 int nxa,nya,nza , nxb,nyb,nzb , Lxx,Lyy,Lzz , Lxyz,ii ; in mri_fft_3Dconvolve() local 241 nxb = bim->nx ; nyb = bim->ny ; nzb = bim->nz ; in mri_fft_3Dconvolve() 245 Lxx = (nxa > 1 && nxb > 1) ? csfft_nextup_one35(nxa+nxb) : 0 ; in mri_fft_3Dconvolve() 267 pbim = mri_zeropad_3D( 0,Lxx-nxb , 0,Lyy-nyb , 0,Lzz-nzb , fbim ) ; /* 2) */ in mri_fft_3Dconvolve()
|
/dports/math/py-Pyomo/Pyomo-6.1.2/pyomo/contrib/incidence_analysis/ |
H A D | matching.py | 18 nxb = nx.algorithms.bipartite 20 from_biadjacency_matrix = nxb.matrix.from_biadjacency_matrix 38 matchings = [nxb.maximum_matching(c) for c in conn_comp]
|
H A D | dulmage_mendelsohn.py | 59 nxb = nx.algorithms.bipartite 60 from_biadjacency_matrix = nxb.matrix.from_biadjacency_matrix
|
/dports/science/dftbplus/dftbplus-19.1/external/poisson/mudpack/ |
H A D | dmud3sp.f | 91 nxb = iparm(3) 149 if (max0(nxa,nxb,nyc,nyd,nze,nzf).gt.2) return 151 if (nxa.eq.0.and.nxb.ne.0) return 152 if (nxa.ne.0.and.nxb.eq.0) return 613 if (nxb.eq.1) ifn = nx-1 696 if (nxb.eq.1) ifn = nx-1 787 if (nxb.eq.2) then 924 if (nxb.eq.1) ifn = nx-1 948 if (nxb.eq.2) then 1039 if (nxb.eq.1) then [all …]
|
H A D | mud3sp.f | 91 nxb = iparm(3) 149 if (max0(nxa,nxb,nyc,nyd,nze,nzf).gt.2) return 151 if (nxa.eq.0.and.nxb.ne.0) return 152 if (nxa.ne.0.and.nxb.eq.0) return 612 if (nxb.eq.1) ifn = nx-1 694 if (nxb.eq.1) ifn = nx-1 785 if (nxb.eq.2) then 921 if (nxb.eq.1) ifn = nx-1 945 if (nxb.eq.2) then 1036 if (nxb.eq.1) then [all …]
|
H A D | dmud3pn.f | 39 integer intl,nxa,nxb,nyc,nyd,nze,nzf,ixp,jyq,kzr,iex,jey,kez, local 58 iparm(3) = nxb 207 integer intl,nxa,nxb,nyc,nyd,nze,nzf,ixp,jyq,kzr,iex,jey,kez, local 226 iparm(3) = nxb 432 if (nxb.ne.1) ifn = nx 534 integer intl,nxa,nxb,nyc,nyd,ixp,jyq,iex,jey,nfx,nfy,iguess, local 550 nxb = iparm(3) 623 integer intl,nxa,nxb,nyc,nyd,ixp,jyq,iex,jey,nfx,nfy,iguess, 740 call cor2(nx,ny,wk(ip),ncx,ncy,wk(ipc),nxa,nxb,nyc,nyd, 786 call cor2(nx,ny,wk(ip),ncx,ncy,wk(ipc),nxa,nxb,nyc,nyd, [all …]
|
H A D | mud3pn.f | 39 integer intl,nxa,nxb,nyc,nyd,nze,nzf,ixp,jyq,kzr,iex,jey,kez, 57 iparm(3) = nxb 203 integer intl,nxa,nxb,nyc,nyd,nze,nzf,ixp,jyq,kzr,iex,jey,kez, 221 iparm(3) = nxb 364 integer intl,nxa,nxb,nyc,nyd,nze,nzf,ixp,jyq,kzr,iex,jey,kez, 424 if (nxb.ne.1) ifn = nx 526 integer intl,nxa,nxb,nyc,nyd,ixp,jyq,iex,jey,nfx,nfy,iguess, 542 nxb = iparm(3) 721 call cor2(nx,ny,wk(ip),ncx,ncy,wk(ipc),nxa,nxb,nyc,nyd, 766 call cor2(nx,ny,wk(ip),ncx,ncy,wk(ipc),nxa,nxb,nyc,nyd, [all …]
|
H A D | dmud3.f | 85 nxb = iparm(3) 149 if (max0(nxa,nxb,nyc,nyd,nze,nzf).gt.2) return 150 if (min0(nxa,nxb,nyc,nyd,nze,nzf).lt.0) return 151 if (nxa.eq.0.and.nxb.ne.0) return 152 if (nxa.ne.0.and.nxb.eq.0) return 879 if (nxb.eq.1) ifn = nx-1 958 if (nxb.eq.2) then 1077 if (nxb.eq.1) then 1312 if (nxb.eq.1) ifn = nx-1 1337 if (nxb.eq.2) then [all …]
|
H A D | mud3.f | 85 nxb = iparm(3) 155 if (max0(nxa,nxb,nyc,nyd,nze,nzf).gt.2) return 156 if (min0(nxa,nxb,nyc,nyd,nze,nzf).lt.0) return 157 if (nxa.eq.0.and.nxb.ne.0) return 158 if (nxa.ne.0.and.nxb.eq.0) return 898 if (nxb.eq.1) ifn = nx-1 977 if (nxb.eq.2) then 1096 if (nxb.eq.1) then 1331 if (nxb.eq.1) ifn = nx-1 1356 if (nxb.eq.2) then [all …]
|
H A D | muh3.f | 88 nxb = iparm(3) 147 if (max0(nxa,nxb,nyc,nyd,nze,nzf).gt.2) return 148 if (min0(nxa,nxb,nyc,nyd,nze,nzf).lt.0) return 149 if (nxa.eq.0.and.nxb.ne.0) return 150 if (nxa.ne.0.and.nxb.eq.0) return 926 if (nxb.eq.1) ifn = nx-1 999 if (nxb.eq.2) then 1111 if (nxb.eq.1) then 1370 if (nxb.eq.1) ifn = nx-1 1394 if (nxb.eq.2) then [all …]
|
/dports/math/primme/primme-3.2/src/eigs/ |
H A D | auxiliary_eigs_normal.c | 168 HREAL *xnorms, int nxb, int nxe, 194 if (xnorms && nxb < nxe) nXb = min(nXb, nxb), nXe = max(nXe, nxe); 248 if (xnorms) for (i=nxb; i<nxe; i++) xnorms[i-nxb] = 0.0; 310 if (xnorms) for (j=nxb; j<nxe; j++) { 311 xnorms[j - nxb] += REAL_PART(Num_dot_Sprimme( 354 CHKERR(Num_malloc_RHprimme(nRe - nRb + nre - nrb + nxe - nxb, &tmp, ctx)); 358 if (xnorms) for (i=nxb; i<nxe; i++) tmp[j++] = xnorms[i-nxb]; 363 if (xnorms) for (i=nxb; i<nxe; i++) xnorms[i-nxb] = sqrt(tmp[j++]); 369 if (xnorms) for (i=nxb; i<nxe; i++) xnorms[i-nxb] = sqrt(xnorms[i-nxb]); 381 (H ? mV * nH * nH : 0) + (xnorms ? (nxe - nxb) * mV : 0) +
|
/dports/math/py-primme/primme-3.2/src/eigs/ |
H A D | auxiliary_eigs_normal.c | 168 HREAL *xnorms, int nxb, int nxe, 194 if (xnorms && nxb < nxe) nXb = min(nXb, nxb), nXe = max(nXe, nxe); 248 if (xnorms) for (i=nxb; i<nxe; i++) xnorms[i-nxb] = 0.0; 310 if (xnorms) for (j=nxb; j<nxe; j++) { 311 xnorms[j - nxb] += REAL_PART(Num_dot_Sprimme( 354 CHKERR(Num_malloc_RHprimme(nRe - nRb + nre - nrb + nxe - nxb, &tmp, ctx)); 358 if (xnorms) for (i=nxb; i<nxe; i++) tmp[j++] = xnorms[i-nxb]; 363 if (xnorms) for (i=nxb; i<nxe; i++) xnorms[i-nxb] = sqrt(tmp[j++]); 369 if (xnorms) for (i=nxb; i<nxe; i++) xnorms[i-nxb] = sqrt(xnorms[i-nxb]); 381 (H ? mV * nH * nH : 0) + (xnorms ? (nxe - nxb) * mV : 0) +
|
/dports/science/pnetcdf/parallel-netcdf-1.8.1/benchmarks/FLASH-IO/ |
H A D | physicaldata.fh | 52 ! the block dimensions (ie nxb,nyb,nzb) are even or odd. This has 56 integer nxb,nyb,nzb,maxdim 58 parameter(nxb=16) !<<< USER EDIT 72 parameter(maxdim=max(nxb,nyb,nzb)) 78 parameter(gc_off_x=mod(nxb,2)) 126 parameter(il_bnd=1, iu_bnd=nxb+2*nguard) 131 parameter (nxhi=nguard+nxb)
|
H A D | plotfile_ncmpi_parallel.F90 | 251 real (kind=single) :: unkt_crn(1,nxb+1,nyb+k2d,nzb+k3d,maxblocks) 252 real (kind=single) :: unkt(1,nxb,nyb,nzb,maxblocks) 397 nzones_block(1) = nxb+1 401 nzones_block(1) = nxb 530 buf_size = (nxb+1) * (nyb+k2d) * (nzb+k3d) * maxblocks 531 buf_size = buf_size + nxb * nyb * nzb * maxblocks 569 do i = nguard+1,nguard+nxb+1 608 counts(1) = nxb+1 623 nguard+1:nguard+nxb, & 632 counts(1) = nxb
|
H A D | block_boundary_data.fh | 73 parameter(len_block_bndy=2*(nxb+2*nguard*k2d)* & 75 parameter(len_block_bndz=2*(nxb+2*nguard)*(nyb+2*nguard)) 80 parameter(len_block_ey=2*(nxb+1+2*nguard)* & 82 parameter(len_block_ez=2*(nxb+1+2*nguard)* &
|
/dports/math/scilab/scilab-6.1.1/scilab/modules/optimization/src/fortran/ |
H A D | n1qn1.f | 102 nxb=nga+n 103 ngb=nxb+n 106 2 zm(nxb),zm(ngb),izs,rzs,dzs)
|
/dports/science/xtb/xtb-6.4.1/src/ |
H A D | scf_module.F90 | 346 nxb = 0 356 if(xbond(mol%at(i),mol%at(j)).and.sqrab(k).lt.400.) nxb=nxb+1 362 allocate(xblist(3,nxb+1)) 363 nxb = 0 371 nxb=nxb+1 374 xblist(1,nxb)=i 375 xblist(2,nxb)=j 379 xblist(3,nxb)=m 384 xblist(1,nxb)=j 385 xblist(2,nxb)=i [all …]
|
/dports/science/xtb/xtb-6.4.1/src/xtb/ |
H A D | halogen.f90 | 37 integer, intent(in) :: nxb local 53 if(nxb.lt.1) return 60 do k=1,nxb 90 do k=1,nxb
|
/dports/math/fftw3/fftw-3.3.9/mpi/ |
H A D | transpose-pairwise.c | 279 INT nxb = p->nx / b; /* number of equal-sized blocks */ in XM() local 280 INT nxr = p->nx - nxb * b; /* leftover rows after equal blocks */ in XM() 290 (nxb, bt * b, b, in XM() 298 *rest_Ioff = nxb * bt * b; in XM() 299 *rest_Ooff = nxb * b; in XM() 315 (nxb, bt * b * vn, bt * b * vn, in XM() 323 *rest_Ioff = *rest_Ooff = nxb * bt * b * vn; in XM()
|
/dports/math/fftw3-float/fftw-3.3.9/mpi/ |
H A D | transpose-pairwise.c | 279 INT nxb = p->nx / b; /* number of equal-sized blocks */ in XM() local 280 INT nxr = p->nx - nxb * b; /* leftover rows after equal blocks */ in XM() 290 (nxb, bt * b, b, in XM() 298 *rest_Ioff = nxb * bt * b; in XM() 299 *rest_Ooff = nxb * b; in XM() 315 (nxb, bt * b * vn, bt * b * vn, in XM() 323 *rest_Ioff = *rest_Ooff = nxb * bt * b * vn; in XM()
|
/dports/math/fftw3-long/fftw-3.3.9/mpi/ |
H A D | transpose-pairwise.c | 279 INT nxb = p->nx / b; /* number of equal-sized blocks */ in XM() local 280 INT nxr = p->nx - nxb * b; /* leftover rows after equal blocks */ in XM() 290 (nxb, bt * b, b, in XM() 298 *rest_Ioff = nxb * bt * b; in XM() 299 *rest_Ooff = nxb * b; in XM() 315 (nxb, bt * b * vn, bt * b * vn, in XM() 323 *rest_Ioff = *rest_Ooff = nxb * bt * b * vn; in XM()
|
/dports/math/fftw3-quad/fftw-3.3.9/mpi/ |
H A D | transpose-pairwise.c | 279 INT nxb = p->nx / b; /* number of equal-sized blocks */ in XM() local 280 INT nxr = p->nx - nxb * b; /* leftover rows after equal blocks */ in XM() 290 (nxb, bt * b, b, in XM() 298 *rest_Ioff = nxb * bt * b; in XM() 299 *rest_Ooff = nxb * b; in XM() 315 (nxb, bt * b * vn, bt * b * vn, in XM() 323 *rest_Ioff = *rest_Ooff = nxb * bt * b * vn; in XM()
|