Lines Matching refs:shp
27 subroutine aveprep(shp,x) argument
34 dimension shp(MAXTOP,maxsh,MAXQPT)
52 call getylist( ylist, ifathe(iel:inum,:), shp(lcsyst,1:nshl,:),
108 subroutine getxnut (fres, xden, xnum, ien, shp) argument
113 & shp(nshl,maxsh), fresli(npro,22),
132 fresli(:,j) = fresli(:,j) + shp(i,intp)*fresl(:,i,j)
208 subroutine getylist (ylist, lfathe, shp, x, ien) argument
212 dimension lfathe(npro,maxsh), shp(nshl,maxsh),
230 yint = yint + xl(nel,n,2)*shp(n,intp)
231 xint = xint + xl(nel,n,1)*shp(n,intp)
232 zint = zint + xl(nel,n,3)*shp(n,intp)
270 subroutine projdmc (y, shgl, shp, argument
296 & shgl(MAXTOP,nsd,maxsh,MAXQPT), shp(MAXTOP,maxsh,MAXQPT),
377 & shp(lcsyst,1:nshl,:), ifathe(iel:inum,:))
424 & shp(lcsyst,1:nshl,:))
448 subroutine smagcoeff (fres, xden, xnum, ien, shp, lfathe) argument
453 & shp(nshl,maxsh), fresli(npro,22),
468 fresli(:,j) = fresli(:,j) + shp(i,intp)*fresl(:,i,j)