Searched refs:vortIntG (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | vorticity.f | 15 real*8 vortIntG(nshg,4) local
21 vortIntG=0
48 call vortELE(y,x,tmpshp,tmpshgl,mien(iblk)%p,vortIntG,lpmassG)
60 tmp(:)=vortIntG(:,i)
62 vortIntG(:,i)=tmp(:)
68 vortG(:,i)=vortIntG(:,i)/lpmassG(:)
78 subroutine vortELE(y,x,shp1,shgl1,ien,vortIntG,lpmassG) argument
97 real*8 vortIntG(nshg,4) local
184 call local(vortIntG,vortIntL,ien,4,'scatter ')
|