Searched refs:xw (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | d2wall.f | 23 allocatable xwi(:,:,:), xw(:,:,:)
86 allocate (xw(nwallt,nenb+1,nsd))
95 & MPI_DOUBLE_PRECISION,xw(:,j,k),nwall,idisp,
100 xw=xwi
112 distance = ( x(i,1) - xw(j,k,1) )**2
113 & +( x(i,2) - xw(j,k,2) )**2
114 & +( x(i,3) - xw(j,k,3) )**2
122 deallocate(xw)
|
| /phasta/phSolver/common/ |
| H A D | turbsa.f | 52 real*8, allocatable :: xwi(:,:), xw(:,:) local
145 allocate (xw(nwallt,nsd))
175 & MPI_DOUBLE_PRECISION,xw(:,k),nwall,idisp,
180 xw=xwi
191 distance = ( x(i,1) - xw(j,1) )**2
192 & +( x(i,2) - xw(j,2) )**2
193 & +( x(i,3) - xw(j,3) )**2
200 deallocate(xw)
|