| /phasta/phSolver/compressible/ |
| H A D | e3juel.f | 1 subroutine e3juel (yl, acl, sls, A0, argument
25 dimension yl(npro,nshl,nflow), acl(npro,nshl,ndof),
100 ub(:,:)=acl(:,1,:)+acl(:,2,:)
101 & +acl(:,3,:)+acl(:,4,:)
104 yl(:,i,1) = fact*(acl(:,i,1)+ub(:,1))
105 yl(:,i,2) = fact*(acl(:,i,2)+ub(:,2))
106 yl(:,i,3) = fact*(acl(:,i,3)+ub(:,3))
107 yl(:,i,4) = fact*(acl(:,i,4)+ub(:,4))
108 yl(:,i,5) = fact*(acl(:,i,5)+ub(:,5))
|
| H A D | asigmr.f | 29 dimension ycl(npro,nshl,ndofl), acl(npro,nshl,ndof),
53 call localy(ac, acl, ien, ndofl, 'gather ')
75 call e3 (ycl, ycl, acl, shp,
151 & acl(npro,nshl,ndof), dwl(npro,nenl),
167 call localy (ac, acl, ien, ndof, 'gather ')
181 call e3Sclr (ycl, acl,
|
| H A D | asiflx.f | 22 dimension ycl(npro,nshl,ndof), acl(npro,nshl,ndof),
44 call localy(ac, acl, ien, ndof, 'gather ')
63 call e3 (ycl, ycl, acl, shp(lcsyst,1:nshl,:),
|
| H A D | asires.f | 24 & xl(npro,nenl,nsd), acl(npro,nshl,nflow),
57 call localy(ac, acl, ien, nflow, 'gather ')
78 call e3 (yl, ycl, acl, shp,
|
| H A D | asimfg.f | 27 dimension ycl(npro,nshl,ndofl), acl(npro,nshl,ndofl),
50 call localy(ac, acl, ien, ndofl, 'gather ')
77 call e3 (ycl, ycl, acl, shp,
|
| H A D | e3ivar.f | 1 subroutine e3ivar (yl, ycl, acl, argument
64 & acl(npro,nshl,ndof),
189 aci(:,1) = aci(:,1) + shape(:,n) * acl(:,n,1)
190 aci(:,2) = aci(:,2) + shape(:,n) * acl(:,n,2)
191 aci(:,3) = aci(:,3) + shape(:,n) * acl(:,n,3)
192 aci(:,4) = aci(:,4) + shape(:,n) * acl(:,n,4)
193 aci(:,5) = aci(:,5) + shape(:,n) * acl(:,n,5)
490 subroutine e3ivarSclr (ycl, acl, acti, argument
554 & acl(npro,nshl,ndof), acti(npro),
624 acti(:) = acti(:) + shape(:,n) * acl(:,n,id)
|
| H A D | e3.f | 1 subroutine e3 (yl, ycl, acl, shp, argument
51 & acl(npro,nshl,ndof), rmu(npro),
129 call e3ivar (yl, ycl, acl,
245 call e3juel (yl, acl, Sclr, A0, WdetJ, rl, rml)
311 subroutine e3Sclr (ycl, acl, argument
360 & acl(npro,nshl,ndof),
429 call e3ivarSclr(ycl, acl, acti,
|
| /phasta/phSolver/incompressible/ |
| H A D | asigmr.f | 30 dimension yl(npro,nshl,ndofl), acl(npro,nshl,ndofl),
59 call localy(ac, acl, ien, ndofl, 'gather ')
86 call e3 (yl, acl, dwl, shp,
147 real*8 yl(npro,nshl,ndofl), acl(npro,nshl,ndofl), local
165 call localy(ac, acl, ien, ndofl, 'gather ')
180 call e3Sclr (yl, acl, shp,
|
| H A D | e3.f | 1 subroutine e3 (yl, acl, dwl, shp, argument
41 & acl(npro,nshl,ndof),
98 call e3ivar (yl, acl, shpfun,
123 & rl, pres, acl,
163 subroutine e3Sclr (yl, acl, shp, argument
179 real*8 yl(npro,nshl,ndof), acl(npro,nshl,ndof), local
231 call e3ivarSclr(yl, acl, shpfun,
|
| H A D | e3ivar.f | 1 subroutine e3ivar (yl, acl, shpfun, argument
56 & acl(npro,nshl,ndof), shpfun(npro,nshl),
136 aci(:,1) = aci(:,1) + shpfun(:,n) * acl(:,n,2)
137 aci(:,2) = aci(:,2) + shpfun(:,n) * acl(:,n,3)
138 aci(:,3) = aci(:,3) + shpfun(:,n) * acl(:,n,4)
314 subroutine e3ivarSclr (yl, acl, shpfun, argument
327 dimension yl(npro,nshl,ndof), acl(npro,nshl,ndof),
372 Sdot = Sdot + shpfun(:,n) * acl(:,n,id)
425 aci(:,1) = aci(:,1) + shpfun(:,n) * acl(:,n,2)
426 aci(:,2) = aci(:,2) + shpfun(:,n) * acl(:,n,3)
[all …]
|
| H A D | asbflx.f | 31 & ul(npro,nshl,nsd), acl(npro,nshl,ndofl)
50 call localy(ac, acl, ienb, ndofl, 'gather ')
62 call e3b (ul, yl, acl, iBCB, BCB,
|
| H A D | asbmfg.f | 29 & ul(npro,nshl,nsd), acl(npro,nshl,ndofl)
43 call localy(ac, acl, ienb, ndofl, 'gather ')
64 call e3b (ul, yl, acl, iBCB, BCB,
|
| H A D | e3b.f | 1 subroutine e3b (ul, yl, acl, iBCB, BCB, argument
58 & acl(npro,nshl,ndof),
125 call e3bvar (yl, acl, ul,
|
| H A D | e3bvar.f | 1 subroutine e3bvar (yl, acl, ul, argument
63 & acl(npro,nshl,ndof), ul(npro,nshl,nsd),
390 vdot(:,1) = vdot(:,1) + shpb(:,nodlcl) * acl(:,nodlcl,2)
391 vdot(:,2) = vdot(:,2) + shpb(:,nodlcl) * acl(:,nodlcl,3)
392 vdot(:,3) = vdot(:,3) + shpb(:,nodlcl) * acl(:,nodlcl,4)
|
| H A D | e3res.f | 7 & rl, pres, acl, argument
50 & acl(npro,nshl,ndof),
|
| H A D | advLES.f | 17 & Qwtf(ngaussf), acl(npro,nshl,ndof),
58 call localy(ac, acl, ien, ndofl, 'gather ')
106 aci(:,1) = aci(:,1) + shp(n,intp) * acl(:,n,2)
107 aci(:,2) = aci(:,2) + shp(n,intp) * acl(:,n,3)
108 aci(:,3) = aci(:,3) + shp(n,intp) * acl(:,n,4)
|