Home
last modified time | relevance | path

Searched refs:idir (Results 1 – 25 of 1783) sorted by relevance

12345678910>>...72

/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/
H A Dpretensionsections.f350 idir=idir+1
364 idir=idir+1
693 idir=idir+1
704 idir=idir+1
725 idir=idir+1
736 idir=idir+1
782 idir=idir+1
792 idir=idir+1
811 idir=idir+1
821 idir=idir+1
[all …]
/dports/science/octopus/octopus-10.5/src/sternheimer/
H A Dem_resp_inc.F9032 do idir = 1, sys%gr%sb%dim
169 restart_load, em_rho_tag(closest_omega, idir), ierr_e(idir))
216 do idir = 1, gr%sb%dim
239 call X(inhomog_B)(sh, sys, magn_dir(idir,1), magn_dir(idir,2), &
245 …em_wfs_tag(idir, ifactor), have_restart_rho = (ierr_e(idir) == 0), have_exact_freq = exact_freq(id…
251 do idir2 = 1, idir
307 … em_wfs_tag(idir, ifactor), have_restart_rho=(ierr_e(idir)==0), have_exact_freq = exact_freq(idir))
341 str_tmp = kdotp_wfs_tag(min(idir, idir2), max(idir, idir2))
380 call X(inhomog_B)(sh_mo, sys, magn_dir(idir, 1), magn_dir(idir, 2),&
499 … em_vars%alpha(idir, idir2, ifactor) = em_vars%alpha(idir, idir2, ifactor) * lrc_coef(idir, idir2)
[all …]
H A Dem_resp.F90633 if(idir2 <= idir) call lr_dealloc(k2_lr(idir, idir2, 1))
1138 cross_sum = cross_sum + cross(idir, idir)
1139 crossp_sum = crossp_sum + crossp(idir, idir)
1177 epsilon(idir, idir) = epsilon(idir, idir) + M_ONE
1193 epsilon(idir, idir) = epsilon(idir, idir) + M_ONE
1460 diff(idir) = M_HALF * (em_vars%alpha_be(magn_dir(idir, 1), magn_dir(idir, 2), idir) - &
1461 em_vars%alpha_be(magn_dir(idir, 2), magn_dir(idir, 1), idir))
1510 diff(idir) = M_HALF * (em_vars%alpha_be0(magn_dir(idir, 1), magn_dir(idir, 2), idir) - &
1511 em_vars%alpha_be0(magn_dir(idir, 2), magn_dir(idir, 1), idir))
1572 …eps_mk(idir) = M_TWO * M_PI * (em_vars%alpha_be_k(magn_dir(idir, 1), magn_dir(idir, 2), idir, ik) …
[all …]
/dports/science/afni/afni-AFNI_21.3.16/src/pkundu/
H A D@install_pkundu10 set idir = $1
12 if ("${idir}" =~ /* || "${idir}" =~ '~*') then
13 echo "Have full path ('${idir}'), good"
18 if ( ! -d ${idir}) then
23 cd ${idir}
24 set idir = $PWD
28 if ( ! -d ${idir} ) then
33 echo "Coping meica.py to ${idir}"
34 cp -p meica.py ${idir}
39 echo "Copying meica.libs to ${idir}"
[all …]
/dports/lang/erlang-runtime22/otp-OTP-22.3.4.24/
H A Dotp_patch_apply28 idir="/broken/path/here"
177 idir="$1";;
274 cd "$idir" 2>/dev/null || error "Cannot change directory to $idir"
277 case "$idir" in
279 *) idir=`pwd`;;
379 RELEASE_PATH="$idir" TESTROOT="$idir" release) || exit 1
387 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
392 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
399 echo "* $idir"
426 erts_vsns=`ls -d "$idir"/erts-* | sed "s|$idir/erts-\([0-9\.].*\)|\1|g"`
[all …]
/dports/lang/erlang-runtime23/otp-OTP-23.3.4.10/
H A Dotp_patch_apply28 idir="/broken/path/here"
177 idir="$1";;
274 cd "$idir" 2>/dev/null || error "Cannot change directory to $idir"
277 case "$idir" in
279 *) idir=`pwd`;;
379 RELEASE_PATH="$idir" TESTROOT="$idir" release) || exit 1
387 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
392 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
399 echo "* $idir"
426 erts_vsns=`ls -d "$idir"/erts-* | sed "s|$idir/erts-\([0-9\.].*\)|\1|g"`
[all …]
/dports/lang/erlang-runtime21/otp-OTP-21.3.8.24/
H A Dotp_patch_apply28 idir="/broken/path/here"
177 idir="$1";;
274 cd "$idir" 2>/dev/null || error "Cannot change directory to $idir"
277 case "$idir" in
279 *) idir=`pwd`;;
379 RELEASE_PATH="$idir" TESTROOT="$idir" release) || exit 1
387 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
392 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
399 echo "* $idir"
426 erts_vsns=`ls -d "$idir"/erts-* | sed "s|$idir/erts-\([0-9\.].*\)|\1|g"`
[all …]
/dports/lang/erlang-runtime24/otp-OTP-24.1.7/
H A Dotp_patch_apply28 idir="/broken/path/here"
177 idir="$1";;
274 cd "$idir" 2>/dev/null || error "Cannot change directory to $idir"
277 case "$idir" in
279 *) idir=`pwd`;;
379 RELEASE_PATH="$idir" TESTROOT="$idir" release) || exit 1
387 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
392 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
399 echo "* $idir"
426 erts_vsns=`ls -d "$idir"/erts-* | sed "s|$idir/erts-\([0-9\.].*\)|\1|g"`
[all …]
/dports/lang/erlang-wx/otp-OTP-24.1.7/
H A Dotp_patch_apply28 idir="/broken/path/here"
177 idir="$1";;
274 cd "$idir" 2>/dev/null || error "Cannot change directory to $idir"
277 case "$idir" in
279 *) idir=`pwd`;;
379 RELEASE_PATH="$idir" TESTROOT="$idir" release) || exit 1
387 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
392 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
399 echo "* $idir"
426 erts_vsns=`ls -d "$idir"/erts-* | sed "s|$idir/erts-\([0-9\.].*\)|\1|g"`
[all …]
/dports/lang/erlang-java/otp-OTP-24.1.7/
H A Dotp_patch_apply28 idir="/broken/path/here"
177 idir="$1";;
274 cd "$idir" 2>/dev/null || error "Cannot change directory to $idir"
277 case "$idir" in
279 *) idir=`pwd`;;
379 RELEASE_PATH="$idir" TESTROOT="$idir" release) || exit 1
387 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
392 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
399 echo "* $idir"
426 erts_vsns=`ls -d "$idir"/erts-* | sed "s|$idir/erts-\([0-9\.].*\)|\1|g"`
[all …]
/dports/lang/erlang/otp-OTP-24.1.7/
H A Dotp_patch_apply28 idir="/broken/path/here"
177 idir="$1";;
274 cd "$idir" 2>/dev/null || error "Cannot change directory to $idir"
277 case "$idir" in
279 *) idir=`pwd`;;
379 RELEASE_PATH="$idir" TESTROOT="$idir" release) || exit 1
387 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
392 $MAKE MAKE="$MAKE" RELEASE_ROOT="$idir" RELEASE_PATH="$idir" \
399 echo "* $idir"
426 erts_vsns=`ls -d "$idir"/erts-* | sed "s|$idir/erts-\([0-9\.].*\)|\1|g"`
[all …]
/dports/science/octopus/octopus-10.5/src/grid/
H A Dsymmetrizer.F9062 integer :: nops, ip, iop, idir local
97 do idir = 1, 3
98 destpoint(idir) = destpoint(idir)/lsize(idir)
108 do idir = 1, 3
109 srcpoint(idir) = srcpoint(idir)*lsize(idir)
110 srcpoint_inv(idir) = srcpoint_inv(idir)*lsize(idir)
118 do idir = 1, mesh%sb%periodic_dim
119 if(srcpoint(idir) < M_ZERO .or. srcpoint(idir) + M_HALF*SYMPREC >= lsize(idir)) then
120 srcpoint(idir) = modulo(srcpoint(idir)+M_HALF*SYMPREC, lsize(idir))
122 … if(srcpoint_inv(idir) < M_ZERO .or. srcpoint_inv(idir) + M_HALF*SYMPREC >= lsize(idir)) then
[all …]
H A Dindex.F9072 do idir = 1, idx%dim
73 ix2(idir) = ix(idir)
76 ix2(idir) = 0
103 ix2(idir) = ix(idir, ip)
123 integer :: idir local
129 do idir = 1, idx%dim
130 ix(idir) = idx%lxyz(ip, idir)
231 read(lines(1), '(a20,7i8)') str, (idx%nr(1, idir), idir = 1,idx%dim)
232 read(lines(2), '(a20,7i8)') str, (idx%nr(2, idir), idir = 1,idx%dim)
326 ix(idir) = idx%lxyz(ip, idir)
[all …]
/dports/science/octopus/octopus-10.5/src/system/
H A Dcurrent.F90185 current(ip, idir, 3) = current(ip, idir, 3) + ww*TOFLOAT(c_tmp)
186 current(ip, idir, 4) = current(ip, idir, 4) + ww*aimag(c_tmp)
234 current_kpt(ip, idir, ik) = current_kpt(ip, idir, ik) + current_tmp(idir, ip)
258 current_kpt(ip, idir, ik) = current_kpt(ip, idir, ik) &
267 current_kpt(ip, idir, ik) = current_kpt(ip, idir, ik) &
362 current_kpt(ip, idir, ik) = current_kpt(ip, idir, ik) &
369 current(ip, idir, 1) = current(ip, idir, 1) + &
371 current(ip, idir, 2) = current(ip, idir, 2) + &
498 current_kpt(ip, idir, ik) = current_kpt(ip, idir, ik) + &
507 current(ip, idir, 1) = current(ip, idir, 1) + &
[all …]
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/
H A Defield_tb_methods.F332 … fpolvec(idir) = fieldpol(1)*hmat(1, idir) + fieldpol(2)*hmat(2, idir) + fieldpol(3)*hmat(3, idir)
346 zi(idir) = zi(idir)*zdeta
606 zi(idir) = zi(idir)*zdeta
613 cqi(idir) = qi(idir)/omega
614 IF (cqi(idir) > pi) cqi(idir) = cqi(idir) - twopi
615 IF (cqi(idir) < -pi) cqi(idir) = cqi(idir) + twopi
619 di(idir) = (efield%polarisation(idir) - cqi(idir))/pi
621 cqi(idir) = cqi(idir) + SIGN(1.0_dp, di(idir))*twopi
626 cqi(idir) = cqi(idir)*omega
631 ci(idir) = ci(idir) + hmat(idir, i)*cqi(i)
[all …]
/dports/science/cp2k-data/cp2k-7.1.0/src/
H A Defield_tb_methods.F332 … fpolvec(idir) = fieldpol(1)*hmat(1, idir) + fieldpol(2)*hmat(2, idir) + fieldpol(3)*hmat(3, idir)
346 zi(idir) = zi(idir)*zdeta
605 zi(idir) = zi(idir)*zdeta
612 cqi(idir) = qi(idir)/omega
613 IF (cqi(idir) > pi) cqi(idir) = cqi(idir) - twopi
614 IF (cqi(idir) < -pi) cqi(idir) = cqi(idir) + twopi
618 di(idir) = (efield%polarisation(idir) - cqi(idir))/pi
620 cqi(idir) = cqi(idir) + SIGN(1.0_dp, di(idir))*twopi
625 cqi(idir) = cqi(idir)*omega
630 ci(idir) = ci(idir) + hmat(idir, i)*cqi(i)
[all …]
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/property/
H A Daor_r1_tensor_giao.F502 do idir = 1,3
549 do idir = 1,ndir
551 alfare(idir, iresp) = alfare(idir, iresp) * scaling
552 alfaim(idir, iresp) = alfaim(idir, iresp) * scaling
553 betare(idir, iresp) = betare(idir, iresp) * scaling
554 betaim(idir, iresp) = betaim(idir, iresp) * scaling
573 do idir = 1,ndir
576 betare(idir,iresp) = betare(idir,iresp) *scaling
577 betaim(idir,iresp) = betaim(idir,iresp) *scaling
579 alfare(idir,iresp) = alfare(idir,iresp) * scaling
[all …]
H A Daor_r1_beta.F150 do idir=1,ndir
152 dipquadre(idir,iresp) = 0.0d0
337 do idir = 1, 3
380 do idir = 1,3
477 do idir = 1,ndir
479 alfare(idir, iresp) = alfare(idir, iresp) * scaling
480 alfaim(idir, iresp) = alfaim(idir, iresp) * scaling
481 betare(idir, iresp) = betare(idir, iresp) * scaling
482 betaim(idir, iresp) = betaim(idir, iresp) * scaling
497 do idir = 1,ndir
[all …]
/dports/science/nwchem-data/nwchem-7.0.2-release/src/property/
H A Daor_r1_tensor_giao.F501 do idir = 1,3
548 do idir = 1,ndir
550 alfare(idir, iresp) = alfare(idir, iresp) * scaling
551 alfaim(idir, iresp) = alfaim(idir, iresp) * scaling
552 betare(idir, iresp) = betare(idir, iresp) * scaling
553 betaim(idir, iresp) = betaim(idir, iresp) * scaling
572 do idir = 1,ndir
575 betare(idir,iresp) = betare(idir,iresp) *scaling
576 betaim(idir,iresp) = betaim(idir,iresp) *scaling
578 alfare(idir,iresp) = alfare(idir,iresp) * scaling
[all …]
H A Daor_r1_beta.F150 do idir=1,ndir
152 dipquadre(idir,iresp) = 0.0d0
337 do idir = 1, 3
380 do idir = 1,3
477 do idir = 1,ndir
479 alfare(idir, iresp) = alfare(idir, iresp) * scaling
480 alfaim(idir, iresp) = alfaim(idir, iresp) * scaling
481 betare(idir, iresp) = betare(idir, iresp) * scaling
482 betaim(idir, iresp) = betaim(idir, iresp) * scaling
497 do idir = 1,ndir
[all …]
/dports/graphics/xfractint/xfractint-20.04p16/common/
H A Dant.c188 idir = dir[color]; in TurkMite1()
195 idir &= 3; in TurkMite1()
204 dir[color] = idir; in TurkMite1()
213 idir = dir[color]; in TurkMite1()
217 idir &= 3; in TurkMite1()
226 dir[color] = idir; in TurkMite1()
324 idir = dir[color]; in TurkMite2()
333 idir--; in TurkMite2()
338 idir++; in TurkMite2()
341 idir &= 3; in TurkMite2()
[all …]
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/xc/
H A Dxc.F1585 idir=idir)
1589 idir=idir)
1593 idir=idir)
1597 idir=idir)
2744 idir=idir)
2748 idir=idir)
2752 idir=idir)
2971 idir=idir)
2975 idir=idir)
2979 idir=idir)
[all …]
/dports/science/cp2k-data/cp2k-7.1.0/src/xc/
H A Dxc.F1585 idir=idir)
1589 idir=idir)
1593 idir=idir)
1597 idir=idir)
2744 idir=idir)
2748 idir=idir)
2752 idir=idir)
2971 idir=idir)
2975 idir=idir)
2979 idir=idir)
[all …]
/dports/databases/mysql55-client/mysql-5.5.62/storage/ndb/src/ndbapi/
H A DNdbIndexStat.cpp64 Uint32 idir; in alloc_cache() local
65 for (idir = 0; idir <= 1; idir++) { in alloc_cache()
86 Uint32 idir; in stat_verify() local
87 for (idir = 0; idir <= 1; idir++) { in stat_verify()
115 assert(t == 2 * idir || t == 2 * idir + 1 || t == 4); in stat_verify()
293 Uint32 idir; in stat_update() local
294 for (idir = 0; idir <= 1; idir++) { in stat_update()
298 stat_search(a, key[idir], keylen[idir], &k, &match); in stat_update()
348 Uint32 idir; in stat_select() local
349 for (idir = 0; idir <= 1; idir++) { in stat_select()
[all …]
/dports/biology/molden/molden5.8/
H A Ddraw.f25 idir = jdir
34 idx = idirx(idir)
35 idy = idiry(idir)
62 if (idir/2*2.ne.idir) goto 5
63 if (idir.ne.2) goto 6
75 number = idir*j
84 iddx = i + idirx(idir+1)
97 15 idir = idir + 1
98 if (idir.eq.5) idir = 1
105 idir = idir - 1
[all …]

12345678910>>...72