Searched defs:vortGLB (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | vorticity.f | 1 subroutine vortGLB (y, x, shp, shgl, ilwork, vortG) subroutine
7 real*8 y(nshg,ndof), x(numnp,nsd)
9 real*8 shp(MAXTOP,maxsh,MAXQPT),
10 & shgl(MAXTOP,nsd,maxsh,MAXQPT)
12 integer ilwork(nlwork)
13 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:)
14 …real*8 vortG(nshg,4) ! The first three components are vorticity vector, the 4th one is Q criterio…
15 real*8 vortIntG(nshg,4)
16 real*8 lpmassG(nshg)
17 real*8 tmp(nshg)
|