Lines Matching refs:intp
83 do intp = 1, ngauss
86 xmudmi(iel,intp) = cdelsq( lfathe(iel,intp) )*
87 & strl(iel,intp)
127 do intp = 1, ngauss
132 fresli(:,j) = fresli(:,j) + shp(i,intp)*fresl(:,i,j)
216 integer intp local
222 do intp = 1, ngauss
230 yint = yint + xl(nel,n,2)*shp(n,intp)
231 xint = xint + xl(nel,n,1)*shp(n,intp)
232 zint = zint + xl(nel,n,3)*shp(n,intp)
240 lfathe(nel,intp) = nlist
247 lfathe(nel,intp) = imatch
254 lfathe(nel,intp) = nlist
463 do intp = 1, ngauss
468 fresli(:,j) = fresli(:,j) + shp(i,intp)*fresl(:,i,j)
507 xnumli(:,intp) = xlij(:,1) * xmij(:,1)
513 xdenli(:,intp) = xmij(:,1) * xmij(:,1)
542 do intp = 1, ngauss
545 xden( lfathe(nel,intp) ) = xden( lfathe(nel,intp) ) +
546 & xdenli(nel,intp)
548 xnum( lfathe(nel,intp) ) = xnum( lfathe(nel,intp) ) +
549 & xnumli(nel,intp)