/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | pretensionsections.f | 350 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 D | em_resp_inc.F90 | 32 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 D | em_resp.F90 | 633 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_pkundu | 10 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 D | otp_patch_apply | 28 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 D | otp_patch_apply | 28 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 D | otp_patch_apply | 28 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 D | otp_patch_apply | 28 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 D | otp_patch_apply | 28 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 D | otp_patch_apply | 28 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 D | otp_patch_apply | 28 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 D | symmetrizer.F90 | 62 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 D | index.F90 | 72 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 D | current.F90 | 185 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 D | efield_tb_methods.F | 332 … 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 D | efield_tb_methods.F | 332 … 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 D | aor_r1_tensor_giao.F | 502 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 D | aor_r1_beta.F | 150 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 D | aor_r1_tensor_giao.F | 501 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 D | aor_r1_beta.F | 150 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 D | ant.c | 188 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 D | xc.F | 1585 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 D | xc.F | 1585 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 D | NdbIndexStat.cpp | 64 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 D | draw.f | 25 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 …]
|