Lines Matching refs:xwi
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,
100 xw=xwi
121 deallocate(xwi)