| /phasta/phSolver/incompressible/ |
| H A D | asbmfg.f | 3 & ienb, materb, iBCB, BCB, argument
23 & ienb(npro,nshl), materb(npro),
37 call getsgn(ienb,sgn)
42 call localy(y, yl, ienb, ndofl, 'gather ')
43 call localy(ac, acl, ienb, ndofl, 'gather ')
44 call localx(x, xlb, ienb, nsd, 'gather ')
45 call localx(u, ul, ienb, nsd, 'gather ')
47 call local(d2wall, dwl, ienb, 1, 'gather ')
70 call local (res, rl, ienb, nflow, 'scatter ')
88 & ienb, materb, iBCB, BCB, argument
[all …]
|
| H A D | asbflx.f | 3 & shglb, ienb, iBCB, argument
22 & ienb(npro,nshl),
44 call getsgn(ienb,sgn)
49 call localy(y, yl, ienb, ndofl, 'gather ')
50 call localy(ac, acl, ienb, ndofl, 'gather ')
51 call localx(x, xlb, ienb, nsd, 'gather ')
52 call localx(u, ul, ienb, nsd, 'gather ')
54 call local(d2wall, dwl, ienb, 1, 'gather ')
69 call local (flxres, rl, ienb, nflow, 'scatter ')
82 lnflx = lnflx + min(1, invflx(ienb(:,lnode(n))))
[all …]
|
| H A D | bflux.f | 410 subroutine flxNode(ienb, iBCB, flg) argument
419 & ienb(npro, nshl), lnode(27) local
430 flg(abs(ienb(i,nodelcl)))=flg(abs(ienb(i,nodelcl)))+1
|
| /phasta/phSolver/compressible/ |
| H A D | asbmfg.f | 2 & ienb, materb, iBCB, BCB,
18 & ienb(npro,nshl), materb(npro),
33 call getsgn(ienb,sgn)
39 call localy(y, ycl, ienb, ndofl, 'gather ')
40 call localx(x, xlb, ienb, nsd, 'gather ')
58 call local(res, rl, ienb, nflow, 'scatter ')
60 & call local(rmes, rml, ienb, nflow, 'scatter ')
69 & ienb, materb, iBCB,
85 & ienb(npro,nshl), materb(npro),
97 call getsgn(ienb,sgn)
[all …]
|
| H A D | asbflx.f | 2 & ienb, materb, iBCB, BCB, argument
18 & ienb(npro,nshl), materb(npro),
39 call getsgn(ienb,sgn)
46 call localy(y, ycl, ienb, ndofl, 'gather ')
47 call localx(x, xlb,ienb, nsd, 'gather ')
58 call local (flxres, rl, ienb, nflow, 'scatter ')
86 & min(1, invflx(abs(ienb(:,mnodeb(n,lelCat,nsd)))))
99 call local (flxLHS, flhsl, ienb, 1, 'scatter ')
101 call local (flxnrm, fnrml, ienb, nsd, 'scatter ')
|
| H A D | asbres.f | 2 & ienb, materb, iBCB, BCB, argument
18 & ienb(npro,nshl), materb(npro),
31 call getsgn(ienb,sgn)
36 call localy(y, yl, ienb, nflow, 'gather ')
37 call localy(yc, ycl, ienb, ndof, 'gather ')
38 call localx(x, xlb, ienb, nsd, 'gather ')
51 call local(rmes, rml, ienb, nflow, 'scatter ')
|
| /phasta/phSolver/common/ |
| H A D | mod_wallData.f90 | 32 integer, allocatable :: ienb(:) local
55 allocate(ienb(nshl))
58 ienb(1:nshl)=mienb(iblk)%p(i,1:nshl)
60 nn=ienb(j) !nn is the global index of suction node
62 aedg(:)=x(ienb(j+1),:)-x(nn,:)
63 bedg(:)=x(ienb(j-1),:)-x(nn,:)
65 aedg(:)=x(ienb(j+1),:)-x(nn,:)
66 bedg(:)=x(ienb(nenbl),:)-x(nn,:)
68 aedg(:)=x(ienb(1),:)-x(nn,:)
69 bedg(:)=x(ienb(j-1),:)-x(nn,:)
[all …]
|
| H A D | findTurbWall.f | 9 integer, allocatable :: ienb(:) local
18 allocate(ienb(nshl))
22 ienb(1:nshl)=mienb(iblk)%p(i,1:nshl)
24 nn=ienb(j)
28 deallocate(ienb)
|
| H A D | findslpw.f | 10 integer, allocatable :: ienb(:) local
32 allocate(ienb(nshl))
37 ienb(1:nshl)=mienb(iblk)%p(i,1:nshl)
39 nn=ienb(j)
50 aedg(:)=x(ienb(j+1),:)-x(nn,:)
51 bedg(:)=x(ienb(j-1),:)-x(nn,:)
53 aedg(:)=x(ienb(j+1),:)-x(nn,:)
54 bedg(:)=x(ienb(nenbl),:)-x(nn,:)
56 aedg(:)=x(ienb(1),:)-x(nn,:)
57 bedg(:)=x(ienb(j-1),:)-x(nn,:)
[all …]
|
| H A D | eqn_plane.f | 37 integer, allocatable :: ienb(:,:) local
64 allocate (ienb(npro,nshl))
66 ienb(:,:)=mienb(iblk)%p(:,:)
72 if (ienb(i,k).eq.nen1(j)) then
78 xA(:) = x(ienb(inum,1),:)
79 xB(:) = x(ienb(inum,2),:)
80 xC(:) = x(ienb(inum,3),:)
81 xD(:) = x(ienb(inum,4),:)
82 deallocate (ienb)
86 deallocate (ienb)
|
| H A D | sfID2np.f | 21 integer, allocatable :: ienb(:) local
30 allocate(ienb(nshl))
37 ienb(1:nshl)=mienb(iblk)%p(i,1:nshl) !ienb = index of element nodes local
39 …nn=ienb(j) !nn is a global node index. The array ienb is probably the global indeces of the nod…
47 deallocate(ienb)
|
| H A D | asbnabi.f | 2 & ienb, iBCB) argument
21 & ienb(npro,nshl),
37 call getsgn(ienb,sgn)
42 call localx(x, xlb, ienb, nsd, 'gather ')
141 call local (NABI, rl, ienb, 3, 'scatter ')
149 ndsurf(ienb(iel,1:nshlb))=iface
160 & ienb, iBCB) argument
179 & ienb(npro,nshl),
195 call getsgn(ienb,sgn)
200 call localx(x, xlb, ienb, nsd, 'gather ')
[all …]
|
| H A D | ibcupdate.f | 1 subroutine iBCupdate(iBCpart, ienb, iBCB) argument
12 & ienb(npro,nshl)
17 iglobal = ienb(iel,inode)
|
| H A D | genbc.f | 194 integer, allocatable :: ienb(:) local
231 allocate( ienb(nshl) )
235 ienb(1:nshl)=mienb(iblk)%p(i,1:nshl)
245 e1 = x(ienb(2),:)-x(ienb(1),:)
246 e2 = x(ienb(3),:)-x(ienb(1),:)
258 nn=ienb(j) ! global node number
268 deallocate(ienb)
749 integer, allocatable :: ienb(:) local
766 allocate( ienb(nshl) )
770 ienb(1:nshl)=mienb(iblk)%p(i,1:nshl)
[all …]
|
| H A D | gensvb.f | 2 & ienb, iBCB, BCB, materb) argument
29 dimension mattmp(npro), ienb(npro,nshl),
36 ienb(:,i) = ientmp(:,i)
|
| H A D | dtn.f | 106 subroutine dtnl(iBC,BC,ienb,iBCB,BCB) argument
108 integer ienb(npro,nshl), iBC(nshg),iBCB(npro,ndiBCB) local
123 call localb(tmpBC,tmpBCB,ienb,nsclr,'gather ')
|
| H A D | common.h | 308 c mienb (MAXBLK) : pointer to ienb array
|
| /phasta/M2NFixBnd/include/ |
| H A D | commonM2NFixBnd.h | 265 c mienb (MAXBLK) : pointer to ienb array
|
| /phasta/M2N/include/ |
| H A D | commonM2N.h | 266 c mienb (MAXBLK) : pointer to ienb array
|
| /phasta/AcuStat/include/ |
| H A D | commonAcuStat.h | 265 c mienb (MAXBLK) : pointer to ienb array
|