Home
last modified time | relevance | path

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

/phasta/phSolver/common/
H A Dgetdmc.f295 numNden(:,1) = whist*numNden(:,1)+wcur*xnuder(ifath(:),1)
296 numNden(:,2) = whist*numNden(:,2)+wcur*xnuder(ifath(:),2)
297 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
317 numNden(:,1) = whist*numNden(:,1)+wcur*xnude(ifath(:),1)
318 numNden(:,2) = whist*numNden(:,2)+wcur*xnude(ifath(:),2)
319 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
H A Dfiltprep.f8 real*8, allocatable :: numNden(:,:) variable
60 allocate ( numNden(nshg,2) )
76 numNden = zero
H A Drwvelb.f24 numNden=zero ! in case the read fails
90 write (irstou) numNden
H A Dbardmc.f465 numNden(:,1) = whist*numNden(:,1)+wcur*xnuder(ifath(:),1)
466 numNden(:,2) = whist*numNden(:,2)+wcur*xnuder(ifath(:),2)
467 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
484 numNden(:,1) = whist*numNden(:,1)+wcur*xnude(ifath(:),1)
485 numNden(:,2) = whist*numNden(:,2)+wcur*xnude(ifath(:),2)
486 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
/phasta/phSolver/incompressible/
H A DadvLES.f1338 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
1814 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
2033 rnum(ifath(:)) = numNden(:,1)
2034 rden(ifath(:)) = numNden(:,2)
2068 numNden(i,1) = xnume(ifath(i))
2069 numNden(i,2) = xdeno(ifath(i))
2072 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
2858 numNden(:,1) = whist*numNden(:,1)+wcur*xnuder(ifath(:),1)
2859 numNden(:,2) = whist*numNden(:,2)+wcur*xnuder(ifath(:),2)
2860 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
[all …]
H A Dfilters.f1013 rnum(ifath(:)) = numNden(:,1)
1014 rden(ifath(:)) = numNden(:,2)
1021 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
2043 numNden(:,1) = whist*numNden(:,1)+wcur*xnuder(ifath(:),1)
2044 numNden(:,2) = whist*numNden(:,2)+wcur*xnuder(ifath(:),2)
2045 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
2106 numNden(:,1) = whist*numNden(:,1)+wcur*xnude(ifath(:),1)
2107 numNden(:,2) = whist*numNden(:,2)+wcur*xnude(ifath(:),2)
2112 cdelsq(:) = numNden(:,1) / (numNden(:,2) + 1.d-09)
2785 numNden(:,1) = whist*numNden(:,1)+wcur*xnuder(ifath(:),1)
[all …]