Lines Matching refs:na
32 integer ne, na, nb, nodlcla, nodlclb, iel local
59 do na = 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
159 do na = 1, nods !nenl !nshl
161 shp2 = shape(iel,na) * shape(iel,nb)
162 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
183 do na = 1, nods !nenl !nshl
184 em(iel,na,na) = em(iel,na,na)+flump*eml(iel,na)
208 integer ne, na, nb, nodlcla, nodlclb, iel local
276 do na = 1, nshl
278 shp2 = shape(iel,na) * shape(iel,nb)
279 em(iel,na,nb) = em(iel,na,nb) + shp2*WdetJ(iel)
298 do na = 1, nshl
299 em(iel,na,na) = eml(iel,na)