3010 ND=1 : IF JF>0 THEN ND=A(I,JF)