Lines Matching refs:intp
25 do intp = 1, ngauss
37 dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
38 dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
39 dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
40 dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
41 dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
42 dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
43 dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
44 dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
45 dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
78 fresli(:,22) = fresli(:,22)+shp(i,intp)*yl(:,i,1) ! density at qpt
88 shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
89 & + shgl(2,n,intp) * dxidx(:,2,1)
90 & + shgl(3,n,intp) * dxidx(:,3,1))
91 shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
92 & + shgl(2,n,intp) * dxidx(:,2,2)
93 & + shgl(3,n,intp) * dxidx(:,3,2))
94 shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
95 & + shgl(2,n,intp) * dxidx(:,2,3)
96 & + shgl(3,n,intp) * dxidx(:,3,3))
124 strnrm(:,intp) = fresli(:,22) * sqrt(