/dports/science/quantum-espresso/q-e-qe-6.7.0/PWCOND/src/ |
H A D | four.f90 | 70 zsl(kz) = zsl(kz-1)+dz1*alat 166 w0(kz,ig,1)=fx1(kz) 169 w0(kz,ig,1)=fx2(kz) 174 w0(kz,ig,1)=fx3(kz) 177 wadd(kz,ig)=fx4(kz) 195 w0(kz,ig,1)=s1*w0(kz,ig,1) 198 w0(kz,ig,1)=s1*zsl(kz)*w0(kz,ig,1) 201 w0(kz,ig,5)=s1*w0(kz,ig,5) 202 w0(kz,ig,2)=-2.d0*cim*s1*zsl(kz)*w0(kz,ig,2) 203 w0(kz,ig,1)=3.d0*zsl(kz)**2*s2*w0(kz,ig,1)-s2*wadd(kz,ig) [all …]
|
/dports/science/afni/afni-AFNI_21.3.16/src/ |
H A D | Intracranial.c | 184 for (kz = 0; kz < nz; kz++) in center_of_mass() 267 for (kz = 0; kz < nz; kz++) in segment_x_slices() 280 for (kz = 0; kz < nz; kz++) in segment_x_slices() 333 for (kz = 0; kz < nz; kz++) in segment_x_slices() 347 for (kz = 1; kz < nz-1; kz++) in segment_x_slices() 450 for (kz = 0; kz < nz; kz++) in segment_y_slices() 463 for (kz = 0; kz < nz; kz++) in segment_y_slices() 516 for (kz = 0; kz < nz; kz++) in segment_y_slices() 530 for (kz = 1; kz < nz-1; kz++) in segment_y_slices() 845 && (kz >= 0) && (kz < nz)) in segment_envelope() [all …]
|
H A D | thd_orient.c | 135 kz = (ii /nxy) ; zz = kz*dz ; zcm += zz*bar[ii] ; in THD_orient_guess() 165 for( kz=kcm-nk ; kz <= kcm+nk ; kz++ ){ in THD_orient_guess() 167 axx += abs(BAR(ip,jy,kz) - BAR(im,jy,kz)) ; in THD_orient_guess() 175 for( kz=kcm-nk ; kz <= kcm+nk ; kz++ ){ in THD_orient_guess() 177 ayy += abs(BAR(ix,jp,kz) - BAR(ix,jm,kz)) ; in THD_orient_guess() 183 for( kz=1 ; kz <= nk ; kz++ ){ in THD_orient_guess() 184 km = kcm-kz ; kp = kcm+kz ; in THD_orient_guess() 217 for( kz=kcm-nk ; kz <= kcm+nk ; kz++ ){ in THD_orient_guess() 219 axx_jp += abs(BAR(ip,jcm+jy,kz) - BAR(im,jcm+jy,kz)) ; in THD_orient_guess() 220 axx_jm += abs(BAR(ip,jcm-jy,kz) - BAR(im,jcm-jy,kz)) ; in THD_orient_guess() [all …]
|
H A D | imstack.c | 14 int gnim , nx , ny , nz , kz ; in main() local 117 for( kz=1 ; kz < nz ; kz++ ){ in main() 118 if( IMARR_SUBIMAGE(arr,kz)->nx != nx || in main() 119 IMARR_SUBIMAGE(arr,kz)->ny != ny ){ in main() 134 for( kz=0 ; kz < nz ; kz++ ){ in main() 136 im = IMARR_SUBIMAGE(arr,kz) ; in main()
|
H A D | thd_automask.c | 1063 kz = kk*nxy ; km = kz-nxy ; kp = kz+nxy ; in THD_mask_erode() 1144 kz = kk*nxy ; km = kz-nxy ; kp = kz+nxy ; in THD_mask_erode() 1264 kz = kk*nxy ; km = kz-nxy ; kp = kz+nxy ; in THD_mask_erode_sym() 1286 num = mmm[im+jy+kz] + mmm[ix+jm+kz] + mmm[ix+jy+km] in THD_mask_erode_sym() 1348 kz = kk*nxy ; km = kz-nxy ; kp = kz+nxy ; in THD_mask_erodemany() 1365 + mmm[im+jm+kz] + mmm[im+jy+kz] + mmm[im+jp+kz] in THD_mask_erodemany() 1367 + mmm[ip+jm+kz] + mmm[ip+jy+kz] + mmm[ip+jp+kz] in THD_mask_erodemany() 1386 kz = kk*nxy ; km = kz-nxy ; kp = kz+nxy ; in THD_mask_erodemany() 1404 + mmm[im+jm+kz] + mmm[im+jy+kz] + mmm[im+jp+kz] in THD_mask_erodemany() 1406 + mmm[ip+jm+kz] + mmm[ip+jy+kz] + mmm[ip+jp+kz] in THD_mask_erodemany() [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/fast/ |
H A D | newfmm.F | 170 if (kz.lt.0 .or. kz.ge.twod) call errquit('newfmm:z!',0, 210 if (list_info(2,kx,ky,kz) .lt. list_info(1,kx,ky,kz))then 295 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:p2b: z!',0, 321 if (list_info(2,kx,ky,kz) .lt. list_info(1,kx,ky,kz))then 366 if (kz.lt.0 .or. kz.ge.twod) call errquit('newfmm:z?',0, FMM_ERR) 419 if (kz.lt.0 .or. kz.ge.twod) call errquit('newfmm:z?',0, FMM_ERR) 480 if (kz.lt.0 .or. kz.ge.twod) call errquit('newfmm:z?',0, FMM_ERR) 552 if (list_info(1,kx,ky,kz).le.list_info(2,kx,ky,kz)) then 575 do i = list_info(1,kx,ky,kz),list_info(2,kx,ky,kz) 593 do i = list_info(1,kx,ky,kz),list_info(2,kx,ky,kz) [all …]
|
H A D | fmm.F | 18 integer kx, ky, kz 38 if (kz.lt.0 .or. kz.ge.2**depth) call errquit('fmm:z?',0, FMM_ERR) 164 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:z!',0, FMM_ERR) 199 if (list_info(2,kx,ky,kz) .lt. list_info(1,kx,ky,kz))then 283 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:p2b: z!',0, 354 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:z?',0, FMM_ERR) 407 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:z?',0, FMM_ERR) 468 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:z?',0, FMM_ERR) 547 do i = list_info(1,kx,ky,kz),list_info(2,kx,ky,kz) 565 do i = list_info(1,kx,ky,kz),list_info(2,kx,ky,kz) [all …]
|
H A D | testfmm.F | 192 if (kz.lt.0 .or. kz.ge.2**depth) call errquit('z?',0, FMM_ERR) 319 if (kz.lt.0 .or. kz.ge.twod) call errquit('z!',0, FMM_ERR) 354 if (list_info(2,kx,ky,kz) .lt. list_info(1,kx,ky,kz))then 438 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:p2b: z!',0, 464 if (list_info(2,kx,ky,kz) .lt. list_info(1,kx,ky,kz))then 509 if (kz.lt.0 .or. kz.ge.twod) call errquit('z?',0, FMM_ERR) 562 if (kz.lt.0 .or. kz.ge.twod) call errquit('z?',0, 625 if (kz.lt.0 .or. kz.ge.twod) call errquit('z?',0, FMM_ERR) 704 do i = list_info(1,kx,ky,kz),list_info(2,kx,ky,kz) 722 do i = list_info(1,kx,ky,kz),list_info(2,kx,ky,kz) [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/fast/ |
H A D | newfmm.F | 170 if (kz.lt.0 .or. kz.ge.twod) call errquit('newfmm:z!',0, 210 if (list_info(2,kx,ky,kz) .lt. list_info(1,kx,ky,kz))then 295 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:p2b: z!',0, 321 if (list_info(2,kx,ky,kz) .lt. list_info(1,kx,ky,kz))then 366 if (kz.lt.0 .or. kz.ge.twod) call errquit('newfmm:z?',0, FMM_ERR) 419 if (kz.lt.0 .or. kz.ge.twod) call errquit('newfmm:z?',0, FMM_ERR) 480 if (kz.lt.0 .or. kz.ge.twod) call errquit('newfmm:z?',0, FMM_ERR) 552 if (list_info(1,kx,ky,kz).le.list_info(2,kx,ky,kz)) then 575 do i = list_info(1,kx,ky,kz),list_info(2,kx,ky,kz) 593 do i = list_info(1,kx,ky,kz),list_info(2,kx,ky,kz) [all …]
|
H A D | fmm.F | 18 integer kx, ky, kz 38 if (kz.lt.0 .or. kz.ge.2**depth) call errquit('fmm:z?',0, FMM_ERR) 164 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:z!',0, FMM_ERR) 199 if (list_info(2,kx,ky,kz) .lt. list_info(1,kx,ky,kz))then 283 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:p2b: z!',0, 354 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:z?',0, FMM_ERR) 407 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:z?',0, FMM_ERR) 468 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:z?',0, FMM_ERR) 547 do i = list_info(1,kx,ky,kz),list_info(2,kx,ky,kz) 565 do i = list_info(1,kx,ky,kz),list_info(2,kx,ky,kz) [all …]
|
H A D | testfmm.F | 192 if (kz.lt.0 .or. kz.ge.2**depth) call errquit('z?',0, FMM_ERR) 319 if (kz.lt.0 .or. kz.ge.twod) call errquit('z!',0, FMM_ERR) 354 if (list_info(2,kx,ky,kz) .lt. list_info(1,kx,ky,kz))then 438 if (kz.lt.0 .or. kz.ge.twod) call errquit('fmm:p2b: z!',0, 464 if (list_info(2,kx,ky,kz) .lt. list_info(1,kx,ky,kz))then 509 if (kz.lt.0 .or. kz.ge.twod) call errquit('z?',0, FMM_ERR) 562 if (kz.lt.0 .or. kz.ge.twod) call errquit('z?',0, 625 if (kz.lt.0 .or. kz.ge.twod) call errquit('z?',0, FMM_ERR) 704 do i = list_info(1,kx,ky,kz),list_info(2,kx,ky,kz) 722 do i = list_info(1,kx,ky,kz),list_info(2,kx,ky,kz) [all …]
|
/dports/graphics/blender/blender-2.91.0/source/blender/blenkernel/intern/ |
H A D | ocean_spectrum.c | 69 const float kz, in ocean_spectrum_wind_and_damp() argument 72 const float k2 = kx * kx + kz * kz; in ocean_spectrum_wind_and_damp() 74 const float k_dot_w = (kx * k_mag_inv * oc->_wx) + (kz * k_mag_inv * oc->_wz); in ocean_spectrum_wind_and_damp() 138 const float k2 = kx * kx + kz * kz; in BLI_ocean_spectrum_piersonmoskowitz() 157 val = ocean_spectrum_wind_and_damp(oc, kx, kz, val); in BLI_ocean_spectrum_piersonmoskowitz() 168 const float k2 = kx * kx + kz * kz; in BLI_ocean_spectrum_texelmarsenarsloe() 177 val = ocean_spectrum_wind_and_damp(oc, kx, kz, val); in BLI_ocean_spectrum_texelmarsenarsloe() 193 val = ocean_spectrum_wind_and_damp(oc, kx, kz, val); in BLI_ocean_spectrum_texelmarsenarsloe() 206 float BLI_ocean_spectrum_jonswap(const Ocean *oc, const float kx, const float kz) in BLI_ocean_spectrum_jonswap() argument 208 const float k2 = kx * kx + kz * kz; in BLI_ocean_spectrum_jonswap() [all …]
|
/dports/games/libretro-shaders-slang/slang-shaders-9850d68939b86262eae9f0da01ff1c11daafcdc3/cel/shaders/MMJ_Cel/ |
H A D | MMJ_Cel_Shader_MP_Outline.slang | 103 hz = (cz - ((c00 + h) / (dot(o, c00) + k))); i = kz / (dot(hz, hz) + kz); 104 hz = (cz - ((c01 + h) / (dot(o, c01) + k))); i += kz / (dot(hz, hz) + kz); 105 hz = (cz - ((c02 + h) / (dot(o, c02) + k))); i += kz / (dot(hz, hz) + kz); 106 hz = (cz - ((c03 + h) / (dot(o, c03) + k))); i += kz / (dot(hz, hz) + kz); 107 hz = (cz - ((c05 + h) / (dot(o, c05) + k))); i += kz / (dot(hz, hz) + kz); 108 hz = (cz - ((c06 + h) / (dot(o, c06) + k))); i += kz / (dot(hz, hz) + kz); 109 hz = (cz - ((c07 + h) / (dot(o, c07) + k))); i += kz / (dot(hz, hz) + kz); 110 hz = (cz - ((c08 + h) / (dot(o, c08) + k))); i += kz / (dot(hz, hz) + kz); 111 hz = (cz - ((c09 + h) / (dot(o, c09) + k))); i += kz / (dot(hz, hz) + kz); 112 hz = (cz - ((c10 + h) / (dot(o, c10) + k))); i += kz / (dot(hz, hz) + kz); [all …]
|
/dports/science/mcxtrace/mcxtrace-1.2-src/xlib/share/ |
H A D | mcxtrace-r.c | 39 *dptr++ = kz; in mcstore_xray() 62 *kz = *dptr++; in mcrestore_xray() 86 mcnkz = kz; in mcsetstate() 133 k=sqrt(scalar_prod(kx,ky,kz,kx,ky,kz)); in box_intersect() 172 if (kz) { in box_intersect() 223 k2=(kx*kx + ky*ky + kz*kz); in cylinder_intersect() 234 if (kx || kz){ in cylinder_intersect() 288 k = kx*kx + ky*ky + kz*kz; in sphere_intersect() 342 k=sqrt(kx*kx+ky*ky+kz*kz); in ellipsoid_intersect() 345 ez=kz/k; in ellipsoid_intersect() [all …]
|
/dports/games/libretro-shaders-glsl/glsl-shaders-7052b09dc657d56bea443d5661dccbebcafe32dc/cel/shaders/ |
H A D | MMJ_Cel_Shader_MP_Outline.glsl | 145 hz = (cz - ((c00 + h) / (dot(o, c00) + k))); i = kz / (dot(hz, hz) + kz); 146 hz = (cz - ((c01 + h) / (dot(o, c01) + k))); i += kz / (dot(hz, hz) + kz); 147 hz = (cz - ((c02 + h) / (dot(o, c02) + k))); i += kz / (dot(hz, hz) + kz); 148 hz = (cz - ((c03 + h) / (dot(o, c03) + k))); i += kz / (dot(hz, hz) + kz); 149 hz = (cz - ((c05 + h) / (dot(o, c05) + k))); i += kz / (dot(hz, hz) + kz); 150 hz = (cz - ((c06 + h) / (dot(o, c06) + k))); i += kz / (dot(hz, hz) + kz); 151 hz = (cz - ((c07 + h) / (dot(o, c07) + k))); i += kz / (dot(hz, hz) + kz); 152 hz = (cz - ((c08 + h) / (dot(o, c08) + k))); i += kz / (dot(hz, hz) + kz); 153 hz = (cz - ((c09 + h) / (dot(o, c09) + k))); i += kz / (dot(hz, hz) + kz); 154 hz = (cz - ((c10 + h) / (dot(o, c10) + k))); i += kz / (dot(hz, hz) + kz); [all …]
|
/dports/science/berkeleygw/BGW-2.0.0/bin/ |
H A D | qptlist.pl | 28 $kz = pop @data; 31 if( $kx==0.0 && $ky==0.0 && $kz==0.0 ) { 34 $lenz=length($kz); @data=split /\./, $kz; $decz=length($data[-1]); 37 $kz+=$shift_z; 43 printf "$pstr", $kx, $ky, $kz; 45 print " $kx $ky $kz 1.0 0\n";
|
/dports/science/qmcpack/qmcpack-3.11.0/src/einspline/ |
H A D | test_bspline_d.c | 39 double kz = 2.0*M_PI * iz; in int_periodic_func() local 40 if ((kx*kx + ky*ky + kz*kz) < (kcut*kcut)) in int_periodic_func() 54 double kz = 2.0*M_PI * iz; in int_periodic_func() local 55 if ((kx*kx + ky*ky + kz*kz) < (kcut*kcut)) { in int_periodic_func() 58 func->Gvecs[3*iG+2] = kz; in int_periodic_func() 81 double kz = func->Gvecs[3*iG+2]; in eval_periodic_func_d() local 82 double phase = x*kx + y*ky + z*kz; in eval_periodic_func_d() 90 grad[2] += -kz*(re*c_im + im*c_re); in eval_periodic_func_d() 93 hess[2] += -kx*kz*(re*c_re - im*c_im); in eval_periodic_func_d() 96 hess[5] += -ky*kz*(re*c_re - im*c_im); in eval_periodic_func_d() [all …]
|
/dports/science/tinker/tinker/source/ |
H A D | kmpole.f | 43 integer kz,kx,ky local 139 kz = 0 158 kz = 0 162 if (kz .eq. 0) axt = 'None' 167 kz = abs(kz) 197 call numeral (kz,pb,size) 445 kz = 0 464 kz = 0 469 if (kz .eq. 0) axt = 'None' 474 kz = abs(kz) [all …]
|
/dports/science/bagel/bagel-1.2.2/src/integral/ecp/ |
H A D | angularbatch.cc | 111 for (int kz = 0; kz <= ang0_[2]; ++kz) { in project_AB() local 112 const int lk = kx + ky + kz; in project_AB() 113 const int index = kx * ANG_HRR_END * ANG_HRR_END + ky * ANG_HRR_END + kz; in project_AB() 130 const int z = ki[2] + kj[2] + kz; in project_AB() 177 for (int kz = 0; kz <= ang1_[2]; ++kz) { in project_CB() local 178 const int lk = kx + ky + kz; in project_CB() 196 const int z = ki[2] + kj[2] + kz; in project_CB() 260 for (int kz = 0; kz <= ang0_[2]; ++kz) { in init() local 261 const double ckz = c(ang0_[2], kz) * pow(AB_[2], ang0_[2] - kz); in init() 272 for (int kz = 0; kz <= ang1_[2]; ++kz) { in init() local [all …]
|
/dports/science/mpb/mpb-1.11.1/examples/ |
H A D | tri-holes.ctl | 12 (define-param kz 0) ; use non-zero kz to consider vertical propagation 14 (set! k-points (list (vector3 0 0 kz) ; Gamma 15 (vector3 0 0.5 kz) ; M 16 (vector3 (/ -3) (/ 3) kz) ; K 17 (vector3 0 0 kz))) ; Gamma 33 (if (= kz 0) 37 (run)) ; if kz != 0 there are no purely te and tm bands
|
/dports/audio/guitarix-lv2/guitarix-0.43.1/tools/ampsim/tensbs/ |
H A D | tensbs.pyf | 58 integer optional :: kz=4 61 real dimension(nz+kz),optional,intent(out),depend(nz,kz) :: tz 63 … real dimension(nx*ny*nz + max(2*kx*(nx+1),max(2*ky*(ny+1),2*kz*(nz+1)))),intent(hide) :: work 75 real dimension(nz+kz),depend(nz,kz) :: tz 81 integer :: kz 83 real dimension(ky*kz+3*max(kx,max(ky,kz))+kz), intent(hide) :: work 101 integer optional :: kz=4 105 real dimension(nz+kz),optional,intent(out),depend(nz,kz) :: tz 122 real dimension(nz+kz),depend(nz,kz) :: tz 130 integer :: kz [all …]
|
/dports/dns/unbound/unbound-1.14.0/contrib/ |
H A D | warmup.sh | 21 admir.kz 27 almaty.tele2.kz 33 beeline.kz 50 google.kz 53 goto.kz 60 irr.kz 64 kcell.kz 65 krisha.kz 109 tele2.kz 110 tengrinews.kz
|
/dports/comms/wsjtz/wsjtx/map65/libm65/ |
H A D | display.f90 | 84 kz=k 86 call indexx(float(utc2(1:kz)),kz,indx2) 88 do k=1,kz 94 call indexx(float(utc2(1:kz)),kz,indx2) 95 do k=1,kz 112 kz=k 113 call indexx(float(utc2(1:kz)),kz,indx2) 114 do k=1,kz
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/g++.dg/analyzer/ |
H A D | pr95042.C | 3 class kz { 5 kz (); 11 const kz vl; 12 kz ax; 17 kz ny, fb = vl; in c1()
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/g++.dg/analyzer/ |
H A D | pr95042.C | 3 class kz { 5 kz (); 11 const kz vl; 12 kz ax; 17 kz ny, fb = vl; in c1()
|