Lines Matching refs:shp
2 subroutine tjac3d ( ss , xl, ndm, nel, shp, detj ) argument
29 real*8 ss(3), xl(ndm,*), shp(3,11), xs(3,3) local
37 shp(1, 1) = 1.d0
38 shp(1, 2) = 0.d0
39 shp(1, 3) = 0.d0
40 shp(1, 4) =-1.d0
41 shp(2, 1) = 0.d0
42 shp(2, 2) = 1.d0
43 shp(2, 3) = 0.d0
44 shp(2, 4) =-1.d0
45 shp(3, 1) = 0.d0
46 shp(3, 2) = 0.d0
47 shp(3, 3) = 1.d0
48 shp(3, 4) =-1.d0
51 shp(1, 1) = 4.d0*ss(1) - 1.d0
52 shp(1, 2) = 0.d0
53 shp(1, 3) = 0.d0
54 shp(1, 4) =-4.d0*ss4 + 1.d0
55 shp(1, 5) = 4.d0*ss(2)
56 shp(1, 6) = 0.d0
57 shp(1, 7) = 4.d0*ss(3)
58 shp(1, 8) = 4.d0*(ss4 - ss(1))
59 shp(1, 9) =-4.d0*ss(2)
60 shp(1,10) =-4.d0*ss(3)
62 shp(2, 1) = 0.d0
63 shp(2, 2) = 4.d0*ss(2) - 1.d0
64 shp(2, 3) = 0.d0
65 shp(2, 4) =-4.d0*ss4 + 1.d0
66 shp(2, 5) = 4.d0*ss(1)
67 shp(2, 6) = 4.d0*ss(3)
68 shp(2, 7) = 0.d0
69 shp(2, 8) =-4.d0*ss(1)
70 shp(2, 9) = 4.d0*(ss4 - ss(2))
71 shp(2,10) =-4.d0*ss(3)
73 shp(3, 1) = 0.d0
74 shp(3, 2) = 0.d0
75 shp(3, 3) = 4.d0*ss(3) - 1.d0
76 shp(3, 4) =-4.d0*ss4 + 1.d0
77 shp(3, 5) = 0.d0
78 shp(3, 6) = 4.d0*ss(2)
79 shp(3, 7) = 4.d0*ss(1)
80 shp(3, 8) =-4.d0*ss(1)
81 shp(3, 9) =-4.d0*ss(2)
82 shp(3,10) = 4.d0*(ss4 - ss(3))
84 shp(1,11) = 256.d0*ss(2)*ss(3)*(ss4 - ss(1))
85 shp(2,11) = 256.d0*ss(1)*ss(3)*(ss4 - ss(2))
86 shp(3,11) = 256.d0*ss(1)*ss(2)*(ss4 - ss(3))
97 xs(i,j) = xs(i,j) - shp(i,k)*xl(j,k)