| /phasta/phSolver/common/ |
| H A D | genshpb.f | 1 subroutine genshpb (shpb, shglb, nshpb, nblk) argument
14 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
32 & shglb(1,:,:,i))
34 shglb(1,:,1:nshl,1:nintb(lcsyst)) =
35 & shglb(1,:,1:nshl,1:nintb(lcsyst))/two
41 & shglb(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 | asbnabi.f | 20 & shpb(nshl,ngaussb), shglb(nsd,nshl,ngaussb),
119 shglb=zero ! protect debugger
120 call getshpb(shpb, shglb, sgn,
178 & shpb(nshl,ngaussb), shglb(nsd,nshl,ngaussb),
277 shglb=zero ! protect debugger
278 call getshpb(shpb, shglb, sgn,
|
| H A D | gendat.f | 3 & shp, shgl, shpb, shglb, argument
37 & shglb(MAXTOP,nsd,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
38 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
83 call BCint(lstep*Delt(1),shp,shgl,shpb,shglb,x, BC, iBC)
|
| H A D | proces.f | 34 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
61 & shgl, shpb, shglb,
209 & shgl, shpb, shglb,
|
| /phasta/phSolver/compressible/ |
| H A D | e3bvar.f | 1 subroutine e3bvar (yl, ycl, BCB, shpb, shglb, argument
56 & shglb(npro,nsd,nshl),
134 dxdxib(:,1,1) = dxdxib(:,1,1) + xlb(:,n,1) * shglb(:,1,n)
135 dxdxib(:,1,2) = dxdxib(:,1,2) + xlb(:,n,1) * shglb(:,2,n)
136 dxdxib(:,1,3) = dxdxib(:,1,3) + xlb(:,n,1) * shglb(:,3,n)
137 dxdxib(:,2,1) = dxdxib(:,2,1) + xlb(:,n,2) * shglb(:,1,n)
138 dxdxib(:,2,2) = dxdxib(:,2,2) + xlb(:,n,2) * shglb(:,2,n)
139 dxdxib(:,2,3) = dxdxib(:,2,3) + xlb(:,n,2) * shglb(:,3,n)
140 dxdxib(:,3,1) = dxdxib(:,3,1) + xlb(:,n,3) * shglb(:,1,n)
141 dxdxib(:,3,2) = dxdxib(:,3,2) + xlb(:,n,3) * shglb(:,2,n)
[all …]
|
| H A D | itrfdi.f | 5 & shpb, shglb)
53 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
73 & shglb, rtmp,
107 & shglb, rtmp,
124 & shglb, rtmp,
155 & shpb, shglb, wghtb)
212 & shglb, wghtb, rtmp,
238 & shglb, wghtb, rtmp,
250 & shglb, wghtb, rtmp,
|
| H A D | asbmfg.f | 1 subroutine AsBMFG (y, x, shpb, shglb, argument
17 & shglb(nsd,nshl,ngaussb),
54 call e3b (ycl, ycl, iBCB, BCB, shpb, shglb,
68 subroutine AsBMFGSclr (y, x, shpb, shglb, argument
84 & shglb(nsd,nshl,maxsh),
113 & shpb, shglb, sgn,
|
| H A D | asbflx.f | 1 subroutine AsBFlx (y, x, shpb, shglb, argument
17 & shglb(nsd,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)
48 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
77 & shglb, uBtmp1,
101 & shglb, uBtmp2,
|
| H A D | asbres.f | 1 subroutine AsBRes (y, yc, x, shpb, shglb, argument
17 & shglb(nsd,nshl,ngaussb),
43 call e3b (yl, ycl, iBCB, BCB, shpb, shglb,
|
| H A D | au1mfg.f | 6 & shglb)
53 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
76 & shglb, uBtmp,
|
| H A D | solmfg.f | 7 & shpb, shglb, Dy, rerr) argument
60 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
74 & shpb, shglb,
171 & shpb, shglb)
192 & shpb, shglb)
234 & shpb, shglb)
|
| H A D | itrres.f | 4 & shglb, rmes, iper, argument
30 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
128 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
|
| H A D | elmgmr.f | 3 & BC, shpb, shglb, argument
34 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
206 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
282 & BC, shpb, shglb, argument
317 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
516 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
620 & BC, shpb, shglb, argument
650 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
834 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
|
| H A D | elmgmrpetsc.f | 8 & BC, shpb, shglb, argument
44 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
242 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
304 & BC, shpb, shglb, argument
334 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
466 tmpshglb(:,1:nshl,:) = shglb(lcsyst,:,1:nshl,:)
|
| H A D | itrdrv.f | 4 & shgl, shpb, shglb, argument
57 & shglb(MAXTOP,nsd,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
22 & shglb(nsd,nshl,ngaussb),
65 & shpb, shglb,
87 subroutine AsBSclr (y, x, shpb, shglb, argument
95 & shglb(nsd,nshl,*),
122 call e3bSclr (yl, iBCB, BCB, shpb, shglb,
|
| H A D | asbflx.f | 3 & shglb, ienb, iBCB, argument
21 & shglb(nsd,nshl,ngaussb),
63 & shpb, shglb,
74 call f3lhs (shpb, shglb, xlb,
|
| H A D | e3bvar.f | 2 & shpb, shglb, argument
52 & shpb(npro,nshl), shglb(npro,nsd,nshl),
142 dxdxib(:,1,1) = dxdxib(:,1,1) + xlb(:,n,1) * shglb(:,1,n)
143 dxdxib(:,1,2) = dxdxib(:,1,2) + xlb(:,n,1) * shglb(:,2,n)
144 dxdxib(:,1,3) = dxdxib(:,1,3) + xlb(:,n,1) * shglb(:,3,n)
145 dxdxib(:,2,1) = dxdxib(:,2,1) + xlb(:,n,2) * shglb(:,1,n)
146 dxdxib(:,2,2) = dxdxib(:,2,2) + xlb(:,n,2) * shglb(:,2,n)
147 dxdxib(:,2,3) = dxdxib(:,2,3) + xlb(:,n,2) * shglb(:,3,n)
148 dxdxib(:,3,1) = dxdxib(:,3,1) + xlb(:,n,3) * shglb(:,1,n)
149 dxdxib(:,3,2) = dxdxib(:,3,2) + xlb(:,n,3) * shglb(:,2,n)
[all …]
|
| H A D | elmStats.f | 80 & shpb, shglb, iBC, BC, argument
91 & shglb(MAXTOP,nsd,maxsh,MAXQPT), local
109 & BC, shpb, shglb,
|
| H A D | soldir.f | 6 & shp, shgl, shpb, shglb) argument
28 & shglb(MAXTOP,nsd,maxsh,MAXQPT)
53 & BC, shpb, shglb,
|
| H A D | e3b.f | 2 & shpb, shglb, argument
56 & shglb(nsd,nshl,ngaussb),
102 call getshp(shpb, shglb, sgn,
374 subroutine e3bSclr (yl, iBCB, BCB, shpb, shglb, argument
380 & shglb(nsd,nshl,*),
407 call getshp(shpb, shglb, sgn,
|
| H A D | solfar.f | 6 & shpb, shglb, rowp, argument
94 & shglb(MAXTOP,nsd,maxsh,MAXQPT) local
147 & BC, shpb, shglb,
346 & shpb, shglb, rowp, argument
402 & shglb(MAXTOP,nsd,maxsh,MAXQPT) local
441 & BC, shpb, shglb,
|