      SUBROUTINE CPYCOL (N1,N2,N,A,B)
      DOUBLE PRECISION   A(N1)
      DOUBLE PRECISION   B(N2)
C
C  DESCRIPTION:
C
C  COPY COLUMN 1 OF MATRIX A INTO COLUMN 1 OF MATRIX B
C
C  ON INPUT:
C  A IS N VECTOR IN N1 ARRAY
C
C  ON OUTPUT:
C  B IS N VECTOR IN N2 ARRAY
C
C  WRITTEN BY:  J. DOUGLAS BIRDWELL
C               DEPT. OF ELEC. ENGR.
C               FERRIS 311
C               UNIVERSITY OF TENNESSEE
C               KNOXVILLE, TN  37996-2100
C               (615) 974-5468
C
      DO 1000 I = 1, N
1000     B(I) = A(I)
      RETURN
      END
