Home
last modified time | relevance | path

Searched refs:jdim (Results 1 – 25 of 236) sorted by relevance

12345678910

/dports/cad/tochnog/Sources/Tochnog-Latest-jan-2014/
H A Dmateri.cc175 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 Dwave.cc29 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 Dgeneral.cc237 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 Dcalcul.cc163 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 Dgroundfl.cc35 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 Dviscosit.cc27 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 Dhyperela.cc50 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 Dga_normf.F25 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 Dga_normf.F25 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 Dslabs.c235 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 Dslabs.c235 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 Dconvert_origin_to_start.c85 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 Dslabs.c314 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 Dtestnc3perf.c337 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 Dtestnc3perf.c338 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 Dcells.f9056 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 DitkKLMRegionGrowImageFilter.hxx391 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 Dtensoriter.h206 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 Dhnd_elfcon_symm.F43 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 Dhnd_mtpcon.F31 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 Dhnd_elfcon_symm.F43 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 Dhnd_mtpcon.F31 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 Ddim_elfcon.F31 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 Ddim_elfcon.F31 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 Dbispectrum.cpp240 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 …]

12345678910