| /phasta/phSolver/common/ |
| H A D | hierarchic.f | 9 subroutine getsgn(ien, sgn) argument
17 dimension ien(npro,nshl), sgn(npro,nshl)
21 sgn(:,i) = -one
23 sgn(:,i) = one
30 subroutine getshp(shp, shgl, sgn, shape, shdrv) argument
38 & sgn(npro,nshl), shape(npro,nshl),
50 shape(:,i) = sgn(:,i) * shp(i,intp)
52 shdrv(:,j,i) = shgl(j,i,intp)*sgn(:,i)
60 subroutine getshpb(shp, shgl, sgn, shape, shdrv) argument
68 & sgn(npro,nshl), shape(npro,nshl),
[all …]
|
| H A D | cmass.f | 39 & sgn(npro,nshl), dxidx(npro,nsd,nsd),
51 call getshp(shp, shgl, sgn,
93 & sgn(npro,nshl), dxidx(npro,nsd,nsd),
115 call getshp(shpf, shglf, sgn,
149 call getshp(shp, shgl, sgn,
216 & sgn(npro,nshl), dxidx(npro,nsd,nsd),
232 call getshp(shpf, shglf, sgn,
266 call getshp(shp, shgl, sgn,
|
| H A D | asbnabi.f | 24 dimension lnode(27), sgn(npro,nshl),
37 call getsgn(ienb,sgn)
120 call getshpb(shpb, shglb, sgn,
182 dimension lnode(27), sgn(npro,nshl),
195 call getsgn(ienb,sgn)
278 call getshpb(shpb, shglb, sgn,
|
| H A D | f3lhs.f | 2 & fnrml, sgn ) argument
45 dimension sgn(npro,nshl), shape(npro,nshl),
79 call getshp(shpb, shglb, sgn,
|
| H A D | errorsmooth.f | 144 dimension sgn(npro,nshl), shape(npro,nshl),
154 call getsgn(ien,sgn)
180 call getshp(shp, shgl, sgn,
|
| /phasta/phSolver/incompressible/ |
| H A D | asiq.f | 36 dimension sgn(npro,nshl)
43 sgn(:,i) = -one
45 sgn(:,i) = one
66 & xmudmi, sgn )
103 dimension sgn(npro,nshl)
106 call getsgn(ien,sgn)
124 & sgn )
|
| H A D | asiqGradV.f | 33 dimension sgn(npro,nshl)
40 sgn(:,i) = -one
42 sgn(:,i) = one
59 & sgn )
|
| H A D | asbmfg.f | 28 & rl(npro,nshl,nflow), sgn(npro,nshl),
37 call getsgn(ienb,sgn)
66 & xlb, rl, sgn, dwl, xKebe)
101 & rl(npro,nshl), sgn(npro,nshl)
107 call getsgn(ienb,sgn)
123 & xlb, rl, sgn, dwl)
|
| H A D | asigmr.f | 44 dimension sgn(npro,nshl)
55 call getsgn(ien,sgn)
89 & sgn, rerrl, rlsl, CFLworst)
111 call timeseries(yl,xl,ien,sgn)
156 real*8 sgn(npro,nshl) local
161 call getsgn(ien,sgn)
183 & sgn, xmudmi)
|
| H A D | e3.f | 3 & xKebe, xGoC, xmudmi, sgn, argument
58 & xmudmi(npro,ngauss), sgn(npro,nshl),
77 & sgn)
89 call getshp(shp, shgl, sgn,
166 & sgn, xmudmi) argument
191 & sgn(npro,nshl), shpfun(npro,nshl), local
211 call e3qlSclr (yl, dwl, shp, shgl, xl, ql, sgn)
222 call getshp(shp, shgl, sgn,
|
| H A D | asbflx.f | 28 & rl(npro,nshl,nflow), sgn(npro,nshl),
44 call getsgn(ienb,sgn)
64 & xlb, rl, sgn, dwl, xKebe)
75 & flhsl, fnrml, sgn )
|
| H A D | e3qGradV.f | 3 & sgn ) argument
35 dimension sgn(npro,nshl), shape(npro,nshl),
45 call getshp(shp, shgl, sgn,
|
| H A D | e3q.f | 3 & xmudmi, sgn ) argument
39 dimension sgn(npro,nshl), shape(npro,nshl),
60 call getshp(shp, shgl, sgn,
208 & sgn ) argument
231 dimension sgn(npro,nshl), shape(npro,nshl),
246 call getshp(shp, shgl, sgn,
|
| H A D | e3ql.f | 3 & sgn ) argument
27 & xl(npro,nenl,nsd), sgn(npro,nshl),
54 call getshp(shp, shgl, sgn, shape, shdrv)
178 & xl, ql, sgn ) argument
193 & xl(npro,nenl,nsd), sgn(npro,nshl),
217 call getshp(shp, shgl, sgn, shape, shdrv)
|
| H A D | hessian.f | 103 dimension sgn(npro,nshl)
110 sgn(:,i) = -one
112 sgn(:,i) = one
133 call getshp( shp, shgl, sgn, shape, shdrv )
178 dimension sgn(npro,nshl)
185 sgn(:,i) = -one
187 sgn(:,i) = one
208 call getshp( shp, shgl, sgn, shape, shdrv )
|
| H A D | e3b.f | 3 & xlb, rl, sgn, dwl, xKebe) argument
75 dimension lnode(27), sgn(npro,nshl),
102 call getshp(shpb, shglb, sgn,
375 & xlb, rl, sgn, dwl) argument
386 dimension lnode(27), sgn(npro,nshl),
407 call getshp(shpb, shglb, sgn,
|
| /phasta/phSolver/compressible/ |
| H A D | asbmfg.f | 27 dimension sgn(npro,nshl)
33 call getsgn(ienb,sgn)
55 & xlb, rl, rml, sgn, EGmass)
97 call getsgn(ienb,sgn)
113 & shpb, shglb, sgn,
|
| H A D | asigmr.f | 36 dimension sgn(npro,nshl), EGmass(npro,nedof,nedof)
47 call getsgn(ien,sgn)
77 & BDiagl, ql, sgn, rlsl, EGmass,
111 call timeseries(ycl,xl,ien,sgn)
154 & qtl(npro,nshl), sgn(npro,nshl)
161 call getsgn(ien,sgn)
183 & sgn, shgl, xl,
|
| H A D | asbflx.f | 28 dimension sgn(npro,nshl)
39 call getsgn(ienb,sgn)
54 & xlb, rl, rml, sgn)
78 & fnrml, sgn)
|
| H A D | asiq.f | 38 dimension sgn(npro,nshape)
44 call getsgn(ien,sgn)
60 & xmudmi, sgn )
|
| H A D | asbres.f | 25 dimension sgn(npro,nshl)
31 call getsgn(ienb,sgn)
44 & xlb, rml, rml, sgn)
|
| H A D | asiflx.f | 29 dimension sgn(npro,nshl)
38 call getsgn(ien,sgn)
65 & xmudmi, BDiagl, ql, sgn, rlsl, EGmassd)
|
| H A D | asires.f | 28 dimension sgn(npro,nshl)
48 call getsgn(ien,sgn)
80 & xmudmi, BDiagl, ql, sgn, rlsl, EGmassd,
|
| H A D | asimfg.f | 35 dimension sgn(npro,nshl)
44 call getsgn(ien,sgn)
79 & BDiagl, ql, sgn, rlsl, EGmassd,
|
| H A D | e3.f | 3 & BDiagl, ql, sgn, rlsl, EGmass, argument
83 dimension rLyi(npro,nflow), sgn(npro,nshl)
101 call e3ql (ycl, shp, shgl, xl, ql, xmudmi, sgn)
116 call getshp(shp, shgl, sgn,
138 & ql, divqi, sgn,
313 & shp, sgn, argument
367 & dist2w(npro), sgn(npro,nshl),
412 call getshp(shp, shgl, sgn,
|