Searched defs:genlmass (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/incompressible/ |
| H A D | genlmass.f | 1 subroutine genlmass (x, shp,shgl) subroutine
8 real*8 x(numnp,nsd)
10 real*8 shp(MAXTOP,maxsh,MAXQPT),
11 & shgl(MAXTOP,nsd,maxsh,MAXQPT)
13 real*8, allocatable :: tmpshp(:,:), tmpshgl(:,:,:)
|