Lines Matching refs:shgl

1         subroutine shp4T (QuadPt, nQpt,   shp,    shgl,   wght)  argument
40      &            shgl(nsd,nen,*),               wght(*)
55           shgl(1,1,m) = -pt5
56           shgl(2,1,m) = -pt5
57           shgl(3,1,m) = -pt5
58           shgl(1,2,m) =  pt5
59           shgl(2,2,m) =  zero
60           shgl(3,2,m) =  zero
61           shgl(1,3,m) =  zero
62           shgl(2,3,m) =  pt5
63           shgl(3,3,m) =  zero
64           shgl(1,4,m) =  zero
65           shgl(2,4,m) =  zero
66           shgl(3,4,m) =  pt5