/dports/science/code_saturne/code_saturne-7.1.0/src/base/ |
H A D | fldini.f90 | 202 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 D | fldprp.f90 | 234 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 D | addfld.f90 | 483 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 D | melder_tensorio.cpp | 92 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 D | melder_tensor.h | 1224 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 D | cfdsol.f90 | 40 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 D | dir_outward.f90 | 46 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 D | dirsol.f90 | 48 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 D | nodenum.f90 | 18 integer :: jj1,jj2,nodes,idim1 local 22 real(DP) :: snlo(idim1)
|
/dports/science/octopus/octopus-10.5/src/grid/ |
H A D | derivatives_inc.F90 | 691 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 D | riscf_square.F | 129 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 D | riscf_square.F | 129 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 D | atprop.f90 | 86 idim1 = 1 91 call field_find_or_create('ustar', itycat, ityloc, idim1, f_id)
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/ |
H A D | cp_ddapc_methods.F | 202 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 D | cp_ddapc_methods.F | 202 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 D | orbitalset_inc.F90 | 194 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 D | cs_coal_prop.f90 | 203 call field_create(f_name, itycat, ityloc, idim1, inoprv, f_id)
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/uccsdt/ |
H A D | moints_shpair.F | 1439 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 D | moints_shpair.F | 1439 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 D | tce_mrcc_ccsdpt_subg.F | 77 integer itype,idim1, idim2(2),idim3,ndim
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/mrcc/ccsd_t/ |
H A D | tce_mrcc_ccsdpt_subg.F | 77 integer itype,idim1, idim2(2),idim3,ndim
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/amfi/ |
H A D | amfi.F | 7295 *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 D | tce_mrcc_energy.F | 164 integer itype,idim1, idim2(4)
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/tce/mrcc/ |
H A D | tce_mrcc_energy.F | 164 integer itype,idim1, idim2(4)
|