Searched refs:stsPresSqr (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | stats.f | 20 real*8, allocatable :: stsPres(:), stsPresSqr(:), stsVel(:,:), variable
60 allocate ( stsPresSqr(nshg) )
67 stsPresSqr = 0.0
255 stsPresSqr(i) = stsPresSqr(i) + y(i,4)*y(i,4)
340 stsPresSqr(i) = stsPresSqr(i) + stsVec(i,4)*stsVec(i,4)
419 outvec(:,6) = stsPresSqr(:)
|
| /phasta/phSolver/compressible/ |
| H A D | stats.f | 20 real*8, allocatable :: stsPres(:), stsPresSqr(:), stsVel(:,:), variable
|