Searched refs:xwi (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | d2wall.f | 23 allocatable xwi(:,:,:), xw(:,:,:)
39 allocate (xwi(nwalli,nenb+1,nsd))
40 xwi = 1.0d32
41 xwi(:,nenb+1,:)=zero
54 xwi(nwalli,node,1:3)=x(mienb(iblk)%p(j,node),:)
57 xwi(nwalli,nenb+1,:)=xwi(nwalli,nenb+1,:)
58 & +xwi(nwalli,node,:)
60 xwi(nwalli,nenb+1,:)=xwi(nwalli,nenb+1,:)/nenbl
67 if (nwalli.eq.0) xwi=1.0e32 ! fix for mpi's lack of imagination
94 call MPI_ALLGATHERV(xwi(:,j,k),nwalli,
[all …]
|
| /phasta/phSolver/common/ |
| H A D | turbsa.f | 52 real*8, allocatable :: xwi(:,:), xw(:,:) local
104 allocate (xwi(nwalli,nsd))
111 xwi(nwalli,1:nsd)=x(i,1:nsd)
115 xwi=1.0e32 ! fix for mpi's lack of imagination
174 call MPI_ALLGATHERV(xwi(:,k),nwalli,
180 xw=xwi
199 deallocate(xwi)
|