Lines Matching refs:iel
134 do iel=1,npro
137 lmassinv(iblock)%p(iel,i,j) = 0.0
139 lmassinv(iblock)%p(iel,i,i)=1.0
144 call ludcmp(rmass(iel,:,:),nshl,nshl,indx,d)
150 call lubksb(rmass(iel,:,:),nshl,nshl,indx,
151 & lmassinv(iblock)%p(iel,:,j))
162 do iel=1,npro
165 ql(iel,:,j) = matmul( rminv(iel,:,:),qrl(iel,:,j) )
281 do iel=1,npro
284 lmassinv(iblock)%p(iel,i,j) = 0.0
286 lmassinv(iblock)%p(iel,i,i)=1.0
291 call ludcmp(rmass(iel,:,:),nshl,nshl,indx,d)
297 call lubksb(rmass(iel,:,:),nshl,nshl,indx,
298 & lmassinv(iblock)%p(iel,:,j))
309 do iel=1,npro
311 ql(iel,:,j) = matmul( rminv(iel,:,:),qrl(iel,:,j) )