SUBROUTINE CCPY

PURPOSE
   COPY SPECIFIED COLUMN OF A MATRIX INTO A VECTOR

USAGE
   CALL CCPY(A,L,R,N,M,MS)

DESCRIPTION OF PARAMETERS
   A - NAME OF INPUT MATRIX
   L - COLUMN OF A TO BE MOVED TO R
   R - NAME OF OUTPUT VECTOR OF LENGTH N
   N - NUMBER OR ROWS IN A
   M - NUMBER OF COLUMNS IN A
   MS  - ONE DIGIT NUMBER FOR STORAGE MODE OF MATRIX A
	  0 - GENERAL
	  1 - SYMMETRIC
	  2 - DIAGONAL

REMARKS
   NONE

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
   LOC

METHOD
   ELEMENTS OF COLUMN L ARE MOVED TO CORRESPONDING POSITIONS
   OF VECTOR R