Lines Matching refs:nb
32 integer ne, na, nb, nodlcla, nodlclb, iel local
60 do nb = 1, nshl
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
160 do nb = 1, nods !nenl !nshl
161 shp2 = shape(iel,na) * shape(iel,nb)
162 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
208 integer ne, na, nb, nodlcla, nodlclb, iel local
277 do nb = 1, nshl
278 shp2 = shape(iel,na) * shape(iel,nb)
279 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)