| /phasta/phSolver/common/ |
| H A D | genshpb.f | 1 subroutine genshpb (shpb, shglb, nshpb, nblk) argument
13 dimension shpb(MAXTOP,maxsh,MAXQPT),
31 call shpTet(ipord,Qptb(1,1:3,i),shpb(1,:,i),
40 call shpHex (ipord, Qptb(2,1:3,i),shpb(2,:,i),
48 & shpb(3,:,i),shglb(3,:,:,i))
55 & shpb(4,:,i),shglb(4,:,:,i))
61 & shpb(5,:,i),shglb(5,:,:,i))
68 & shpb(6,:,i),shglb(6,:,:,i))
|
| H A D | pvsqbi.f | 38 subroutine initNABI( x, shpb ) argument
50 dimension shpb(MAXTOP,maxsh,MAXQPT)
103 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
|
| H A D | asbnabi.f | 1 subroutine AsBNABI ( x, shpb, argument
20 & shpb(nshl,ngaussb), shglb(nsd,nshl,ngaussb),
120 call getshpb(shpb, shglb, sgn,
159 subroutine AsBNASC ( x, shpb, argument
178 & shpb(nshl,ngaussb), shglb(nsd,nshl,ngaussb),
278 call getshpb(shpb, shglb, sgn,
|
| H A D | proces.f | 33 & shpb(MAXTOP,maxsh,MAXQPT),
61 & shgl, shpb, shglb,
88 call initNABI( point2x, shpb )
209 & shgl, shpb, shglb,
|
| H A D | gendat.f | 3 & shp, shgl, shpb, shglb, argument
36 & shpb(MAXTOP,maxsh,MAXQPT),
196 call genshpb ( shpb, shglb, nshapeb, nelblb)
230 & shp, shgl, shpb, shglb)
|
| H A D | f3lhs.f | 1 subroutine f3lhs (shpb, shglb, xlb, flhsl, argument
36 dimension shpb(nshl,ngaussb), shglb(nsd,nshl,ngaussb),
79 call getshp(shpb, shglb, sgn,
|
| H A D | genini.f | 3 & shp, shgl, shpb, shglb ) argument
37 & shpb(MAXTOP,maxsh,MAXQPT),
83 call BCint(lstep*Delt(1),shp,shgl,shpb,shglb,x, BC, iBC)
|
| /phasta/phSolver/compressible/ |
| H A D | itrfdi.f | 5 & shpb, shglb)
52 & shpb(MAXTOP,maxsh,MAXQPT),
72 & BC, shpb,
106 & BC, shpb,
123 & BC, shpb,
155 & shpb, shglb, wghtb)
211 & BC, engBC, shpb,
237 & BC, engBC, shpb,
249 & BC, engBC, shpb,
|
| H A D | e3bvar.f | 1 subroutine e3bvar (yl, ycl, BCB, shpb, shglb, argument
55 & shpb(npro,nshl),
98 pres = pres + shpb(:,nodlcl) * yl(:,nodlcl,1)
99 u1 = u1 + shpb(:,nodlcl) * yl(:,nodlcl,2)
100 u2 = u2 + shpb(:,nodlcl) * yl(:,nodlcl,3)
101 u3 = u3 + shpb(:,nodlcl) * yl(:,nodlcl,4)
102 T = T + shpb(:,nodlcl) * yl(:,nodlcl,5)
115 temp = temp + shpb(:,n) * ycl(:,n,isc)
337 rou = rou + shpb(:,nodlcl) * BCB(:,n,1)
338 p = p + shpb(:,nodlcl) * BCB(:,n,2)
[all …]
|
| H A D | asbmfg.f | 1 subroutine AsBMFG (y, x, shpb, shglb, argument
16 & shpb(nshl,ngaussb),
54 call e3b (ycl, ycl, iBCB, BCB, shpb, shglb,
68 subroutine AsBMFGSclr (y, x, shpb, shglb, argument
83 & shpb(nshl,maxsh),
113 & shpb, shglb, sgn,
|
| H A D | asbflx.f | 1 subroutine AsBFlx (y, x, shpb, shglb, argument
16 & shpb(nshl,ngaussb),
53 call e3b (ycl, ycl, iBCB, BCB, shpb, shglb,
77 call f3lhs (shpb, shglb, xlb, flhsl,
|
| H A D | au2mfg.f | 6 & shpb, shglb)
47 & shpb(MAXTOP,maxsh,MAXQPT),
76 & BC, shpb,
100 & BC, shpb,
|
| H A D | asbres.f | 1 subroutine AsBRes (y, yc, x, shpb, shglb, argument
16 & yc(nshg,ndof), shpb(nshl,ngaussb),
43 call e3b (yl, ycl, iBCB, BCB, shpb, shglb,
|
| H A D | au1mfg.f | 5 & shgl, shpb,
52 & shpb(MAXTOP,maxsh,MAXQPT),
75 & BC, shpb,
|
| H A D | solmfg.f | 7 & shpb, shglb, Dy, rerr) argument
59 & shpb(MAXTOP,maxsh,MAXQPT),
74 & shpb, shglb,
171 & shpb, shglb)
192 & shpb, shglb)
234 & shpb, shglb)
|
| H A D | itrres.f | 3 & iBC, BC, shpb, argument
29 & shpb(MAXTOP,maxsh,MAXQPT),
127 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
|
| H A D | elmgmr.f | 3 & BC, shpb, shglb, argument
33 & shpb(MAXTOP,maxsh,MAXQPT),
205 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
282 & BC, shpb, shglb, argument
316 & shpb(MAXTOP,maxsh,MAXQPT),
515 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
620 & BC, shpb, shglb, argument
649 & shpb(MAXTOP,maxsh,MAXQPT),
833 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
|
| H A D | elmgmrpetsc.f | 8 & BC, shpb, shglb, argument
43 & shpb(MAXTOP,maxsh,MAXQPT),
241 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
304 & BC, shpb, shglb, argument
333 & shpb(MAXTOP,maxsh,MAXQPT),
465 tmpshpb(1:nshl,:) = shpb(lcsyst,1:nshl,:)
|
| H A D | itrdrv.f | 4 & shgl, shpb, shglb, argument
56 & shpb(MAXTOP,maxsh,MAXQPT),
357 & shpb, shglb, x, BC, iBC)
470 & shpb, shglb, solinc,
486 & shpb, shglb, solinc,
504 & shpb, shglb, solinc,
523 & shpb, shglb, solinc,
568 & shpb, shglb, rest,
584 & shpb, shglb, solinc(1,isclr+5))
|
| /phasta/phSolver/incompressible/ |
| H A D | asbmfg.f | 2 & shpb, shglb, argument
21 & shpb(nshl,ngaussb),
65 & shpb, shglb,
87 subroutine AsBSclr (y, x, shpb, shglb, argument
94 & shpb(nshl,*),
122 call e3bSclr (yl, iBCB, BCB, shpb, shglb,
|
| H A D | asbflx.f | 2 & x, shpb, argument
20 & shpb(nshl,ngaussb),
63 & shpb, shglb,
74 call f3lhs (shpb, shglb, xlb,
|
| H A D | elmStats.f | 80 & shpb, shglb, iBC, BC, argument
90 & shpb(MAXTOP,maxsh,MAXQPT), local
109 & BC, shpb, shglb,
|
| H A D | soldir.f | 6 & shp, shgl, shpb, shglb) argument
27 & shpb(MAXTOP,maxsh,MAXQPT),
53 & BC, shpb, shglb,
|
| H A D | e3b.f | 2 & shpb, shglb, argument
55 & BCB(npro,nshlb,ndBCB), shpb(nshl,ngaussb),
102 call getshp(shpb, shglb, sgn,
374 subroutine e3bSclr (yl, iBCB, BCB, shpb, shglb, argument
379 & BCB(npro,nshlb,ndBCB), shpb(nshl,*),
407 call getshp(shpb, shglb, sgn,
|
| H A D | solfar.f | 6 & shpb, shglb, rowp, argument
93 & shpb(MAXTOP,maxsh,MAXQPT), local
147 & BC, shpb, shglb,
346 & shpb, shglb, rowp, argument
401 & shpb(MAXTOP,maxsh,MAXQPT), local
441 & BC, shpb, shglb,
|