Home
last modified time | relevance | path

Searched refs:numnp (Results 1 – 25 of 92) sorted by relevance

1234

/phasta/phSolver/common/ !
H A Dsonfath.f2 & numpe, numnp, maxnode) argument
9 integer inform,n1m,n2m,n3m,numpe,numpe1,numnp,maxnode, tfath, local
11 integer gfath(0:numnp),ifath(numpe,maxnode),ncorp(numpe,maxnode),
12 & nsons(tfath),dummy(numnp),iper(numnp), vnumnpl(numpe)
14 allocate (imap(numnp))
15 allocate (invmap(numnp))
32 do i=1,numnp
54 numnp = n1m*n2m*n3m
55 maxnode = numnp
121 read(96) (iper(l),l=1,numnp)
[all …]
H A Dspebc.f21 subroutine setSPEBC(numnp,nsd) argument
25 allocate (xyn(numnp))
26 allocate (xynin(numnp))
27 allocate (xcyl(numnp,nsd))
28 allocate (nen1(numnp))
H A Dturbsa.f49 real*8 x(numnp,nsd)
50 integer nwall(numpe), idisp(numpe), npwmark(numnp)
62 allocate ( d2wall(numnp) )
71 call read_d2wall(myrank,numnp,d2wall,ifoundd2wall)
85 npwmark(1:numnp)=0
98 nwalli=sum(npwmark(1:numnp))
108 do i = 1,numnp
189 do i=1,numnp
H A Dgetvel.f11 & velo(numnp,nflow), velf(nfath,nflow),
14 & y(numnp,ndof),
15 & ifath(numnp),
16 & ilwork(nlwork), iBC(numnp)
76 do i = 1,numnp
H A Drenum.f30 dimension x(numnp,nsd), nrin(numnp), nula(numnp),
49 do i=1,numnp
214 dimension x(numnp,nsd), nyin(numnp),
215 & erreur(nshl), xtmp(nsd), yrtmp(numnp)
H A Dd2wall.c19 int* numnp, in read_d2wall() argument
70 if (iarray[0] == (*numnp)) { in read_d2wall()
75 isize = (*numnp); in read_d2wall()
H A Dgendat.f27 & x(numnp,nsd), iBC(nshg),
41 dimension ifath(numnp), velbar(nfath,nflow), nsons(nfath)
79 do n = 1, numnp
218 call setSPEBC(numnp,nsd)
267 dimension x(numnp,3)
H A Dasbwmod.f13 dimension y(nshg,ndof), x(numnp, nsd),
16 & ifath(numnp), velbar(nfath,nflow),
H A Deqn_plane.f30 dimension x(numnp,nsd), nrin(numnp),
32 & erreur(nshl), iBC(numnp), xtmp(nsd)
44 do i=1,numnp
H A Dbctint.f71 real*8 y(nshg,nflow), x(numnp,3)
101 do id=1,numnp
133 real*8 x(numnp,nsd), BC(nshg,ndofBC), rj1,rj2,rj3,rj4,distd,epsd
183 allocate (nBCt(numnp))
194 do i=1,numnp
246 if(i.eq.numnp+1) then
304 real*8 x(numnp,nsd),
310 integer iBC(numnp),nlast,i,j,nper
H A Dsettauw.f16 dimension y(nshg,ndofl), x(numnp,nsd),
18 & ifath(numnp), velbar(nfath,nflow),
19 & ull(nsd), trx(numnp,nsd),
21 & evisc(numnp)
29 do nodw = 1, numnp ! loop over nodes
H A Dnew_interface.h81 int* numnp,
86 int* numnp,
H A Dgenscale.f24 dimension y(numnp,ndof), iBC(numnp),
25 & x(numnp,nsd), velbarR(nfint,nflow)
26 dimension ifath(numnp), velbarl(nelint,nshl,nflow),
27 & v1(nfint), ymapped(numnp,ndof),
/phasta/phSolver/compressible/ !
H A Dasbflx.f15 dimension y(nshg,ndof), x(numnp,nsd),
20 & invflx(numnp), flxres(numnp,nflow),
21 & flxLHS(numnp,1), flxnrm(numnp,nsd)
H A Dd2wall.f17 dimension x(numnp,nsd), dwall(numnp),
109 do i=1,numnp
H A Dasiflx.f16 & x(numnp,nsd),
20 & mater(npro), flxres(numnp,nflow)
H A Dasbmfg.f15 dimension y(nshg,ndofl), x(numnp,nsd),
82 dimension y(nshg,ndofl), x(numnp,nsd),
H A DBCprofile.f57 do kk=1,numnp
130 do kk=1,numnp
/phasta/phSolver/incompressible/ !
H A Drstatic.f39 & * Dy(1:numnp,1:3)),3,rdy1, numnp)
40 call sumgatN( abs( y(1:numnp,1:3)),3,rdy2,numnp)
42 & * Dy(1:numnp,4)),1,rdy4,numnp)
43 call sumgatN( abs( y(1:numnp,4)), 1,rdy5,numnp)
H A Dforces.f144 pave=sum(y(1:numnp,4))
146 xnpts=numnp
155 pavet = pave/numnp
158 y(1:numnp,4)=y(1:numnp,4)-pavet
159 pave=sum(y(1:numnp,4))
H A DelmStats.f11 real*8 x(numnp,3)
88 real*8 y(nshg,ndof), ac(nshg,ndof), x(numnp,nsd),
H A Dasiq.f27 dimension y(nshg,ndof), x(numnp,nsd),
95 dimension y(nshg,ndof), x(numnp,nsd),
/phasta/M2NFixBnd/include/ !
H A Dnew_interfaceM2NFixBnd.h88 int* numnp,
93 int* numnp,
/phasta/AcuStat/include/ !
H A Dnew_interfaceAcuStat.h102 int* numnp,
107 int* numnp,
/phasta/M2N/include/ !
H A Dnew_interfaceM2N.h119 int* numnp,
124 int* numnp,

1234