/dports/cad/tochnog/Sources/Tochnog-Latest-jan-2014/ |
H A D | materi.cc | 175 for ( jdim=0; jdim<MDIM; jdim++ ) { in materi() 378 for ( jdim=idim; jdim<MDIM; jdim++ ) { in materi() 423 for ( jdim=0; jdim<ndim; jdim++ ) { in materi() 723 for ( jdim=0; jdim<ndim; jdim++ ) { in set_deften_etc() 734 for ( jdim=0; jdim<ndim; jdim++ ) { in set_deften_etc() 777 for ( jdim=0; jdim<MDIM; jdim++ ) inc_ept[idim*MDIM+jdim] = in set_deften_etc() 786 for ( jdim=0; jdim<MDIM; jdim++ ) inc_ept[idim*MDIM+jdim] = in set_deften_etc() 795 for ( jdim=0; jdim<MDIM; jdim++ ) new_ept[idim*MDIM+jdim] = in set_deften_etc() 814 for ( jdim=0; jdim<MDIM; jdim++ ) { in set_deften_etc() 847 for ( jdim=0; jdim<MDIM; jdim++ ) { in set_deften_u_rot() [all …]
|
H A D | wave.cc | 29 long int swit=0, jdim=0, inol=0, jnol=0, ipuknwn=0, indx=0, in wave() local 43 for ( jdim=0; jdim<ndim; jdim++ ) { in wave() 45 tmp = d[jdim*nnol+inol] * c * c * in wave() 46 grad_new_unknowns[jdim*nuknwn+scal_indx]; in wave() 49 grad_new_unknowns[jdim*nuknwn+scal_indx+jdim+1]; in wave() 54 volume * d[jdim*nnol+inol] * c * c * d[jdim*nnol+jnol] * dtime; in wave() 56 volume * d[jdim*nnol+inol] * c * c * d[jdim*nnol+jnol] * dtime; in wave()
|
H A D | general.cc | 237 for ( jdim=0; jdim<ndim; jdim++ ) { in general() 250 diff_part = pe[jdim]; in general() 251 diffusion = pe[jdim]; in general() 296 vel += condif_flow[jdim]; in general() 303 vel -= node_remesh_velocity[jdim]; in general() 306 tmp = h[inol] * grad_massflow[jdim*ndim+jdim]; in general() 335 (diff_part*new_d[jdim*nnol+inol])); in general() 346 tmp = new_d[jdim*nnol+inol] * D * in general() 350 D * new_d[jdim*nnol+inol]; in general() 352 diffusion * new_grad_new_unknowns[jdim*nuknwn+iuknwn+jdim+1]; in general() [all …]
|
H A D | calcul.cc | 163 for ( jdim=0; jdim<MDIM; jdim++ ) { in calculate() 251 for ( jdim=0; jdim<MDIM; jdim++ ) { in calculate() 254 if ( jdim==0 ) in calculate() 256 else if ( jdim==1 ) in calculate() 259 assert( jdim==2 ); in calculate() 318 for ( jdim=idim; jdim<MDIM; jdim++ ) { in calculate() 420 for ( jdim=0; jdim<MDIM; jdim++ ) { in parallel_calcul_node() 548 for ( jdim=0; jdim<MDIM; jdim++ ) { in calculate_operat() 549 indx = idim*MDIM + jdim; in calculate_operat() 561 for ( jdim=0; jdim<MDIM; jdim++ ) { in calculate_operat() [all …]
|
H A D | groundfl.cc | 35 long int swit=0, inol=0, jnol=0, jdim=0, ipuknwn=0, iuknwn=0, jpuknwn=0, in groundflow() local 64 for ( jdim=0; jdim<ndim; jdim++ ) { in groundflow() 65 iuknwn = vel_indx + jdim * nder; in groundflow() 66 divergence += grad_new_unknowns[jdim*nuknwn+iuknwn]; in groundflow() 73 for ( jdim=0; jdim<ndim; jdim++ ) { in groundflow() 74 iuknwn = (gvel_indx + jdim*nder); in groundflow() 78 tmp = h[inol] * (-pe[jdim]*grad_new_unknowns[jdim*nuknwn+pres_indx] - in groundflow() 92 for ( jdim=0; jdim<ndim; jdim++ ) { in groundflow() 93 jpuknwn = vel_indx/nder + jdim; in groundflow() 96 volume * h[inol] * d[jdim*nnol+jnol]; in groundflow()
|
H A D | viscosit.cc | 27 long int idim=0, jdim=0, ldum=0, group_materi_viscosity_user=-NO, in viscous_stress() local 41 for ( jdim=0; jdim<ndim; jdim++ ) { in viscous_stress() 42 D[idim*MDIM+jdim] = 0.5 * in viscous_stress() 43 ( grad_unknowns[idim*nuknwn+vel_indx+jdim*nder] + in viscous_stress() 44 grad_unknowns[jdim*nuknwn+vel_indx+idim*nder] ); in viscous_stress()
|
H A D | hyperela.cc | 50 long int idim=0, jdim=0, kdim=0, ldim=0, indx=0; in hyper_Cmat() local 68 for ( jdim=0; jdim<MDIM; jdim++ ) { in hyper_Cmat() 69 tmp = ( stress_right[idim*MDIM+jdim] - in hyper_Cmat() 70 stress_left[idim*MDIM+jdim] ) / ( 2.*variation ); in hyper_Cmat() 71 if ( idim==kdim && jdim==ldim ) { in hyper_Cmat() 74 Chyper[idim][jdim][kdim][ldim] = tmp; in hyper_Cmat() 86 long int idim=0, jdim=0, indx=0; in hyper_stress() local 122 for ( jdim=idim; jdim<MDIM; jdim++ ) { in hyper_stress() 123 indx = idim*MDIM + jdim; in hyper_stress() 128 stress[idim*MDIM+jdim] = stress[jdim*MDIM+idim] = in hyper_stress()
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/util/ |
H A D | ga_normf.F | 25 jdim = jhi - jlo + 1 84 nelm = nelm * jdim(i) 99 do i7 = 1, jdim(7) 101 do i6 = 1, jdim(6) 103 do i5 = 1, jdim(5) 187 nelm = nelm * jdim(i) 201 do i7 = 1, jdim(7) 203 do i6 = 1, jdim(6) 287 nelm = nelm * jdim(i) 298 do i7 = 1, jdim(7) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/util/ |
H A D | ga_normf.F | 25 jdim = jhi - jlo + 1 84 nelm = nelm * jdim(i) 99 do i7 = 1, jdim(7) 101 do i6 = 1, jdim(6) 103 do i5 = 1, jdim(5) 187 nelm = nelm * jdim(i) 201 do i7 = 1, jdim(7) 203 do i6 = 1, jdim(6) 287 nelm = nelm * jdim(i) 298 do i7 = 1, jdim(7) [all …]
|
/dports/math/libmesh/libmesh-1.6.2/contrib/netcdf/netcdf-c-4.6.2/nctest/ |
H A D | slabs.c | 235 for (jdim=0; jdim < NDIMS; jdim++) { 236 corner[jdim] = dims[jdim].size/2; 238 point[jdim] = corner[jdim]; 258 for (jdim=idim+1; jdim < NDIMS; jdim++) { 267 edge[jdim] = dims[jdim].size - 2; 273 for (jj=(int)corner[jdim]; jj <= edge[jdim]; jj++) { 282 jdim, 294 for (jdim=idim+1; jdim < NDIMS; jdim++) { 305 edge[jdim] = dims[jdim].size - 2; 312 for (jj=(int)corner[jdim]; jj <= edge[jdim]; jj++) { [all …]
|
/dports/science/netcdf/netcdf-c-4.7.4/nctest/ |
H A D | slabs.c | 235 for (jdim=0; jdim < NDIMS; jdim++) { 236 corner[jdim] = dims[jdim].size/2; 238 point[jdim] = corner[jdim]; 258 for (jdim=idim+1; jdim < NDIMS; jdim++) { 267 edge[jdim] = dims[jdim].size - 2; 273 for (jj=(int)corner[jdim]; jj <= edge[jdim]; jj++) { 282 jdim, 294 for (jdim=idim+1; jdim < NDIMS; jdim++) { 305 edge[jdim] = dims[jdim].size - 2; 312 for (jj=(int)corner[jdim]; jj <= edge[jdim]; jj++) { [all …]
|
/dports/science/minc2/minc-release-2.2.00/progs/Proglib/ |
H A D | convert_origin_to_start.c | 85 int idim, jdim; in convert_origin_to_start() local 104 for (jdim=0; jdim < WORLD_NDIMS; jdim++) { in convert_origin_to_start() 105 lengths[idim] += axes[idim][jdim] * axes[idim][jdim]; in convert_origin_to_start() 106 normal_length += normal[jdim] * normal[jdim]; in convert_origin_to_start() 129 for (jdim=0; jdim < WORLD_NDIMS; jdim++) { in convert_origin_to_start() 130 numerator += origin[jdim] * normal[jdim]; in convert_origin_to_start() 131 denominator += axes[idim][jdim] * normal[jdim]; in convert_origin_to_start()
|
/dports/science/hdf/hdf-4.2.15/mfhdf/nctest/ |
H A D | slabs.c | 314 for (jdim=0; jdim < NDIMS; jdim++) { 315 corner[jdim] = dims[jdim].size/2; 317 point[jdim] = corner[jdim]; 346 for (jdim=idim+1; jdim < NDIMS; jdim++) { 355 edge[jdim] = dims[jdim].size - 2; 361 for (jj=corner[jdim]; jj <= edge[jdim]; jj++) { 371 jdim, 384 jdim, 397 for (jdim=idim+1; jdim < NDIMS; jdim++) { 408 edge[jdim] = dims[jdim].size - 2; [all …]
|
/dports/math/libmesh/libmesh-1.6.2/contrib/netcdf/netcdf-c-4.6.2/nc_test/ |
H A D | testnc3perf.c | 337 for (jdim=0; jdim < NDIMS; jdim++) { 338 corner[jdim] = 0; 339 edge[jdim] = 1; 340 point[jdim] = corner[jdim]; 363 for (jdim=idim+1; jdim < NDIMS; jdim++) { 370 corner[jdim] = 0; 372 edge[jdim] = dims[jdim].size; 383 for (jj=corner[jdim]; jj < edge[jdim]; jj++) { 399 for (jdim=idim+1; jdim < NDIMS; jdim++) { 410 edge[jdim] = dims[jdim].size; [all …]
|
/dports/science/netcdf/netcdf-c-4.7.4/nc_test/ |
H A D | testnc3perf.c | 338 for (jdim=0; jdim < NDIMS; jdim++) { 339 corner[jdim] = 0; 340 edge[jdim] = 1; 341 point[jdim] = corner[jdim]; 364 for (jdim=idim+1; jdim < NDIMS; jdim++) { 371 corner[jdim] = 0; 373 edge[jdim] = dims[jdim].size; 384 for (jj=corner[jdim]; jj < edge[jdim]; jj++) { 400 for (jdim=idim+1; jdim < NDIMS; jdim++) { 411 edge[jdim] = dims[jdim].size; [all …]
|
/dports/science/berkeleygw/BGW-2.0.0/Common/ |
H A D | cells.f90 | 56 integer :: jdim local 81 do jdim=1,3 82 if ((this%dmax(jdim)-this%dmin(jdim)) > TOL_Small) then 86 this%dmin(jdim) = 0d0 105 do jdim=1,3 106 if (this%active_dim(jdim)) dim_vol = dim_vol * (this%dmax(jdim)-this%dmin(jdim)) 109 do jdim=1,3 111 this%n_cells(jdim) = idnint(prop_const * (this%dmax(jdim)-this%dmin(jdim))) 112 this%n_cells(jdim) = min(max(this%n_cells(jdim), 1), this%npts) 135 do jdim=1,3 [all …]
|
/dports/science/InsightToolkit/ITK-5.0.1/Modules/Segmentation/KLMRegionGrowing/include/ |
H A D | itkKLMRegionGrowImageFilter.hxx | 391 for ( unsigned int jdim = 0; jdim < InputImageDimension; jdim++ ) in InitializeKLM() local 393 tmpVal *= ( jdim == idim ? in InitializeKLM() 437 for ( unsigned int jdim = 0; jdim < InputImageDimension; jdim++ ) in InitializeKLM() local 440 borderLengthTmp *= ( jdim == idim ? 1 : gridSize[jdim] * spacing[jdim] ); in InitializeKLM() 471 for ( unsigned int jdim = 0; jdim < InputImageDimension; jdim++ ) in InitializeKLM() local 499 for ( unsigned int jdim = 0; jdim < InputImageDimension; jdim++ ) in InitializeKLM() local 501 indexRegion1[jdim]++; in InitializeKLM() 504 indexRegion1[jdim] = 0; in InitializeKLM() 524 for ( unsigned int jdim = 0; jdim < InputImageDimension; jdim++ ) in InitializeKLM() local 526 tmpDblVal *= ( jdim == idim ? in InitializeKLM() [all …]
|
/dports/science/madness/madness-ebb3fd7/src/madness/tensor/ |
H A D | tensoriter.h | 206 jdim = ndim; in TensorIterator() 214 if (jdim < 0) jdim += ndim; in TensorIterator() 220 if (i != jdim) { in TensorIterator() 237 if (jdim == default_jdim) { in TensorIterator() 238 jdim = ndim-1; in TensorIterator() 243 TENSOR_ASSERT(jdim>=0 && jdim < ndim, "invalid index for external iteration", in TensorIterator() 244 jdim, t0); in TensorIterator() 248 _s0 = stride0[jdim]; in TensorIterator() 250 _s1 = stride1[jdim]; in TensorIterator() 256 _s2 = stride2[jdim]; in TensorIterator() [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/property/ |
H A D | hnd_elfcon_symm.F | 43 integer ilo, ihi, jlo, jhi, idim, jdim, nint local 114 jdim = jhi - jlo + 1 115 nint = idim * jdim 156 jdim = jhi - jlo + 1 157 nint = idim * jdim 171 & idim,jdim, 212 integer idim,jdim,nblock local 213 double precision mblock(idim,jdim,nblock), block(idim,jdim) 221 do j = 1, jdim 251 integer idim,jdim,nblock local [all …]
|
H A D | hnd_mtpcon.F | 31 integer ilo, ihi, jlo, jhi, idim, jdim, nint local 82 jdim = jhi - jlo + 1 83 nint = idim * jdim 96 & mtpval,idim,jdim,ncomp) 117 subroutine multi_reduce2(mblock,block,rblock,idim,jdim,nblock) argument 120 integer idim,jdim, nblock local 121 double precision mblock(nblock,jdim,idim), block(idim,jdim) 128 do j = 1, jdim
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/property/ |
H A D | hnd_elfcon_symm.F | 43 integer ilo, ihi, jlo, jhi, idim, jdim, nint 114 jdim = jhi - jlo + 1 115 nint = idim * jdim 156 jdim = jhi - jlo + 1 157 nint = idim * jdim 171 & idim,jdim, 212 integer idim,jdim,nblock local 213 double precision mblock(idim,jdim,nblock), block(idim,jdim) 221 do j = 1, jdim 251 integer idim,jdim,nblock [all …]
|
H A D | hnd_mtpcon.F | 31 integer ilo, ihi, jlo, jhi, idim, jdim, nint 82 jdim = jhi - jlo + 1 83 nint = idim * jdim 96 & mtpval,idim,jdim,ncomp) 117 subroutine multi_reduce2(mblock,block,rblock,idim,jdim,nblock) 120 integer idim,jdim, nblock 121 double precision mblock(nblock,jdim,idim), block(idim,jdim) 128 do j = 1, jdim
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/dimqm/ |
H A D | dim_elfcon.F | 31 integer ilo, ihi, jlo, jhi, idim, jdim, nint 82 jdim = jhi - jlo + 1 83 nint = idim * jdim 95 & elfval,idim,jdim,npt*(max(nder*3,1))) 116 subroutine dim_multi_reduce(mblock,block,rblock,idim,jdim,nblock) 120 integer idim,jdim,nblock 121 double precision mblock(idim,jdim,nblock), block(idim,jdim) 130 do j = 1, jdim
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/dimqm/ |
H A D | dim_elfcon.F | 31 integer ilo, ihi, jlo, jhi, idim, jdim, nint 82 jdim = jhi - jlo + 1 83 nint = idim * jdim 95 & elfval,idim,jdim,npt*(max(nder*3,1))) 116 subroutine dim_multi_reduce(mblock,block,rblock,idim,jdim,nblock) 120 integer idim,jdim,nblock 121 double precision mblock(idim,jdim,nblock), block(idim,jdim) 130 do j = 1, jdim
|
/dports/science/py-kliff/kliff-0.3.0/kliff/descriptors/bispectrum/ |
H A D | bispectrum.cpp | 240 bytes = jdim * jdim * jdim * jdim * jdim * sizeof(double); in memory_usage() 246 bytes += jdim * jdim * jdim * jdim * jdim * sizeof(std::complex<double>); in memory_usage() 1392 cgarray.resize(jdim, jdim, jdim, jdim, jdim); in create_twojmax_arrays() 1394 barray.resize(jdim, jdim, jdim); in create_twojmax_arrays() 1395 dbarray.resize(jdim, jdim, jdim, 3); in create_twojmax_arrays() 1396 duarray_r.resize(jdim, jdim, jdim, 3); in create_twojmax_arrays() 1397 duarray_i.resize(jdim, jdim, jdim, 3); in create_twojmax_arrays() 1398 uarray_r.resize(jdim, jdim, jdim); in create_twojmax_arrays() 1399 uarray_i.resize(jdim, jdim, jdim); in create_twojmax_arrays() 1408 zarray_r.resize(jdim, jdim, jdim, jdim, jdim); in create_twojmax_arrays() [all …]
|