IMPORTANT: index error in nesting.F

[arango]

In few places in nesting.F we need to have the incorrect assigment for j and Jc:

             i=contact(cr)%Idg(m)
             j=contact(cr)%Jdg(m)
             Ic=contact(cr)%Irg(m)
             Jc=contact(cr)%Jrg(m)

instead of

             i=contact(cr)%Idg(m)
             j=contact(cr)%Idg(m)
             Ic=contact(cr)%Irg(m)
             Jc=contact(cr)%Irg(m)

Many thanks to Tianran Liu for ​reporting this problem.