DO 10 I=1,100
C     COPY ARRAY
      A(I) = B(I)
10    CONTINUE