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