Lines Matching refs:iel
32 integer ne, na, nb, nodlcla, nodlclb, iel local
58 do iel = 1, npro
61 shp2 = shape(iel,na) * shape(iel,nb)
62 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
85 integer ne, na, nb, nodlcla, nodlclb, iel local
158 do iel = 1, npro
161 shp2 = shape(iel,na) * shape(iel,nb)
162 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
182 do iel = 1, npro
184 em(iel,na,na) = em(iel,na,na)+flump*eml(iel,na)
208 integer ne, na, nb, nodlcla, nodlclb, iel local
275 do iel = 1, npro
278 shp2 = shape(iel,na) * shape(iel,nb)
279 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
297 do iel = 1, npro
299 em(iel,na,na) = eml(iel,na)