Home
last modified time | relevance | path

Searched refs:idim1 (Results 1 – 24 of 24) sorted by relevance

/dports/science/code_saturne/code_saturne-7.1.0/src/base/
H A Dfldini.f90202 call field_find_or_create('ustar', itycat, ityloc, idim1, f_id)
248 call field_create(f_name, itycat, ityloc, idim1, iprev, f_id)
250 call field_create(f_name, itycat, ityloc, idim1, inoprv, f_id)
269 call field_create(f_name, itycat, ityloc, idim1, iprev, f_id)
271 call field_create(f_name, itycat, ityloc, idim1, inoprv, f_id)
490 call field_create(name, itycat, ityloc, idim1, inoprv, ifctsl)
585 call field_create(f_name, itycat, ityloc, idim1, inoprv, f_id)
589 call field_create(f_name, itycat, ityloc, idim1, inoprv, f_id)
627 itycat, ityloc, idim1, inoprv, ibym(1))
629 itycat, ityloc, idim1, inoprv, ibym(2))
[all …]
H A Dfldprp.f90234 call add_property_field(f_name, f_label, idim1, has_previous, iflid)
237 call add_property_field(f_name, f_label, idim1, has_previous, iflid)
241 call add_property_field(f_name, f_label, idim1, has_previous, iflid)
247 call add_property_field(f_name, f_label, idim1, has_previous, iflid)
261 call add_property_field(f_name, f_label, idim1, has_previous, &
266 call add_property_field(f_name, f_label, idim1, has_previous, &
272 call add_property_field(f_name, f_label, idim1, has_previous, isorb)
277 call add_property_field(f_name, f_label, idim1, has_previous, &
282 call add_property_field(f_name, f_label, idim1, has_previous, &
290 call add_property_field(f_name, f_label, idim1, has_previous, igwfpr)
[all …]
H A Daddfld.f90483 idim1 = 1
487 call field_find_or_create('boundary_roughness', itycat, ityloc, idim1, iflid)
570 call field_find_or_create('k', itycat, ityloc, idim1, iflid)
575 call field_find_or_create('epsilon', itycat, ityloc, idim1, iflid)
755 call field_find_or_create('tplus', itycat, ityloc, idim1, iflid)
756 call field_find_or_create('tstar', itycat, ityloc, idim1, iflid)
775 call field_find_or_create('yplus', itycat, ityloc, idim1, iyplbr)
/dports/audio/praat/praat-6.2.03/melder/
H A Dmelder_tensorio.cpp92 for (integer idim1 = 1; idim1 <= ten3.ndim1; idim1 ++) { \
93 texputintro (file, name, U" [", Melder_integer (idim1), U"]:", 0,0); \
95 …texputintro (file, name, U" [", Melder_integer (idim1), U"] [", Melder_integer (idim2), U"]:", 0,0…
97 …texput##storage (file, ten3 [idim1] [idim2] [idim3], name, U" [", Melder_integer (idim1), U"] [", …
106 for (integer idim1 = 1; idim1 <= ten3.ndim1; idim1 ++) { \
109 binput##storage (ten3 [idim1] [idim2] [idim3], f); \
117 for (integer idim1 = 1; idim1 <= result.ndim1; idim1 ++) { \
121 result [idim1] [idim2] [idim3] = texget##storage (text); \
123 …Melder_throw (U"Could not read ", Melder_peek8to32 (name), U" [", idim1, U"] [", idim2, U"] [", id…
132 for (integer idim1 = 1; idim1 <= result.ndim1; idim1 ++) { \
[all …]
H A Dmelder_tensor.h1224 for (integer idim1 = 1; idim1 <= source.ndim1; idim1 ++) in tensor3copy() local
1227 target [idim1] [idim2] [idim3] = source [idim1] [idim2] [idim3]; in tensor3copy()
1276 for (integer idim1 = 1; idim1 <= ndim1; idim1 ++) in newtensor3part() local
1279 …result [idim1] [idim2] [idim3] = x [firstDim1 - 1 + idim1] [firstDim2 - 1 + idim2] [firstDim3 - 1 … in newtensor3part()
1488 for (integer idim1 = 1; idim1 <= target.ndim1; idim1 ++) variable
1491 target [idim1] [idim2] [idim3] = source [idim1] [idim2] [idim3];
/dports/science/quantum-espresso/q-e-qe-6.7.0/atomic/src/
H A Dcfdsol.f9040 integer :: idim1, jj1, jj2, ip local
41 real(DP):: zz(idim1,2,2),yy(idim1,2)
60 if ( jj1 .le. 5 .or. jj2 .gt. idim1 ) then
61 write(6,10) isgn,jj1,jj2,idim1
65 if ( jj1 .ge. ( idim1 - 4 ) .or. jj2 .lt. 1 ) then
66 write(6,10) isgn,jj1,jj2,idim1
70 write(6,10) isgn,jj1,jj2,idim1
H A Ddir_outward.f9046 rab(idim1), & ! derivative of the radial mesh
47 ruae(idim1), & ! the all electron potential
48 snl(idim1,2) ! the wavefunction
58 zz(idim1,2,2), &
59 yy(idim1,2), &
H A Ddirsol.f9048 snl(idim1,2) ! the wavefunction
61 zz(idim1,2,2), &
63 yy(idim1,2), &
235 call cfdsol(zz,yy,6,nctp,idim1)
258 call cfdsol(zz,yy,ninf-5,nctp,idim1)
283 call nodeno(yy(1,2),1,ninf,nodes,idim1)
H A Dnodenum.f9018 integer :: jj1,jj2,nodes,idim1 local
22 real(DP) :: snlo(idim1)
/dports/science/octopus/octopus-10.5/src/grid/
H A Dderivatives_inc.F90691 integer :: ist, ip, idim1, idim2 local
702 do idim1 = 1, der%dim
703 ASSERT(uvw(idim1)%status() == xyz_(idim1)%status())
717 do idim1 = 1, der%dim
718 tmp(idim1) = tmp(idim1) + &
722 do idim1 = 1, der%dim
723 xyz_(idim1)%X(ff_linear)(ip, ist) = tmp(idim1)
734 do idim1 = 1, der%dim
735 tmp(idim1) = tmp(idim1) + &
739 do idim1 = 1, der%dim
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/
H A Driscf_square.F129 subroutine riscf_transpose (a, b, idim1, idim2, ld1, ld2) argument
131 integer idim1, idim2, ld1, ld2, i, j local
133 dimension a(ld1,idim2), b(ld2,idim1)
135 do i=1, idim1
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/
H A Driscf_square.F129 subroutine riscf_transpose (a, b, idim1, idim2, ld1, ld2)
131 integer idim1, idim2, ld1, ld2, i, j
133 dimension a(ld1,idim2), b(ld2,idim1)
135 do i=1, idim1
/dports/science/code_saturne/code_saturne-7.1.0/src/atmo/
H A Datprop.f9086 idim1 = 1
91 call field_find_or_create('ustar', itycat, ityloc, idim1, f_id)
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Dcp_ddapc_methods.F202 INTEGER :: e_dim, handle, idim1, idim2, ig, & local
240 idim1 = (iparticle1 - 1)*SIZE(radii) + igauss1
249 Am(idim2, idim1) = tmp
250 Am(idim1, idim2) = tmp
647 INTEGER :: ewmdim, handle, idim, idim1, idim2, idimo, igauss1, igauss2, ip1, ip2, & local
794 idim1 = ip1 + igauss1
797 M(idim1, idim2) = EwM(idim) - factor*ew_neut - factor*fac3*(rc12 + rc22)
798 M(idim2, idim1) = M(idim1, idim2)
940 idim1 = ip1 + igauss1
941 M(idim1, idim2) = cost(iparticle1, iparticle2)
[all …]
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Dcp_ddapc_methods.F202 INTEGER :: e_dim, handle, idim1, idim2, ig, & local
240 idim1 = (iparticle1 - 1)*SIZE(radii) + igauss1
249 Am(idim2, idim1) = tmp
250 Am(idim1, idim2) = tmp
647 INTEGER :: ewmdim, handle, idim, idim1, idim2, idimo, igauss1, igauss2, ip1, ip2, & local
794 idim1 = ip1 + igauss1
797 M(idim1, idim2) = EwM(idim) - factor*ew_neut - factor*fac3*(rc12 + rc22)
798 M(idim2, idim1) = M(idim1, idim2)
940 idim1 = ip1 + igauss1
941 M(idim1, idim2) = cost(iparticle1, iparticle2)
[all …]
/dports/science/octopus/octopus-10.5/src/basis_set/
H A Dorbitalset_inc.F90194 integer :: idim1, idim2, idim3, idim4
331 idim1 = min(psib%linear_to_idim(ist), os%ndim)
338 … psib%zff_pack(ist, ip) + weight(iorb, ist)*os%eorb_mesh(ip, iorb, idim1, psib%ik)
383 idim1 = min(psib%linear_to_idim(ist), os%ndim)
390 psib%X(ff_pack)(ist,ip) + weight(iorb,ist)*os%X(orb)(ip,idim1,iorb)
/dports/science/code_saturne/code_saturne-7.1.0/src/comb/
H A Dcs_coal_prop.f90203 call field_create(f_name, itycat, ityloc, idim1, inoprv, f_id)
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/uccsdt/
H A Dmoints_shpair.F1439 integer idim1, idim2, udim, vdim
1451 idim1= ihi1 - ilo1 + 1
1452 call dfill(nbf*idim1*udim*vdim, 0.0d0, g1, 1)
1568 integer u, v, idim1, idim2, wdim, ldim
1572 idim1 = ihi1 - ilo1 + 1
1597 call dgemm('t','n',wdim,idim1,ldim, ! (lw|vu)*Cli->(wi|vu)
1600 call dgemm('n','n',ldim,idim1,wdim, ! (lw|vu)*Cwi->(li|vu)
/dports/science/nwchem-data/nwchem-7.0.2-release/src/uccsdt/
H A Dmoints_shpair.F1439 integer idim1, idim2, udim, vdim
1451 idim1= ihi1 - ilo1 + 1
1452 call dfill(nbf*idim1*udim*vdim, 0.0d0, g1, 1)
1568 integer u, v, idim1, idim2, wdim, ldim
1572 idim1 = ihi1 - ilo1 + 1
1597 call dgemm('t','n',wdim,idim1,ldim, ! (lw|vu)*Cli->(wi|vu)
1600 call dgemm('n','n',ldim,idim1,wdim, ! (lw|vu)*Cwi->(li|vu)
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/mrcc/ccsd_t/
H A Dtce_mrcc_ccsdpt_subg.F77 integer itype,idim1, idim2(2),idim3,ndim
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/mrcc/ccsd_t/
H A Dtce_mrcc_ccsdpt_subg.F77 integer itype,idim1, idim2(2),idim3,ndim
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/amfi/
H A Damfi.F7295 *idim1, ! first dimension
7304 dimension coeffs(idim1,idim2),
7380 subroutine transcon(contold,idim1,idim2,ovlp,contnew,nprim,ncont) argument
7382 dimension contold(idim1,idim2),contnew(nprim,ncont),
7383 *ovlp(idim1,idim1)
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/tce/mrcc/
H A Dtce_mrcc_energy.F164 integer itype,idim1, idim2(4)
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/mrcc/
H A Dtce_mrcc_energy.F164 integer itype,idim1, idim2(4)