CKCOPY    CKCOPY    CKCOPY    CKCOPY    CKCOPY    CKCOPY    CKCOPY    
          **********************************************
                    **************************
                              ******

SUBROUTINE CKCOPY (NN, X1, X2)
Copy X1(*) array members into X2(*) array.

INPUT
NN        - Integer scalar; number of elements to copy.
X1(*)     - Real array; dimension at least NN.

OUTPUT
X2(*)     - Real array; dimension at least NN.