Lines Matching refs:intp

30       do intp = 1, ngaussf
43             dxdxi(:,1,1) = dxdxi(:,1,1) + xl(:,n,1) * shgl(1,n,intp)
44             dxdxi(:,1,2) = dxdxi(:,1,2) + xl(:,n,1) * shgl(2,n,intp)
45             dxdxi(:,1,3) = dxdxi(:,1,3) + xl(:,n,1) * shgl(3,n,intp)
46             dxdxi(:,2,1) = dxdxi(:,2,1) + xl(:,n,2) * shgl(1,n,intp)
47             dxdxi(:,2,2) = dxdxi(:,2,2) + xl(:,n,2) * shgl(2,n,intp)
48             dxdxi(:,2,3) = dxdxi(:,2,3) + xl(:,n,2) * shgl(3,n,intp)
49             dxdxi(:,3,1) = dxdxi(:,3,1) + xl(:,n,3) * shgl(1,n,intp)
50             dxdxi(:,3,2) = dxdxi(:,3,2) + xl(:,n,3) * shgl(2,n,intp)
51             dxdxi(:,3,3) = dxdxi(:,3,3) + xl(:,n,3) * shgl(3,n,intp)
82         wght=Qwtf(intp)
89             fresli(:,22) = fresli(:,22)+shp(i,intp)*ycl(:,i,1) !density at
97         shg(:,n,1) = (shgl(1,n,intp) * dxidx(:,1,1)
98      &              + shgl(2,n,intp) * dxidx(:,2,1)
99      &              + shgl(3,n,intp) * dxidx(:,3,1))
100         shg(:,n,2) = (shgl(1,n,intp) * dxidx(:,1,2)
101      &              + shgl(2,n,intp) * dxidx(:,2,2)
102      &              + shgl(3,n,intp) * dxidx(:,3,2))
103         shg(:,n,3) = (shgl(1,n,intp) * dxidx(:,1,3)
104      &              + shgl(2,n,intp) * dxidx(:,2,3)
105      &              + shgl(3,n,intp) * dxidx(:,3,3))
132       strnrm(:,intp) = fresli(:,22) * sqrt(
155        u1 = u1 + shp(i,intp)*ycl(:,i,2)
156        u2 = u2 + shp(i,intp)*ycl(:,i,3)
157        u3 = u3 + shp(i,intp)*ycl(:,i,4)
171       fresli(:,16) = strnrm(:,intp) * fresli(:,10) ! rho *|Eps| *Eps11 *WdetJ
172       fresli(:,17) = strnrm(:,intp) * fresli(:,11) ! rho *|Eps| *Eps22 *WdetJ
173       fresli(:,18) = strnrm(:,intp) * fresli(:,12) ! rho *|Eps| *Eps33 *WdetJ
174       fresli(:,19) = strnrm(:,intp) * fresli(:,13) ! rho *|Eps| *Eps12 *WdetJ
175       fresli(:,20) = strnrm(:,intp) * fresli(:,14) ! rho *|Eps| *Eps13 *WdetJ
176       fresli(:,21) = strnrm(:,intp) * fresli(:,15) ! rho *|Eps| *Eps23 *WdetJ