Searched refs:lpmassG (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | vorticity.f | 16 real*8 lpmassG(nshg) local
20 lpmassG=0
48 call vortELE(y,x,tmpshp,tmpshgl,mien(iblk)%p,vortIntG,lpmassG)
56 call commu(lpmassG,ilwork,1,'in ')
68 vortG(:,i)=vortIntG(:,i)/lpmassG(:)
78 subroutine vortELE(y,x,shp1,shgl1,ien,vortIntG,lpmassG) argument
98 real*8 lpmassG(nshg) local
185 call local(lpmassG,lpmass,ien,1,'scatter ')
|