3235 A(I,J)=XES : A(I,CY(1))=XES : 'NX=I :NF=I