| /phasta/phSolver/compressible/ |
| H A D | e3.f | 50 dimension yl(npro,nshl,nflow), ycl(npro,nshl,ndof), 51 & acl(npro,nshl,ndof), rmu(npro), 52 & shp(nshl,ngauss), rlm2mu(npro), 53 & shgl(nsd,nshl,ngauss), con(npro), 54 & xl(npro,nenl,nsd), rlm(npro), 55 & rl(npro,nshl,nflow), ql(npro,nshl,idflx), 56 & rml(npro,nshl,nflow), xmudmi(npro,ngauss), 57 & BDiagl(npro,nshl,nflow,nflow), 58 & EGmass(npro,nedof,nedof),cv(npro), 59 & ytargetl(npro,nshl,nflow) [all …]
|
| H A D | e3b.f | 56 dimension yl(npro,nshl,nflow), iBCB(npro,ndiBCB), 57 & ycl(npro,nshl,ndof), 58 & BCB(npro,nshlb,ndBCB), shpb(nshl,ngaussb), 60 & xlb(npro,nenl,nsd), 61 & rl(npro,nshl,nflow), rml(npro,nshl,nflow) 63 dimension g1yi(npro,nflow), g2yi(npro,nflow), 64 & g3yi(npro,nflow), WdetJb(npro), 65 & bnorm(npro,nsd), 66 & dNadx(npro, nshl, nsd), !shape function gradient 67 & dNadn(npro, nshl), !dN_a/dx_i n_i, i.e. gradient normal to wall [all …]
|
| H A D | e3source.f | 28 dimension ri(npro,nflow*(nsd+1)), rmi(npro,nflow*(nsd+1)), 29 & u1(npro), u2(npro), 30 & u3(npro), rho(npro), 31 & pres(npro), 32 & rLyi(npro,nflow), sforce(npro,3), 33 & shpfun(npro,nshl), 34 & xl(npro,nenl,3), xx(npro,3) 36 real*8 ytargeti(npro,nflow), ytargetl(npro,nshl,nflow) 38 real*8 src(npro,nflow), bcool(npro), 39 & dui(npro,nflow), duitarg(npro,nflow), [all …]
|
| H A D | e3bvar.f | 53 dimension yl(npro,nshl,nflow), BCB(npro,nshlb,ndBCB), 54 & ycl(npro,nshl,ndof), 55 & shpb(npro,nshl), 56 & shglb(npro,nsd,nshl), 57 & xlb(npro,nenl,nsd), 58 & lnode(27), g1yi(npro,nflow), 59 & g2yi(npro,nflow), g3yi(npro,nflow), 60 & WdetJb(npro), bnorm(npro,nsd), 61 & pres(npro), T(npro), 62 & u1(npro), u2(npro), [all …]
|
| H A D | e3mtrx.f | 49 dimension rho(npro), pres(npro), 50 & T(npro), ei(npro), 51 & h(npro), alfap(npro), 52 & betaT(npro), 53 & cp(npro), 54 & rk(npro), 55 & u1(npro), u2(npro), 56 & u3(npro), fact1(npro), 57 & A0(npro,nflow,nflow), dVdY(npro,15), 58 & A1(npro,nflow,nflow), A2(npro,nflow,nflow), [all …]
|
| H A D | e3ivar.f | 63 dimension yl(npro,nshl,nflow), ycl(npro,nshl,ndof), 64 & acl(npro,nshl,ndof), 65 & shape(npro,nshl), 66 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd), 67 & dui(npro,nflow), 68 & aci(npro,nflow), g1yi(npro,nflow), 69 & g2yi(npro,nflow), g3yi(npro,nflow), 70 & shg(npro,nshl,nsd), dxidx(npro,nsd,nsd), 71 & WdetJ(npro), 72 & rho(npro), pres(npro), [all …]
|
| H A D | asigmr.f | 23 & ien(npro,nshl), 24 & mater(npro), res(nshg,nflow), 29 dimension ycl(npro,nshl,ndofl), acl(npro,nshl,ndof), 30 & xl(npro,nenl,nsd), ytargetl(npro,nshl,nflow), 31 & rl(npro,nshl,nflow), rml(npro,nshl,nflow), 32 & BDiagl(npro,nshl,nflow,nflow), 33 & ql(npro,nshl,idflx) 35 dimension xmudmi(npro,ngauss) 36 dimension sgn(npro,nshl), EGmass(npro,nedof,nedof) 38 dimension rlsl(npro,nshl,6) [all …]
|
| H A D | e3conv.f | 49 dimension g1yi(npro,nflow), g2yi(npro,nflow), 50 & g3yi(npro,nflow), 51 & A1(npro,nflow,nflow), 52 & A2(npro,nflow,nflow), A3(npro,nflow,nflow), 53 & rho(npro), pres(npro), 54 & T(npro), ei(npro), 55 & rk(npro), u1(npro), 56 & u2(npro), u3(npro), 57 & rLyi(npro,nflow), ri(npro,nflow*(nsd+1)), 58 & rmi(npro,nflow*(nsd+1)), EGmass(npro,nedof,nedof), [all …]
|
| H A D | e3ql.f | 24 dimension ycl(npro,nshl,ndof), 27 & xl(npro,nenl,nsd), sgn(npro,nshl), 28 & ql(npro,nshl,idflx), xmudmi(npro,ngauss) 32 dimension g1yi(npro,nflow), g2yi(npro,nflow), 33 & g3yi(npro,nflow), shg(npro,nshl,nsd), 34 & dxidx(npro,nsd,nsd), WdetJ(npro), 35 & T(npro), cp(npro), 36 & u1(npro), u2(npro), 37 & u3(npro), rmu(npro), 38 & rlm(npro), rlm2mu(npro), [all …]
|
| H A D | asbmfg.f | 18 & ienb(npro,nshl), materb(npro), 19 & iBCB(npro,ndiBCB), BCB(npro,nshlb,ndBCB), 22 dimension ycl(npro,nshl,ndofl), xlb(npro,nenl,nsd), 23 & rl(npro,nshl,nflow), 24 & rml(npro,nshl,nflow), 25 & EGmass(npro, nshl, nshl) 27 dimension sgn(npro,nshl) 85 & ienb(npro,nshl), materb(npro), 86 & iBCB(npro,ndiBCB), BCB(npro,nshlb,ndBCB), 89 dimension ycl(npro,nshl,ndofl), xlb(npro,nenl,nsd), [all …]
|
| H A D | e3q.f | 24 dimension ycl(npro,nshl,ndof), 27 & xl(npro,nenl,nsd), 28 & ql(npro,nshl,idflx), rmassl(npro,nshl), 29 & xmudmi(npro,ngauss) 33 dimension g1yi(npro,nflow), g2yi(npro,nflow), 34 & g3yi(npro,nflow), shg(npro,nshl,nsd), 35 & dxidx(npro,nsd,nsd), WdetJ(npro), 36 & T(npro), cp(npro), 37 & u1(npro), u2(npro), 38 & u3(npro), rmu(npro), [all …]
|
| H A D | getdiff.f | 40 dimension T(npro), cp(npro), 41 & rho(npro), Sclr(npro), 42 & rmu(npro), rlm(npro), 43 & rlm2mu(npro), con(npro), 44 & ycl(npro,nshl,ndof), shp(npro,nshl), 45 & xmudmi(npro,ngauss), xl(npro,nenl,nsd), 46 & xx(npro) 48 dimension xmut(npro) 49 real*8 prop_blend(npro),test_it(npro) 185 do e = 1, npro [all …]
|
| H A D | getthm.f | 49 dimension pres(npro), Sclr(npro), 50 & T(npro), rk(npro), 51 & rho(npro), ei(npro), 52 & h(npro), s(npro), 53 & cv(npro), cp(npro), 54 & alfap(npro), betaT(npro), 55 & gamb(npro), c(npro), 56 & rsrhol(npro), rsrhog(npro), 57 & tmpg(npro), tmpl(npro) 59 dimension Texp1(npro), Texp2(npro) [all …]
|
| H A D | e3qvar.f | 40 dimension ycl(npro,nshl,ndof), rho(npro), 41 & shp(npro,nshl), tmp(npro), 42 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd), 43 & g1yi(npro,nflow), g2yi(npro,nflow), 44 & g3yi(npro,nflow), shg(npro,nshl,nsd), 45 & dxidx(npro,nsd,nsd), WdetJ(npro), 46 & T(npro), cp(npro), 47 & u1(npro), u2(npro), 48 & u3(npro), pres(npro) 52 dimension dxdxi(npro,nsd,nsd), Sclr(npro)
|
| /phasta/phSolver/incompressible/ |
| H A D | e3.f | 40 dimension yl(npro,nshl,ndof), 41 & acl(npro,nshl,ndof), 43 & xl(npro,nenl,nsd), dwl(npro,nenl), 44 & rl(npro,nshl,nflow), ql(npro,nshl,idflx) 47 dimension xKebe(npro,9,nshl,nshl), xGoC(npro,4,nshl,nshl) 51 dimension g1yi(npro,ndof), g2yi(npro,ndof), 52 & g3yi(npro,ndof), shg(npro,nshl,nsd), 53 & aci(npro,3), dxidx(npro,nsd,nsd), 54 & WdetJ(npro), rho(npro), 55 & pres(npro), u1(npro), [all …]
|
| H A D | e3q.f | 24 dimension yl(npro,nshl,ndof), dwl(npro,nenl), 26 & xl(npro,nenl,nsd), 27 & ql(npro,nshl,idflx), rmassl(npro,nshl), 28 & xmudmi(npro,ngauss) 32 dimension g1yi(npro,nflow), g2yi(npro,nflow), 33 & g3yi(npro,nflow), shg(npro,nshl,nsd), 34 & dxidx(npro,nsd,nsd), WdetJ(npro), 35 & rmu(npro) 37 dimension qdi(npro,idflx),alph1(npro),alph2(npro) 39 dimension sgn(npro,nshl), shape(npro,nshl), [all …]
|
| H A D | e3ql.f | 25 dimension yl(npro,nshl,ndof), dwl(npro,nshl), 27 & xl(npro,nenl,nsd), sgn(npro,nshl), 28 & ql(npro,nshl,idflx), xmudmi(npro,ngauss) 32 dimension g1yi(npro,ndof), g2yi(npro,ndof), 33 & g3yi(npro,ndof), shg(npro,nshl,nsd), 34 & dxidx(npro,nsd,nsd), WdetJ(npro), 35 & rmu(npro), 36 & rminv(npro,nshl,nshl), 37 & qrl(npro,nshl,nsd*nsd) 39 dimension qdi(npro,nsd*nsd), shape(npro,nshl), [all …]
|
| H A D | e3ivar.f | 55 dimension yl(npro,nshl,ndof), dwl(npro,nenl), 56 & acl(npro,nshl,ndof), shpfun(npro,nshl), 57 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd), 58 & aci(npro,nsd), g1yi(npro,ndof), 59 & g2yi(npro,ndof), g3yi(npro,ndof), 60 & shg(npro,nshl,nsd), dxidx(npro,nsd,nsd), 61 & WdetJ(npro), 62 & rho(npro), pres(npro), 63 & u1(npro), u2(npro), 64 & u3(npro), divqi(npro,nflow-1+isurf), [all …]
|
| H A D | e3b.f | 54 dimension yl(npro,nshl,ndof), iBCB(npro,ndiBCB), 55 & BCB(npro,nshlb,ndBCB), shpb(nshl,ngaussb), 57 & xlb(npro,nenl,nsd), ul(npro,nshl,nsd), 58 & acl(npro,nshl,ndof), 59 & rl(npro,nshl,nflow) 61 dimension g1yi(npro,ndof), g2yi(npro,ndof), 62 & g3yi(npro,ndof), WdetJb(npro), 63 & bnorm(npro,nsd) 65 dimension u1(npro), u2(npro), 66 & u3(npro), rho(npro), [all …]
|
| H A D | asigmr.f | 25 & ien(npro,nshl), 30 dimension yl(npro,nshl,ndofl), acl(npro,nshl,ndofl), 31 & xl(npro,nenl,nsd), dwl(npro,nenl), 32 & rl(npro,nshl,nflow), 33 & ql(npro,nshl,idflx) 35 dimension xKebe(npro,9,nshl,nshl), 36 & xGoC(npro,4,nshl,nshl) 38 dimension rlsl(npro,nshl,6) 41 real*8 lStsVec(npro,nshl,nResDims) 43 dimension xmudmi(npro,ngauss) [all …]
|
| H A D | e3res.f | 41 dimension u1(npro), u2(npro), u3(npro), 42 & uBar(npro,nsd), aci(npro,nsd), WdetJ(npro), 43 & g1yi(npro,nflow), g2yi(npro,nflow), g3yi(npro,nflow), 44 & rLui(npro,nsd), rmu(npro), rho(npro), 45 & tauC(npro), tauM(npro), tauBar(npro), 46 & shpfun(npro,nshl),shg(npro,nshl,nsd), src(npro,nsd), 47 & pres(npro) 49 dimension rl(npro,nshl,nflow), 50 & acl(npro,nshl,ndof), 51 & rlsli(npro,6) [all …]
|
| H A D | asbmfg.f | 23 & ienb(npro,nshl), materb(npro), 24 & iBCB(npro,ndiBCB), BCB(npro,nshlb,ndBCB), 25 & res(nshg,nflow), dwl(npro,nenl) 27 dimension yl(npro,nshl,ndofl), xlb(npro,nenl,nsd), 28 & rl(npro,nshl,nflow), sgn(npro,nshl), 29 & ul(npro,nshl,nsd), acl(npro,nshl,ndofl) 31 dimension xKebe(npro,9,nshl,nshl) 96 & ienb(npro,nshl), materb(npro), 97 & iBCB(npro,ndiBCB), BCB(npro,nshlb,ndBCB), 100 dimension yl(npro,nshl,ndofl), xlb(npro,nenl,nsd), [all …]
|
| /phasta/phSolver/common/ |
| H A D | asbnabi.f | 15 dimension xlb(npro,nenl,nsd), bnorm(npro,nsd), 16 & rl(npro,nshl,nsd), WdetJb(npro), 17 & Wfactor(npro) 21 & ienb(npro,nshl), 22 & iBCB(npro,ndiBCB) 24 dimension lnode(27), sgn(npro,nshl), 25 & shpfun(npro,nshl), shdrv(npro,nsd,nshl) 28 dimension dxdxib(npro,nsd,nsd), temp(npro), 29 & temp1(npro), temp2(npro), 30 & temp3(npro), [all …]
|
| H A D | local.f | 23 dimension global(nshg,n), rlocal(npro,nshl,n), 24 & ien(npro,nshl), ientmp(npro,nshl) 54 gbytes = gbytes + n*nshl*npro 69 do nel = 1,npro 79 sbytes = sbytes + n*nshl*npro 80 flops = flops + n*nshl*npro 95 do nel = 1,npro 136 dimension global(numnp,n), rlocal(npro,nenl,n), 137 & ien(npro,nshl) 157 gbytes = gbytes + n*nenl*npro [all …]
|
| H A D | cmass.f | 35 & em(npro,nshl,nshl), 36 & xl(npro,nenl,nsd) 38 dimension shape(npro,nshl), shdrv(npro,nsd,nshl), 39 & sgn(npro,nshl), dxidx(npro,nsd,nsd), 40 & shg(npro,nshl,nsd), 41 & WdetJ(npro) 58 do iel = 1, npro 89 & em(npro,nshl,nshl), eml(npro,nshl), 90 & xl(npro,nenl,nsd) 92 dimension shape(npro,nshl), shdrv(npro,nsd,nshl), [all …]
|