Lines Matching refs:e
10 C_TESTARGS(name="BP1") -c {ceed_resource} -e bp1 -n 1 -b 4 -test
11 C_TESTARGS(name="BP3") -c {ceed_resource} -e bp3 -n 1 -b 4 -test
201 integer e,i,L
208 do e=1,lelt
218 subroutine dist_fld_h1(e)
220 C Input: Output: e
224 real*8 e(1)
233 e(i) = dsqrt(x*x+y*y+z*z)
236 call dsavg(e) ! This is requisite for random fields
241 subroutine sin_fld_h1(e)
243 C Input: Output: e
247 real*8 e(1)
265 e(i) = dsin(pi*(c(1)+k(1)*x))
271 call dsavg(e) ! This is requisite for random fields
280 integer e,f,eg
281 C e = gllel(eg)
297 integer e,f,eg
298 C e = gllel(eg)
311 integer e,f,eg
312 e = gllel(eg)
324 integer e,f,eg
338 integer e,f,eg
480 integer e
502 do e=1,nelt
503 call intp_rstd (tmp,xm1(1,1,1,e),lx1,lzq,if3d,0) ! 0-->Fwd interpolation
506 call intp_rstd (tmp,ym1(1,1,1,e),lx1,lzq,if3d,0)
509 call intp_rstd (tmp,zm1(1,1,1,e),lx1,lzq,if3d,0)
539 bmq(i,e) = w3mq(i,1,1)*jacmq
542 gf(1,i,e) = scale*(g11*g11+g12*g12+g13*g13) ! Grr
543 gf(2,i,e) = scale*(g11*g21+g12*g22+g13*g23) ! Grs
544 gf(3,i,e) = scale*(g11*g31+g12*g32+g13*g33) ! Grt
545 gf(4,i,e) = scale*(g21*g21+g22*g22+g23*g23) ! Gss
546 gf(5,i,e) = scale*(g21*g31+g22*g32+g23*g33) ! Gst
547 gf(6,i,e) = scale*(g31*g31+g32*g32+g33*g33) ! Gtt
564 integer e
582 do 1000 e=1,nel
584 call rzero(d(1,1,1,e),nxyz)
590 d(ix,iy,iz,e) = d(ix,iy,iz,e)
591 $ + gf(1,iq,iy,iz,e) * dxm1(iq,ix)**2
592 $ + gf(2,ix,iq,iz,e) * dxm1(iq,iy)**2
593 $ + gf(3,ix,iy,iq,e) * dxm1(iq,iz)**2
602 d(1,i1,i2,e) = d(1,i1,i2,e)
603 $ + gf(4,1,i1,i2,e) * dxtm1(1,1)*dytm1(i1,i1)
604 $ + gf(5,1,i1,i2,e) * dxtm1(1,1)*dztm1(i2,i2)
605 d(lx1,i1,i2,e) = d(lx1,i1,i2,e)
606 $ + gf(4,lx1,i1,i2,e) * dxtm1(lx1,lx1)*dytm1(i1,i1)
607 $ + gf(5,lx1,i1,i2,e) * dxtm1(lx1,lx1)*dztm1(i2,i2)
608 d(i1,1,i2,e) = d(i1,1,i2,e)
609 $ + gf(4,i1,1,i2,e) * dytm1(1,1)*dxtm1(i1,i1)
610 $ + gf(6,i1,1,i2,e) * dytm1(1,1)*dztm1(i2,i2)
611 d(i1,ly1,i2,e) = d(i1,ly1,i2,e)
612 $ + gf(4,i1,ly1,i2,e) * dytm1(ly1,ly1)*dxtm1(i1,i1)
613 $ + gf(6,i1,ly1,i2,e) * dytm1(ly1,ly1)*dztm1(i2,i2)
614 d(i1,i2,1,e) = d(i1,i2,1,e)
615 $ + gf(5,i1,i2,1,e) * dztm1(1,1)*dxtm1(i1,i1)
616 $ + gf(6,i1,i2,1,e) * dztm1(1,1)*dytm1(i2,i2)
617 d(i1,i2,lz1,e) = d(i1,i2,lz1,e)
618 $ + gf(5,i1,i2,lz1,e) * dztm1(lz1,lz1)*dxtm1(i1,i1)
619 $ + gf(6,i1,i2,lz1,e) * dztm1(lz1,lz1)*dytm1(i2,i2)
626 d(i,1,1,e)=d(i,1,1,e)*h1(i,e)+h2(i,e)*bm1(i,1,1,e)
634 do 1200 e=1,nel
635 if (ifrzer(e)) call mxm(ym1(1,1,1,e),lx1,datm1,ly1,ysm1,1)
640 if (ym1(i,j,1,e).ne.0.) then
641 term1 = bm1(i,j,1,e)/ym1(i,j,1,e)**2
642 if (ifrzer(e)) then
644 $ *jacm1(i,1,1,e)/ysm1(i)
648 d(i,j,1,e) = d(i,j,1,e) + h1(k,e)*(term1+term2)
767 tol = 1e-10
895 if (dabs(er1)>5e-3) then
930 if (dabs(er1)>1e-5) then
965 if (dabs(er1)>1e-5) then
1084 tol = 1e-10
1217 if (dabs(er1)>1e-3) then
1252 if (dabs(er1)>1e-9) then
1287 if (dabs(er1)>1e-9) then
1455 integer i,e
1472 do e=1,nelt
1474 pap(1)=pap(1)+ap1(i,e)*p1(i,e)
1522 integer e
1529 do e=1,nelt
1531 call ax_e_bp1(ap1(1,e),p1(1,e),gf(1,1,e),h1(1,e),h2(k,1)
1532 $ ,bm1(1,1,1,e),ur,us,ut)
1534 pap(1)=pap(1)+ap1(i,e)*p1(i,e)
1595 integer e
1599 do e=1,nelt
1601 call ax_e_bp3(ap1(1,e),p1(1,e),gf(1,1,e),ur,us,ut,wk)
1603 pap(1)=pap(1)+p1(i,e)*ap1(i,e)