Home
last modified time | relevance | path

Searched refs:npwmark (Results 1 – 1 of 1) sorted by relevance

/phasta/phSolver/common/
H A Dturbsa.f50 integer nwall(numpe), idisp(numpe), npwmark(numnp) local
85 npwmark(1:numnp)=0
93 npwmark(npw)=1
98 nwalli=sum(npwmark(1:numnp))
109 if(npwmark(i).eq.1) then