/dports/devel/ga/ga-5.8/global/examples/md_cluster/ |
H A D | factor.F | 4 subroutine factor(p,idx,idy,idz) argument 6 integer i,j,p,idx,idy,idz,it local 43 idz = 1 45 if (idx.le.idy.and.idx.le.idz) then 47 elseif (idy.le.idx.and.idy.le.idz) then 49 elseif (idz.le.idx.and.idz.le.idy) then 50 idz = fac(i)*idz 67 subroutine i_proc_to_xyz(p,ix,iy,iz,idx,idy,idz) argument 70 integer idx,idy,idz local 80 it = mod(ip,idz) [all …]
|
H A D | shuffle.F | 17 call factor(pnum,idx,idy,idz) 18 call i_proc_to_xyz(me,ipx,ipy,ipz,idx,idy,idz) 51 call i_xyz_to_proc(rnode,inx,ipy,ipz,idx,idy,idz) 81 call i_xyz_to_proc(rnode,ipx,iny,ipz,idx,idy,idz) 108 do i = 1, idz-1 110 if (inz.eq.-1) inz = idz - 1 246 integer i,pnum,me,idx,idy,idz,ipx,ipy,ipz local 258 call factor(pnum,idx,idy,idz) 259 call i_proc_to_xyz(me,ipx,ipy,ipz,idx,idy,idz) 281 zmax = zbox*dble(ipz+1)/dble(idz) [all …]
|
H A D | update.F | 20 call factor(pnum,idx,idy,idz) 28 zmax = zbox*dble(ipz+1)/dble(idz) 31 zmin = zbox*dble(ipz)/dble(idz) 40 zcell = zbox/dble(idz) 300 if (idz.ge.2) then 304 if (idz.eq.2) then 373 if (inz.eq.-1) inz = idz - 1 378 if (idz.gt.2) then 416 if (inz.eq.idz) inz = 0 538 call factor(pnum,idx,idy,idz) [all …]
|
H A D | gather.F | 9 integer snode,rnode,pnum,idx,idy,idz,ipx,ipy,ipz local 27 call factor(pnum,idx,idy,idz) 29 call i_proc_to_xyz(inode,ipx,ipy,ipz,idx,idy,idz) 42 zmax = zbox*dble(ipz+1)/dble(idz) 45 zmin = zbox*dble(ipz)/dble(idz) 97 call i_xyz_to_proc(rnode,inx,ipy,ipz,idx,idy,idz) 382 if (idz.eq.2) then 450 if (inz.eq.-1) inz = idz - 1 453 elseif (idz.gt.2) then 517 if (inz.eq.-1) inz = idz - 1 [all …]
|
H A D | scatter.F | 20 call factor(pnum,idx,idy,idz) 35 zmax = zbox*dble(ipz+1)/dble(idz) 38 zmin = zbox*dble(ipz)/dble(idz) 47 zcell = zbox/dble(idz) 370 if (idz.gt.1) then 372 if (idz.eq.2) then 464 if (inz.eq.-1) inz = idz - 1 472 if (idz.gt.2) then 520 if (inz.eq.idz) inz = 0 651 call factor(pnum,idx,idy,idz) [all …]
|
H A D | cell_list.F | 24 integer idx,idy,idz,pnum,inode,ll,kk,l,lb,jj 33 call factor(pnum,idx,idy,idz) 35 call i_proc_to_xyz(inode,ipx,ipy,ipz,idx,idy,idz) 47 zcl = zbox / dble(idz) 75 + (idz.eq.2.and.zcl*dble(iz).ge.0.5d00*zbox/dble(idz))) then 89 zmax = zbox * dble(ipz+1)/dble(idz) 95 zmin = zbox * dble(ipz)/dble(idz) 262 if (jz.lt.1.and.idz.eq.1) jz = nlz + jz 385 integer pnum,idx,idy,idz,nlx,nly,nlz 388 call factor(pnum,idx,idy,idz) [all …]
|
H A D | sort.F | 7 integer snode,rnode,pnum,idx,idy,idz,ipx,ipy,ipz,ilast,ifirst 14 call factor(pnum,idx,idy,idz) 16 call i_proc_to_xyz(inode,ipx,ipy,ipz,idx,idy,idz)
|
/dports/math/octave/octave-6.4.0/libinterp/corefcn/ |
H A D | stream-euler.cc | 298 (((X.idz >= 0) && (X.idz < nz-1)) || in is_in_definition_set3d() 323 handle_border (&idz, &fcz, X.idz, X.fcz, nz); in vector_interpolation3d() 325 V.x = trilinear (u(idy, idx, idz), u(idy, idx+1, idz), in vector_interpolation3d() 326 u(idy+1, idx, idz), u(idy+1, idx+1, idz), in vector_interpolation3d() 327 u(idy, idx, idz+1), u(idy, idx+1, idz+1), in vector_interpolation3d() 330 V.y = trilinear (v(idy, idx, idz), v(idy, idx+1, idz), in vector_interpolation3d() 331 v(idy+1, idx, idz), v(idy+1, idx+1, idz), in vector_interpolation3d() 332 v(idy, idx, idz+1), v(idy, idx+1, idz+1), in vector_interpolation3d() 335 V.z = trilinear (w(idy, idx, idz), w(idy, idx+1, idz), in vector_interpolation3d() 336 w(idy+1, idx, idz), w(idy+1, idx+1, idz), in vector_interpolation3d() [all …]
|
/dports/science/bagel/bagel-1.2.2/src/integral/rys/ |
H A D | _gvrr_drv.h | 135 for (int idz = 0; idz <= d_; ++idz) { in gvrr_driver() local 136 for (int idy = 0; idy <= d_ - idz; ++idy) { in gvrr_driver() 137 const int idx = d_ - idz - idy; in gvrr_driver() 145 …inal_y [i+rank_*(iay+a2*(iby+b2*(icy+c2*idy)))] * final_z [i+rank_*(iaz+a2*(ibz+b2*(icz+c2*idz)))]; in gvrr_driver() 146 …inal_yc[i+rank_*(iay+a2*(iby+b2*(icy+c2*idy)))] * final_z [i+rank_*(iaz+a2*(ibz+b2*(icz+c2*idz)))]; in gvrr_driver() 161 for (int idz = 0; idz <= d_; ++idz) { in gvrr_driver() local 162 for (int idy = 0; idy <= d_ - idz; ++idy) { in gvrr_driver() 163 const int idx = d_ - idz - idy; in gvrr_driver() 187 for (int idz = 0; idz <= d_; ++idz) { in gvrr_driver() local 188 for (int idy = 0; idy <= d_ - idz; ++idy) { in gvrr_driver() [all …]
|
/dports/math/vtk6/VTK-6.2.0/Imaging/Core/ |
H A D | vtkImageStencilData.cxx | 816 for (idz=extent[4]; idz<=extent[5]; idz++, iter=0) in InternalAdd() 828 this->InsertAndMergeExtent(r1, r2, idy, idz); in InternalAdd() 885 for (idz=extent2[4]; idz<=extent2[5]; idz++, iter=0) in Add() 897 this->InsertAndMergeExtent(r1, r2, idy, idz); in Add() 905 for (idz=extent1[4]; idz<=extent1[5]; idz++, iter=0) in Add() 949 for (idz=extent[4]; idz<=extent[5]; idz++, iter=0) in Subtract() 961 this->RemoveExtent(r1, r2, idy, idz); in Subtract() 993 for (idz=extent[4]; idz<=extent[5]; idz++, iter=0) in Replace() 1019 int currentExtent[6], idy, idz; in Clip() local 1032 for (idz=currentExtent[4]; idz<=currentExtent[5]; idz++) in Clip() [all …]
|
/dports/math/py-chaospy/chaospy-4.3.3/chaospy/expansion/ |
H A D | cholesky.py | 163 idz = numpy.s_[:idx] if idx else [] 166 lowtri[idx, idz], d_vec[idz]*lowtri[idx, idz].T) 172 lowtri[idy, idz], d_vec[idz]*lowtri[idx, idz].T)
|
/dports/science/py-scipy/scipy-1.7.1/scipy/linalg/src/id_dist/doc/ |
H A D | doc.tex | 638 {\tt idz\_id.f} \\\hline 656 {\tt idz\_frm.f} \\\hline 658 {\tt idz\_frmi} & initializes routine {\tt idz\_frm} & {\tt idz\_frm.f} 663 {\tt idz\_id.f} \\\hline 698 {\tt idz\_qrmatmat} instead & {\tt idz\_qrpiv.f} \\\hline 704 {\tt idz\_random\_transf} and {\tt idz\_random\_transf\_inverse} & 712 {\tt idz\_id.f} \\\hline 719 {\tt idz\_id.f} \\\hline 725 {\tt idz\_sffti} & initializes routine {\tt idz\_sfft} & 733 {\tt idz\_sfrmi} & initializes routine {\tt idz\_sfrm} & [all …]
|
/dports/math/vtk9/VTK-9.1.0/Imaging/Core/ |
H A D | vtkImageStencilData.cxx | 488 for (int idz = oldExtent[4]; idz <= oldExtent[5]; idz++) in ChangeExtent() local 492 if (idy >= extent[2] && idy <= extent[3] && idz >= extent[4] && idz <= extent[5]) in ChangeExtent() 499 int j = (idz - extent[4]) * zinc + (idy - extent[2]); in ChangeExtent() 532 for (int idz = extent[4]; idz <= extent[5]; idz++) in ChangeExtent() local 870 for (int idz = extent[4]; idz <= extent[5]; idz++) in LogicalOperationInPlace() local 878 incr = vtkImageStencilDataIndex(this->Extent, idy, idz); in LogicalOperationInPlace() 983 for (idz = extent[4]; idz <= extent[5]; idz++, iter = 0) in Replace() 987 this->RemoveExtent(extent[0], extent[1], idy, idz); in Replace() 996 this->InsertAndMergeExtent(r1, r2, idy, idz); in Replace() 1026 for (int idz = currentExtent[4]; idz <= currentExtent[5]; idz++) in Clip() local [all …]
|
/dports/math/vtk8/VTK-8.2.0/Imaging/Core/ |
H A D | vtkImageStencilData.cxx | 493 for (int idz = oldExtent[4]; idz <= oldExtent[5]; idz++) in ChangeExtent() local 498 idz >= extent[4] && idz <= extent[5]) in ChangeExtent() 506 int j = (idz - extent[4])*zinc + (idy - extent[2]); in ChangeExtent() 539 for (int idz = extent[4]; idz <= extent[5]; idz++) in ChangeExtent() local 890 for (int idz = extent[4]; idz <= extent[5]; idz++) in LogicalOperationInPlace() local 1014 for (idz=extent[4]; idz<=extent[5]; idz++, iter=0) in Replace() 1018 this->RemoveExtent(extent[0], extent[1], idy, idz); in Replace() 1024 r1, r2, extent[0], extent[1], idy, idz, iter); in Replace() 1028 this->InsertAndMergeExtent(r1, r2, idy, idz); in Replace() 1058 for (int idz = currentExtent[4]; idz <= currentExtent[5]; idz++) in Clip() local [all …]
|
/dports/science/cp2k/cp2k-2e995eec7fd208c8a72d9544807bd8b8ba8cd1cc/src/common/ |
H A D | powell.F | 277 idz = 0 451 idz = 1 592 IF (k < idz) THEN 913 opt%idz = idz 964 idz = opt%idz 1954 IF (j == idz) THEN 1955 jl = idz 1997 IF (idz == 1 .AND. temp < zero) idz = 2 2017 IF (beta < zero) idz = idz + 1 2026 idz = idz - 1 [all …]
|
/dports/science/cp2k-data/cp2k-7.1.0/src/common/ |
H A D | powell.F | 277 idz = 0 451 idz = 1 592 IF (k < idz) THEN 913 opt%idz = idz 964 idz = opt%idz 1954 IF (j == idz) THEN 1955 jl = idz 1997 IF (idz == 1 .AND. temp < zero) idz = 2 2017 IF (beta < zero) idz = idz + 1 2026 idz = idz - 1 [all …]
|
/dports/math/py-chaospy/chaospy-4.3.3/chaospy/distributions/sampler/sequences/ |
H A D | sobol.py | 104 for idz in range(1, degree+1): 106 if includ[idz-1]: 107 newv = newv ^ base * samples[idx, idy-idz-1].item()
|
/dports/dns/bind-tools/bind-9.16.27/bin/tests/system/cds/ |
H A D | setup.sh | 27 idz=$(keyfile_to_key_id $keyz) 35 idz=$idz 116 $mangle '\s+IN\s+RRSIG\s+CDS .* '$idz' '$Z'\. ' \
|
/dports/dns/bind916/bind-9.16.27/bin/tests/system/cds/ |
H A D | setup.sh | 27 idz=$(keyfile_to_key_id $keyz) 35 idz=$idz 116 $mangle '\s+IN\s+RRSIG\s+CDS .* '$idz' '$Z'\. ' \
|
/dports/dns/samba-nsupdate/bind-9.16.5/bin/tests/system/cds/ |
H A D | setup.sh | 25 idz=$(keyfile_to_key_id $keyz) 33 idz=$idz 114 $mangle '\s+IN\s+RRSIG\s+CDS .* '$idz' '$Z'\. ' \
|
/dports/dns/bind9-devel/bind9-e112afa15668bd3b1baed59df2d21e01b46da15e/bin/tests/system/cds/ |
H A D | setup.sh | 24 idz=$(keyfile_to_key_id $keyz) 32 idz=$idz 119 $mangle '\s+IN\s+RRSIG\s+CDS .* '$idz' '$Z'\. ' \
|
/dports/devel/vcglib/vcglib-2020.09/wrap/newuoa/include/ |
H A D | newuoa.h | 115 if (j < *idz) temp = -temp; in biglag_() 331 if (j < *idz) temp = -temp; in bigden_() 443 if (j < *idz) sum = -sum; in bigden_() 900 if (j == *idz) { in update_() 901 jl = *idz; in update_() 924 if (*idz >= 2) tempa = -tempa; in update_() 949 if (*idz == 1 && temp < 0) *idz = 2; in update_() 979 --(*idz); in update_() 1182 idz = 1; in newuob_() 1341 if (k < idz) { in newuob_() [all …]
|
/dports/cad/meshlab/meshlab-Meshlab-2020.05/src/external/newuoa/include/ |
H A D | newuoa.h | 115 if (j < *idz) temp = -temp; in biglag_() 331 if (j < *idz) temp = -temp; in bigden_() 443 if (j < *idz) sum = -sum; in bigden_() 900 if (j == *idz) { in update_() 901 jl = *idz; in update_() 924 if (*idz >= 2) tempa = -tempa; in update_() 949 if (*idz == 1 && temp < 0) *idz = 2; in update_() 979 --(*idz); in update_() 1182 idz = 1; in newuob_() 1341 if (k < idz) { in newuob_() [all …]
|
/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | near3d_se.f | 55 & i,j,k,m,id,idx,idy,idz,node local 68 call ident(z,zp,n,idz) 155 id=idz+1-i 172 id=idz+i
|
H A D | near3d.f | 27 & i,j,k,m,id,idx,idy,idz,eight,node,l local 46 call ident(z,zp,n,idz) 149 id=idz+1-i 167 id=idz+i
|