/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | neartriangle.f | 29 & isol,itri,imastop(3,*),ntie,itie,itel local 44 itri=neigh(k)+itietri(1,itie)-1 48 al=-(straight(16,itri)+straight(13,itri)*p(1) 49 & +straight(14,itri)*p(2)+ 50 & straight(15,itri)*p(3))/ 51 & (straight(13,itri)*xn(1)+straight(14,itri)*xn(2) 52 & +straight(15,itri)*xn(3)) 61 itri=imastop(m1,itri) 64 if(itri.ne.0)then 66 itri=0 [all …]
|
H A D | interpolateinface.f | 151 itri=neigh(1) 160 & straight(ll+2,itri) 163 itrinew=imastop(l,itri) 169 isol=itri 188 itriold=itri 189 itri=itrinew 194 isol=itri 213 & straight(ll+2,itri) 290 & coi(1,koncont(1,itri)),coi(2,koncont(1,itri)),z(i,1), 291 & coi(1,koncont(2,itri)),coi(2,koncont(2,itri)),z(i,2), [all …]
|
H A D | linkdissimilar.f | 50 itri=ineigh(j) 51 dist=max(rp*straight(1,itri)+zp*straight(2,itri)+ 53 & max(rp*straight(4,itri)+zp*straight(5,itri)+ 55 & max(rp*straight(7,itri)+zp*straight(8,itri)+ 59 itrimax=itri 63 itrimax=itri 68 itri=itrimax 70 ilast=ifacetet(itri) 72 itri=itri-1 73 if(itri.eq.0) then [all …]
|
H A D | gentiedmpc.f | 221 itri=neigh(1)+itietri(1,i)-1 242 isol=itri 263 itriold=itri 264 itri=itrinew 269 isol=itri 282 & straight(16,itri)) 495 isol=itri 516 itriold=itri 517 itri=itrinew 522 isol=itri [all …]
|
H A D | adjustcontactnodes.f | 159 itri=neigh(1)+itietri(1,i)-1 169 & straight(ll+3,itri) 171 itrinew=imastop(l,itri) 177 isol=itri 196 itriold=itri 197 itri=itrinew 202 isol=itri 211 dist=straight(13,itri)*p(1)+ 212 & straight(14,itri)*p(2)+ 213 & straight(15,itri)*p(3)+ [all …]
|
H A D | islavactive.f | 31 & isol,itri,ll,kflag,n,nx(*),ny(*),mi(*),nz(*),nstart, 121 itri=neigh(1)+itietri(1,i)-1 128 dist=straight(ll,itri)*p(1)+ 129 & straight(ll+1,itri)*p(2)+ 130 & straight(ll+2,itri)*p(3)+ 131 & straight(ll+3,itri) 133 itrinew=imastop(l,itri) 139 isol=itri 158 itriold=itri 159 itri=itrinew [all …]
|
H A D | genfirstactif.f | 212 itri=neigh(1)+itietri(1,i)-1 222 & straight(ll+3,itri) 224 itrinew=imastop(l,itri) 234 isol=itri 253 itriold=itri 254 itri=itrinew 259 isol=itri 269 dist=straight(13,itri)*p(1)+ 270 & straight(14,itri)*p(2)+ 271 & straight(15,itri)*p(3)+ [all …]
|
H A D | slavintpoints.f | 231 if(itri.eq.0) then 237 & straight(16,itri))/ 239 & straight(14,itri)*xn(2)+ 240 & straight(15,itri)*xn(3)) 242 ifacem=koncont(4,itri) 577 itri=ime(2,line) 582 if((itri.gt.itietri(2,i)).or.(itri.lt.itietri(1,i)))then 583 if(itri.ne.0)then 585 itri=0 588 if(itri.eq.0) then [all …]
|
H A D | slavintmortar.f | 289 if(itri.eq.0) then 335 if(itri.eq.0) then 341 & straight(16,itri))/ 343 & straight(14,itri)*xn(2)+ 344 & straight(15,itri)*xn(3)) 347 ifacem=koncont(4,itri) 738 itri=ime(2,line) 743 if(itri.gt.itietri(2,i) .or. itri.lt.itietri(1,i))then 744 itri=0 747 if(itri.eq.0) then [all …]
|
H A D | gencontelem_n2f.f | 390 itri=neigh(1)+itietri(1,i)-1 397 dist=straight(ll,itri)*p(1)+ 398 & straight(ll+1,itri)*p(2)+ 399 & straight(ll+2,itri)*p(3)+ 400 & straight(ll+3,itri) 408 itrinew=imastop(l,itri) 418 isol=itri 437 itriold=itri 438 itri=itrinew 443 isol=itri [all …]
|
H A D | gencontelem_f2f.f | 350 itri=neigh(1)+itietri(1,i)-1 357 dist=straight(ll,itri)*p(1)+ 358 & straight(ll+1,itri)*p(2)+ 359 & straight(ll+2,itri)*p(3)+ 360 & straight(ll+3,itri) 368 itrinew=imastop(l,itri) 378 isol=itri 398 itriold=itri 399 itri=itrinew 404 isol=itri [all …]
|
/dports/science/chrono/chrono-7.0.1/src/chrono_irrlicht/ |
H A D | ChIrrNodeProxyToAsset.cpp | 100 for (unsigned int itri = 0; itri < ntriangles; itri++) { in UpdateTriangleMesh() local 159 irrmesh->getIndexBuffer().setValue(0 + itri * 3, 0 + itri * 3); in UpdateTriangleMesh() 160 irrmesh->getIndexBuffer().setValue(1 + itri * 3, 1 + itri * 3); in UpdateTriangleMesh() 161 irrmesh->getIndexBuffer().setValue(2 + itri * 3, 2 + itri * 3); in UpdateTriangleMesh() 297 int itri = 0; in UpdateGlyphs() local 372 ++itri; in UpdateGlyphs() 397 ++itri; in UpdateGlyphs() 413 ++itri; in UpdateGlyphs() 429 ++itri; in UpdateGlyphs() 640 int itri = 0; in UpdateLine() local [all …]
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/symmetry/ |
H A D | sym_sh_pair.F | 174 ijat = itri(iat,jat) 189 ijat_new = itri(iat_new, jat_new) 240 ij = itri(iat,jat) 241 kl = itri(kat,lat) 242 ijkl = itri(ij, kl) 259 ij_new = itri(iat_new,jat_new) 260 kl_new = itri(kat_new,lat_new) 261 ijkl_new = itri(ij_new, kl_new) 340 ij = itri(iat,jat) 341 kl = itri(kat,lat) [all …]
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/symmetry/ |
H A D | sym_sh_pair.F | 174 ijat = itri(iat,jat) 189 ijat_new = itri(iat_new, jat_new) 240 ij = itri(iat,jat) 241 kl = itri(kat,lat) 242 ijkl = itri(ij, kl) 259 ij_new = itri(iat_new,jat_new) 260 kl_new = itri(kat_new,lat_new) 261 ijkl_new = itri(ij_new, kl_new) 340 ij = itri(iat,jat) 341 kl = itri(kat,lat) [all …]
|
/dports/science/multiwfn/gMultiwfn-3.4.1-0-14-ge873677/src/ |
H A D | surfana.f90 | 632 do itri=1,nsurtri 636 surtriang(itri)%idx(itmp)=mergerelat(surtriang(itri)%idx(itmp)) 644 if (surtriang(itri)%idx(itmp)==surtriang(itri)%idx(jtmp)) then 692 do itri=1,nsurtri 696 elimtri(itri)=1 1395 do itri=1,nsurtri 1430 do itri=1,nsurtri 1472 do itri=1,nsurtri 1475 …if (surtriang(itri)%value*convunit>=tmplow.and.surtriang(itri)%value*convunit<tmphigh) areatmp=are… 1550 do itri=1,nsurtri [all …]
|
/dports/graphics/wings/libigl-2.1.0/include/igl/copyleft/cgal/ |
H A D | insert_into_cdt.cpp | 41 } else if(const Triangle_3 *itri = CGAL::object_cast<Triangle_3 >(&obj)) in insert_into_cdt() local 44 cdt.insert_constraint( P.to_2d(itri->vertex(0)),P.to_2d(itri->vertex(1))); in insert_into_cdt() 45 cdt.insert_constraint( P.to_2d(itri->vertex(1)),P.to_2d(itri->vertex(2))); in insert_into_cdt() 46 cdt.insert_constraint( P.to_2d(itri->vertex(2)),P.to_2d(itri->vertex(0))); in insert_into_cdt()
|
H A D | projected_delaunay.cpp | 76 } else if(const Triangle_3 *itri = CGAL::object_cast<Triangle_3 >(&obj)) in projected_delaunay() local 79 cdt.insert_constraint(P.to_2d(itri->vertex(0)),P.to_2d(itri->vertex(1))); in projected_delaunay() 80 cdt.insert_constraint(P.to_2d(itri->vertex(1)),P.to_2d(itri->vertex(2))); in projected_delaunay() 81 cdt.insert_constraint(P.to_2d(itri->vertex(2)),P.to_2d(itri->vertex(0))); in projected_delaunay()
|
/dports/cad/PrusaSlicer/PrusaSlicer-version_2.3.3/src/libigl/igl/copyleft/cgal/ |
H A D | insert_into_cdt.cpp | 41 } else if(const Triangle_3 *itri = CGAL::object_cast<Triangle_3 >(&obj)) in insert_into_cdt() local 44 cdt.insert_constraint( P.to_2d(itri->vertex(0)),P.to_2d(itri->vertex(1))); in insert_into_cdt() 45 cdt.insert_constraint( P.to_2d(itri->vertex(1)),P.to_2d(itri->vertex(2))); in insert_into_cdt() 46 cdt.insert_constraint( P.to_2d(itri->vertex(2)),P.to_2d(itri->vertex(0))); in insert_into_cdt()
|
H A D | projected_delaunay.cpp | 76 } else if(const Triangle_3 *itri = CGAL::object_cast<Triangle_3 >(&obj)) in projected_delaunay() local 79 cdt.insert_constraint(P.to_2d(itri->vertex(0)),P.to_2d(itri->vertex(1))); in projected_delaunay() 80 cdt.insert_constraint(P.to_2d(itri->vertex(1)),P.to_2d(itri->vertex(2))); in projected_delaunay() 81 cdt.insert_constraint(P.to_2d(itri->vertex(2)),P.to_2d(itri->vertex(0))); in projected_delaunay()
|
/dports/science/chrono/chrono-7.0.1/src/chrono_cascade/ |
H A D | ChIrrCascadeMeshTools.h | 104 int itri = 0; variable 115 buffer->Indices[itri * 3 + 0] = ia; 116 buffer->Indices[itri * 3 + 1] = ib; 117 buffer->Indices[itri * 3 + 2] = ic; 119 itri++;
|
H A D | ChCascadeMeshTools.cpp | 115 int itri = 0; in fillTriangleMeshFromCascadeFace() local 129 itri++; in fillTriangleMeshFromCascadeFace() 266 int itri = 0; in fillObjFileFromCascade() local 269 T->Triangles()(itri + 1).Get(n[0], n[2], n[1]); in fillObjFileFromCascade() 271 T->Triangles()(itri + 1).Get(n[0], n[1], n[2]); in fillObjFileFromCascade() 281 itri++; in fillObjFileFromCascade()
|
/dports/science/nwchem-data/nwchem-7.0.2-release/src/ddscf/fast/ |
H A D | cart_trans.F | 84 integer itri, ind, loff, i, j, l local 86 itri(i,j) = ((i*(i-1))/2 + j) 87 ind(i,j,l) = itri(l-i+1,l-i-j+1) ! Index of x^i*y^j*z^(l-i-j) in 182 integer itri, ind, loff local 184 itri(i,j) = ((i*(i-1))/2 + j) 185 ind(i,j,l) = itri(l-i+1,l-i-j+1) ! Index of x^i*y^j*z^(l-i-j) in 281 integer itri, ind, loff local 283 itri(i,j) = ((i*(i-1))/2 + j) 284 ind(i,j,l) = itri(l-i+1,l-i-j+1) ! Index of x^i*y^j*z^(l-i-j) in
|
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/ddscf/fast/ |
H A D | cart_trans.F | 84 integer itri, ind, loff, i, j, l 86 itri(i,j) = ((i*(i-1))/2 + j) 87 ind(i,j,l) = itri(l-i+1,l-i-j+1) ! Index of x^i*y^j*z^(l-i-j) in 182 integer itri, ind, loff 184 itri(i,j) = ((i*(i-1))/2 + j) 185 ind(i,j,l) = itri(l-i+1,l-i-j+1) ! Index of x^i*y^j*z^(l-i-j) in 281 integer itri, ind, loff 283 itri(i,j) = ((i*(i-1))/2 + j) 284 ind(i,j,l) = itri(l-i+1,l-i-j+1) ! Index of x^i*y^j*z^(l-i-j) in
|
/dports/math/xlife++/xlifepp-sources-v2.0.1-2018-05-09/src/largeMatrix/denseStorage/ |
H A D | RowDenseStorage.hpp | 506 v=*itri/piv; in gaussSolver() 507 *itri++=0; in gaussSolver() 509 for(number_t j=k+1; j<nbRows_; j++, ++itri, ++itrk) *itri-=v* *itrk; in gaussSolver() 527 v=*itri; in gaussSolver() 532 v=*itri; in gaussSolver() 598 v=*itri; *itri=*itrk; *itrk=v; in lu() 608 v=*itri/=piv; in lu() 609 itri++; in lu() 648 v=*itri/=piv; in lu() 649 itri++; in lu() [all …]
|
/dports/science/chrono/chrono-7.0.1/src/chrono/fea/ |
H A D | ChMeshFileLoader.cpp | 744 int itri = -1; in BSTShellFromObjFile() local 747 itri = winged_edges[medge0].first; in BSTShellFromObjFile() 749 itri = winged_edges[medge0].second; in BSTShellFromObjFile() 751 …if (mmesh.m_face_v_indices[itri][vi] != medge0.first && mmesh.m_face_v_indices[itri][vi] != medge0… in BSTShellFromObjFile() 757 itri = -1; in BSTShellFromObjFile() 760 itri = winged_edges[medge1].first; in BSTShellFromObjFile() 762 itri = winged_edges[medge1].second; in BSTShellFromObjFile() 764 …if (mmesh.m_face_v_indices[itri][vi] != medge1.first && mmesh.m_face_v_indices[itri][vi] != medge1… in BSTShellFromObjFile() 770 itri = -1; in BSTShellFromObjFile() 773 itri = winged_edges[medge2].first; in BSTShellFromObjFile() [all …]
|