Lines Matching refs:shp
2 subroutine resid3d(xsj,shp,sig,d,vl,al,p,ndf,l) argument
20 real*8 shp(4,*),sig(*),ac(3),vc(3) local
66 ac(1) = ac(1) + shp(4,j)*al(1,j)
67 ac(2) = ac(2) + shp(4,j)*al(2,j)
68 ac(3) = ac(3) + shp(4,j)*al(3,j)
81 vc(1) = vc(1) + shp(4,j)*vl(1,j)
82 vc(2) = vc(2) + shp(4,j)*vl(2,j)
83 vc(3) = vc(3) + shp(4,j)*vl(3,j)
90 aj0 = shp(4,j)*xsj*rr*d(77)
101 aj1 = shp(1,j)*xsj
102 aj2 = shp(2,j)*xsj
103 aj3 = shp(3,j)*xsj
108 p(1,j) = p(1,j) + (b1 - ac(1) - aj0*al(1,j))*shp(4,j)*xsj
110 p(2,j) = p(2,j) + (b2 - ac(2) - aj0*al(2,j))*shp(4,j)*xsj
112 p(3,j) = p(3,j) + (b3 - ac(3) - aj0*al(3,j))*shp(4,j)*xsj