5682 NXA=NXA+A(VY(I),JF)