Lines Matching refs:iblock
132 allocate (lmassinv(iblock)%p(npro,nshl,nshl))
137 lmassinv(iblock)%p(iel,i,j) = 0.0
139 lmassinv(iblock)%p(iel,i,i)=1.0
151 & lmassinv(iblock)%p(iel,:,j))
154 rminv(:,:,:) = lmassinv(iblock)%p(:,:,:)
156 rminv(:,:,:) = lmassinv(iblock)%p(:,:,:)
279 allocate (lmassinv(iblock)%p(npro,nshl,nshl))
284 lmassinv(iblock)%p(iel,i,j) = 0.0
286 lmassinv(iblock)%p(iel,i,i)=1.0
298 & lmassinv(iblock)%p(iel,:,j))
301 rminv(:,:,:) = lmassinv(iblock)%p(:,:,:)
303 rminv(:,:,:) = lmassinv(iblock)%p(:,:,:)