/dports/cad/calculix-ccx/CalculiX/ccx_2.18/src/ |
H A D | evalshapefunc.f | 19 subroutine evalshapefunc(xil,etl,xl2,nopes,p) argument 25 real*8 xl2(3,8),xs2(3,2),shp2(7,8),p(3),xsj2(3), local 33 call shape8q(xil,etl,xl2,xsj2,xs2,shp2,iflag) 35 call shape4q(xil,etl,xl2,xsj2,xs2,shp2,iflag) 37 call shape6tri(xil,etl,xl2,xsj2,xs2,shp2,iflag) 39 call shape3tri(xil,etl,xl2,xsj2,xs2,shp2,iflag) 43 p(j)=p(j)+xl2(j,i)*shp2(4,i)
|
H A D | extrapolate_d_v_simple.f | 34 real*8 xrlfa(3,*),xl1,xl2,advfa(*),adv(*),vel(nef,0:7),hfa(3,*), 47 xl2=xrlfa(2,i) 49 & +xl2*volume(iel2)/adv(iel2) 53 & +xl2*vel(iel2,j)) 58 & +xl2*(c(j,1)*vel(iel2,1)+ 65 & +xl2*(c(1,j)*vel(iel2,1)+
|
H A D | advecforc.f | 42 & xl2(3,8),xsj2(3),shp2(7,9),coords(3),xs2(3,7),dxsj2,areaj, local 69 xl2(j,i)=xl(j,i) 73 xl2(j,i)=xl(j,i)+voldl(j,i) 160 call shape8q(xi,et,xl2,xsj2,xs2,shp2,iflag) 162 call shape4q(xi,et,xl2,xsj2,xs2,shp2,iflag) 164 call shape6tri(xi,et,xl2,xsj2,xs2,shp2,iflag) 166 call shape3tri(xi,et,xl2,xsj2,xs2,shp2,iflag) 186 coords(k)=coords(k)+xl2(k,j)*shp2(4,j)
|
H A D | extrapol_oel3.f | 31 & gradnor,xl1,xl2 local 43 xl2=xrlfa(2,i) 47 & xl2*gradoel(l,iel2) 51 gradofa(l,i)=xl1*gradoel(l,iel1)+xl2* 58 gradofa(l,i)=xl1*gradoel(l,iel1)+xl2*
|
H A D | extrapol_kel3.f | 31 & gradnor,xl1,xl2 local 43 xl2=xrlfa(2,i) 47 & xl2*gradkel(l,iel2) 51 gradkfa(l,i)=xl1*gradkel(l,iel1)+xl2* 58 gradkfa(l,i)=xl1*gradkel(l,iel1)+xl2*
|
H A D | extrapol_pel3.f | 31 & gradnor,xl1,xl2 local 43 xl2=xrlfa(2,i) 47 & xl2*gradpel(l,iel2) 51 gradpfa(l,i)=xl1*gradpel(l,iel1)+xl2* 58 gradpfa(l,i)=xl1*gradpel(l,iel1)+xl2*
|
H A D | extrapol_dpel3.f | 31 & gradnor,xl1,xl2 local 43 xl2=xrlfa(2,i) 47 & xl2*gradpcel(l,iel2) 51 gradpcfa(l,i)=xl1*gradpcel(l,iel1)+xl2* 58 gradpcfa(l,i)=xl1*gradpcel(l,iel1)+xl2*
|
H A D | extrapolate_d_v_simplec.f | 34 real*8 xrlfa(3,*),xl1,xl2,advfa(*),adv(*),vel(nef,0:7),hfa(3,*), 47 xl2=xrlfa(2,i) 60 & +xl2*volume(iel2)/a2 65 & +xl2*vel(iel2,j)) 70 & +xl2*(c(j,1)*vel(iel2,1)+ 77 & +xl2*(c(1,j)*vel(iel2,1)+
|
H A D | calcexternalwork.f | 37 real*8 co(3,*),xs2(3,7),pres,voldl2(3,8),xl2(3,8),xsj2(3), local 188 xl2(j,i)=co(j,konl(ifaceq(i,ig))) 197 xl2(j,i)=co(j,konl(ifacet(i,ig))) 206 xl2(j,i)=co(j,konl(ifacew(i,ig))) 248 call shape8q(xi,et,xl2,xsj2,xs2,shp2,iflag) 250 call shape4q(xi,et,xl2,xsj2,xs2,shp2,iflag) 252 call shape6tri(xi,et,xl2,xsj2,xs2,shp2,iflag) 254 call shape3tri(xi,et,xl2,xsj2,xs2,shp2,iflag)
|
H A D | advecstiff.f | 42 & xl2(3,8),xsj2(3),shp2(7,9),coords(3),xs2(3,7),dxsj2,areaj, local 69 xl2(j,i)=xl(j,i) 73 xl2(j,i)=xl(j,i)+voldl(j,i) 154 call shape8q(xi,et,xl2,xsj2,xs2,shp2,iflag) 156 call shape4q(xi,et,xl2,xsj2,xs2,shp2,iflag) 158 call shape6tri(xi,et,xl2,xsj2,xs2,shp2,iflag) 160 call shape3tri(xi,et,xl2,xsj2,xs2,shp2,iflag) 180 coords(k)=coords(k)+xl2(k,j)*shp2(4,j)
|
H A D | radmatrix.f | 45 & xl2(3,8),coords(3),dxsj2,temp,xi,et,weight,xsj2(3), 161 xl2(j,k)=co(j,konl(ifaceq(k,ig)))+ 169 xl2(j,k)=co(j,konl(ifacet(k,ig)))+ 177 xl2(j,k)=co(j,konl(ifacew(k,ig)))+ 236 call shape8q(xi,et,xl2,xsj2,xs2,shp2,iflag) 238 call shape4q(xi,et,xl2,xsj2,xs2,shp2,iflag) 240 call shape6tri(xi,et,xl2,xsj2,xs2,shp2,iflag) 242 call shape3tri(xi,et,xl2,xsj2,xs2,shp2,iflag) 263 coords(k)=coords(k)+xl2(k,j)*shp2(4,j)
|
H A D | dload.f | 118 real*8 xl2(3,8),pres(8),xi,et,xsj2(3),xs2(3,7),shp2(7,8), local 180 xl2(j,i)=0.d0 252 call shape8q(xi,et,xl2,xsj2,xs2,shp2,iflag) 254 call shape4q(xi,et,xl2,xsj2,xs2,shp2,iflag) 256 call shape6tri(xi,et,xl2,xsj2,xs2,shp2,iflag) 258 call shape3tri(xi,et,xl2,xsj2,xs2,shp2,iflag)
|
H A D | extrapol_tel3.f | 31 & gradnor,xl1,xl2,q,xxn(3,*),xload(2,*) 43 xl2=xrlfa(2,i) 47 & xl2*gradtel(l,iel2) 51 gradtfa(l,i)=xl1*gradtel(l,iel1)+xl2* 58 gradtfa(l,i)=xl1*gradtel(l,iel1)+xl2*
|
H A D | extrapol_vel1.f | 31 & xxn(3,*),xl1,xl2,dd local 45 xl2=xrlfa(2,i) 48 vfap(j,i)=xl1*vel(iel1,j)+xl2*vel(iel2,j) 52 vfap(j,i)=xl1*vel(iel1,j)+xl2* 59 vfap(j,i)=xl1*vel(iel1,j)+xl2*
|
H A D | extrapol_vel3.f | 31 & xl1,xl2,gradnor local 43 xl2=xrlfa(2,i) 48 & xl2*gradvel(k,l,iel2) 54 gradvfa(k,l,i)=xl1*gradvel(k,l,iel1)+xl2* 69 gradvfa(k,l,i)=xl1*gradvel(k,l,iel1)+xl2*
|
H A D | e_c3d_rhs.f | 52 & shp(4,20),voldl(3,20),xl2(3,8),xsj2(3),shp2(7,8), local 431 xl2(j,i)=co(j,konl(ifaceq(i,ig))) 437 xl2(j,i)=co(j,konl(ifaceq(i,ig)))+ 447 xl2(j,i)=co(j,konl(ifacet(i,ig))) 453 xl2(j,i)=co(j,konl(ifacet(i,ig)))+ 463 xl2(j,i)=co(j,konl(ifacew(i,ig))) 469 xl2(j,i)=co(j,konl(ifacew(i,ig)))+ 505 call shape8q(xi,et,xl2,xsj2,xs2,shp2,iflag) 507 call shape4q(xi,et,xl2,xsj2,xs2,shp2,iflag) 509 call shape6tri(xi,et,xl2,xsj2,xs2,shp2,iflag) [all …]
|
H A D | e_c3d_se.f | 246 call shape8q(xi,et,xl2,xsj2,xs2,shp2,iflag) 1404 xl2(j,i)= 1416 xl2(j,node1)=xl2(j,node1)+ 1418 xl2(j,node2)=xl2(j,node2)+ 1421 xl2(j,node1)=xl2(j,node1)+ 1433 xl2(j,node1)=xl2(j,node1)+ 1475 xl2(j,i)= 1515 xl2(j,i)= 1527 xl2(j,node1)=xl2(j,node1)+ 1529 xl2(j,node2)=xl2(j,node2)+ [all …]
|
H A D | e_c3d_duds.f | 251 call shape8q(xi,et,xl2,xsj2,xs2,shp2,iflag) 1428 xl2(j,i)= 1440 xl2(j,node1)=xl2(j,node1)+ 1442 xl2(j,node2)=xl2(j,node2)+ 1445 xl2(j,node1)=xl2(j,node1)+ 1457 xl2(j,node1)=xl2(j,node1)+ 1499 xl2(j,i)= 1539 xl2(j,i)= 1551 xl2(j,node1)=xl2(j,node1)+ 1553 xl2(j,node2)=xl2(j,node2)+ [all …]
|
H A D | printoutfacefem.f | 43 & voldl(0:mi(2),8),xl2(3,8),xsj2(3), 174 xl2(j,i)=co(j,konl(ifaceq(i,ig))) 180 xl2(j,i)=co(j,konl(ifacet(i,ig))) 186 xl2(j,i)=co(j,konl(ifacew(i,ig))) 215 call shape4q(xi,et,xl2,xsj2,xs2,shp2,iflag) 217 call shape3tri(xi,et,xl2,xsj2,xs2,shp2,iflag) 225 coords(j1)=coords(j1)+shp2(4,i1)*xl2(j1,i1)
|
/dports/games/burrtools/burrtools-0.6.3/src/gui/ |
H A D | grideditor_4.cpp | 166 *xl2 = xa2; *yl2 = ya2; in findCommonEdge() 172 *xl2 = xa3; *yl2 = ya3; in findCommonEdge() 182 *xl2 = xa2; *yl2 = ya2; in findCommonEdge() 188 *xl2 = xa3; *yl2 = ya3; in findCommonEdge() 198 *xl2 = xa2; *yl2 = ya2; in findCommonEdge() 204 *xl2 = xa3; *yl2 = ya3; in findCommonEdge() 213 *xl2 = xa1; *yl2 = ya1; in findCommonEdge() 219 *xl2 = xa3; *yl2 = ya3; in findCommonEdge() 229 *xl2 = xa2; *yl2 = ya2; in findCommonEdge() 235 *xl2 = xa3; *yl2 = ya3; in findCommonEdge() [all …]
|
H A D | grideditor_3.cpp | 192 *xl2 = xa2; *yl2 = ya2; in findCommonEdge() 198 *xl2 = xa3; *yl2 = ya3; in findCommonEdge() 208 *xl2 = xa2; *yl2 = ya2; in findCommonEdge() 214 *xl2 = xa3; *yl2 = ya3; in findCommonEdge() 224 *xl2 = xa2; *yl2 = ya2; in findCommonEdge() 230 *xl2 = xa3; *yl2 = ya3; in findCommonEdge() 239 *xl2 = xa1; *yl2 = ya1; in findCommonEdge() 245 *xl2 = xa3; *yl2 = ya3; in findCommonEdge() 255 *xl2 = xa2; *yl2 = ya2; in findCommonEdge() 261 *xl2 = xa3; *yl2 = ya3; in findCommonEdge() [all …]
|
H A D | grideditor_1.cpp | 187 int xl1, yl1, xl2, yl2, xl3, yl3; in drawTileCursor() local 194 xl2 = xl1+sx; in drawTileCursor() 203 xl2 = xl1+sx; in drawTileCursor() 213 fl_line(xl1, yl1+1, xl2, yl2+1); in drawTileCursor() 214 fl_line(xl1, yl1-1, xl2, yl2-1); in drawTileCursor() 218 fl_line(xl1, yl1+1, xl2, yl2+1); in drawTileCursor() 219 fl_line(xl1, yl1-1, xl2, yl2-1); in drawTileCursor()
|
/dports/multimedia/dirac/dirac-1.0.2/libdirac_common/ |
H A D | wavelet_utils_mmx.cpp | 64 const int xl2( xl>>1); 78 int stopx = (xl2>>2)<<2; 171 const int xl2( xl>>1); in Interleave_mmx() local 188 int stopx = (xl2>>2)<<2; in Interleave_mmx() 1086 const int xl2 (xl>>1); 1199 predict.Filter( line_data[0] , line_data[xl2] , line_data[xl2] ); 1227 update.Filter( line_data[xl-2] , line_data[xl2-2] , line_data[xl2-1] ); 1228 update.Filter( line_data[xl-1] , line_data[xl2-1] , line_data[xl2-1] ); 1410 const int xl2( xl>>1); in DeInterleave_mmx() local 1487 const int xl2 = xl>>1; in Split() local [all …]
|
/dports/graphics/appleseed/appleseed-2.1.0-beta/src/appleseed/foundation/math/intersection/ |
H A D | rayaabb.h | 140 const T xl2 = ray_info.m_rcp_dir.x * (bbox[ ray_info.m_sgn_dir.x].x - ray.m_org.x); in intersect() local 145 const T tmax = ssemin(zl2, ssemin(yl2, ssemin(xl2, ray.m_tmax))); in intersect() 178 const __m128 tmax = _mm_min_ps(zl2, _mm_min_ps(yl2, _mm_min_ps(xl2, ray_tmax))); 215 const __m128d tmax = _mm_min_pd(zl2, _mm_min_pd(yl2, _mm_min_pd(xl2, ray_tmax))); 239 const T xl2 = ray_info.m_rcp_dir.x * (bbox[ ray_info.m_sgn_dir.x].x - ray.m_org.x); in intersect() local 244 const T tmax = ssemin(zl2, ssemin(yl2, ssemin(xl2, ray.m_tmax))); in intersect() 271 const T tmax = ssemin(zl2, ssemin(yl2, ssemin(xl2, ray.m_tmax))); in intersect() 299 const T tmax = ssemin(zl2, ssemin(yl2, ssemin(xl2, ray.m_tmax))); in intersect() 328 const T tmax = ssemin(zl2, ssemin(yl2, ssemin(xl2, ray.m_tmax))); in clip() 367 const __m128 tmax = _mm_min_ps(zl2, _mm_min_ps(yl2, _mm_min_ps(xl2, ray_tmax))); [all …]
|
/dports/devel/onetbb/oneTBB-2021.4.0/examples/parallel_for/polygon_overlay/ |
H A D | rpolygon.hpp | 187 int xl1, yl1, xh1, yh1, xl2, yl2, xh2, yh2; in PolygonsOverlap() local 192 p2->get(&xl2, &yl2, &xh2, &yh2); in PolygonsOverlap() 195 if (xh1 < xl2) in PolygonsOverlap() 201 xl = (xl1 < xl2) ? xl2 : xl1; in PolygonsOverlap()
|