Lines Matching refs:shp
1 subroutine vortGLB (y, x, shp, shgl, ilwork, vortG) argument
9 real*8 shp(MAXTOP,maxsh,MAXQPT), local
40 tmpshp(1:nshl,:) = shp(lcsyst,1:nshl,:)
86 real*8 shp(npro,nshl), shgl(npro,nsd,nshl) local
120 call getshp (shp2, shgl2, sgn, shp, shgl )
143 alph2(:) = alph2(:) + shp(:,n)*shp(:,n)*WdetJ(:)
151 lpmass(:,n) = lpmass(:,n) + WdetJ(:)*shp(:,n)*shp(:,n)
155 & *WdetJ(:)*shp(:,n)
159 & *WdetJ(:)*shp(:,n)
163 & *WdetJ(:)*shp(:,n)
174 & *WdetJ(:)*shp(:,n)