| /phasta/phSolver/common/ |
| H A D | local.f | 136 dimension global(numnp,n), rlocal(npro,nenl,n),
148 do i = 1, nenl
157 gbytes = gbytes + n*nenl*npro
172 do i = 1, nenl
184 sbytes = sbytes + n*nenl*npro
185 flops = flops + n*nenl*npro
|
| H A D | hierarchic.f | 19 do i=nenl+1,nshl
42 do i=1,nenl
49 do i=nenl+1,nshl
72 do i=1,nenl
79 do i=nenl+1,nshl
267 nenl = lcblk(5,iblk) ! no. of vertices per element
274 allocate ( xl(npro,nenl,nsd ) )
328 & shgl(nsd,nshl,npts), xl(npro,nenl,nsd),
|
| H A D | get_a_not_hex.f | 7 dimension xc(npro,nenl,nsd), anot(npro,nenl,nsd)
46 dimension xc(npro,nenl,nsd), anot(npro,nenl,nsd)
|
| H A D | get_coeff.f | 48 dimension xc(nelint,nenl,nsd), anot(nelint,nenl,nsd)
|
| H A D | cmass.f | 36 & xl(npro,nenl,nsd)
90 & xl(npro,nenl,nsd)
103 nods = nenl
213 & xl(npro,nenl,nsd)
321 real*8 xl(npro,nenl,nsd), shgl(npro,nsd,nshl),
332 do n = 1, nenl
|
| H A D | f3lhs.f | 37 & xlb(npro,nenl,nsd),
101 do n = 1, nenl ! when changed to nshl solution degraded ipord 10
123 if(ipord.gt.1) fnrml(:,nenl:nshl,:)=zero
|
| H A D | aveprep.f | 46 nenl = lcblk(5,iblk)
130 do i = 1, nenl
214 & xl(npro,nenl,nsd), ylist(idim)
229 do n = 1, nenl
322 nenl = lcblk(5,iblk)
373 nenl = lcblk(5,iblk)
414 nenl = lcblk(5,iblk)
466 do i = 1, nenl
|
| H A D | errorsmooth.f | 33 nenl = lcblk(5,iblk) ! no. of vertices per element
38 nenl = lcblk(5,iblk) ! no. of vertices per element
141 dimension rerrl(npro,nshl,10), xl(npro,nenl,nsd),
|
| H A D | genblkPosix.f | 45 nenl =intfromfile(2)
65 lcblk(5,nelblk) = nenl
|
| H A D | e3metric.f | 13 real*8 xl(npro,nenl,nsd), shgl(npro,nsd,nshl),
24 do n = 1, nenl
|
| /phasta/phSolver/incompressible/ |
| H A D | asiq.f | 29 & ien(npro,nshl), dwl(npro,nenl),
32 dimension yl(npro,nshl,ndof), xl(npro,nenl,nsd),
97 & ien(npro,nshl), dwl(npro,nenl),
100 dimension yl(npro,nshl,ndof), xl(npro,nenl,nsd),
|
| H A D | asigmr.f | 31 & xl(npro,nenl,nsd), dwl(npro,nenl),
148 & xl(npro,nenl,nsd),
150 & dwl(npro,nenl)
|
| H A D | asbmfg.f | 25 & res(nshg,nflow), dwl(npro,nenl)
27 dimension yl(npro,nshl,ndofl), xlb(npro,nenl,nsd),
100 dimension yl(npro,nshl,ndofl), xlb(npro,nenl,nsd),
|
| H A D | errsmooth.f | 34 nenl = lcblk(5,iblk) ! no. of vertices per element
39 nenl = lcblk(5,iblk) ! no. of vertices per element
142 dimension rerrl(npro,nshl,10), xl(npro,nenl,nsd),
|
| H A D | hessian.f | 32 nenl = lcblk(5,iblk) ! no. of vertices per element
61 nenl = lcblk(5,iblk) ! no. of vertices per element
98 dimension yl(npro,nshl,ndof), xl(npro,nenl,nsd),
173 dimension gradul(npro,nshl,9), xl(npro,nenl,nsd),
299 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd),
312 do n = 1, nenl
|
| H A D | e3qvar.f | 38 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd),
52 do n = 1, nenl
156 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd),
|
| H A D | e3ivar.f | 55 dimension yl(npro,nshl,ndof), dwl(npro,nenl),
57 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd),
101 do n = 1,nenl
110 do n = 1, nenl
291 do n = 1, nenl
330 & shgl(npro,nsd,nshl), xl(npro,nenl,nsd),
417 do n = 1,nenl
|
| H A D | elmStats.f | 25 nenl = lcblk(5,iblk) ! no. of vertices per element
30 allocate ( xl(npro,nenl,3) )
|
| /phasta/phSolver/compressible/ |
| H A D | elmgmr.f | 71 nenl = lcblk(5,iblk) ! no. of vertices per element
76 nenl = lcblk(5,iblk) ! no. of vertices per element
131 nenl = lcblk(5,iblk) ! no. of vertices per element
136 nenl = lcblk(5,iblk) ! no. of vertices per element
187 nenl = lcblkb(5,iblk) ! no. of vertices per element
354 nenl = lcblk(5,iblk) ! no. of vertices per element
412 nenl = lcblk(5,iblk) ! no. of vertices per element
417 nenl = lcblk(5,iblk) ! no. of vertices per element
491 nenl = lcblkb(5,iblk) ! no. of vertices per element
752 nenl = lcblk(5,iblk) ! no. of vertices per element
[all …]
|
| H A D | elmmfg.f | 70 nenl = lcblk(5,iblk) ! no. of vertices per element
75 nenl = lcblk(5,iblk) ! no. of vertices per element
129 nenl = lcblk(5,iblk) ! no. of vertices per element
134 nenl = lcblk(5,iblk) ! no. of vertices per element
180 nenl = lcblkb(5,iblk) ! no. of vertices per element
|
| H A D | elmgmrpetsc.f | 85 nenl = lcblk(5,iblk) ! no. of vertices per element
90 nenl = lcblk(5,iblk) ! no. of vertices per element
146 nenl = lcblk(5,iblk) ! no. of vertices per element
151 nenl = lcblk(5,iblk) ! no. of vertices per element
223 nenl = lcblkb(5,iblk) ! no. of vertices per element
374 nenl = lcblk(5,iblk) ! no. of vertices per element
448 nenl = lcblkb(5,iblk) ! no. of vertices per element
|
| H A D | itrres.f | 56 nenl = lcblk(5,iblk) ! no. of vertices per element
61 nenl = lcblk(5,iblk) ! no. of vertices per element
114 nenl = lcblkb(5,iblk) ! no. of vertices per element
|
| H A D | asigmr.f | 30 & xl(npro,nenl,nsd), ytargetl(npro,nshl,nflow),
151 & acl(npro,nshl,ndof), dwl(npro,nenl),
152 & xl(npro,nenl,nsd), Diagl(npro,nshl),
|
| H A D | asbmfg.f | 22 dimension ycl(npro,nshl,ndofl), xlb(npro,nenl,nsd),
89 dimension ycl(npro,nshl,ndofl), xlb(npro,nenl,nsd),
|
| H A D | au1gmr.f | 53 nenl = lcblk(5,iblk)
153 nenl = lcblk(5,iblk)
|