Kiva4
Kiva3vr2
do i4c = 1, ncellsa
do i4 = ifirst, ncells
i1= nodes (1, i4c)
i1 = i1tab (i4)
i3 = nodes (3, i4c)
i3 = i3tab (i4)
Enddo