SUBROUTINE MCPY ( A, R, N, M, MS )
Argument Definitions (+ indicates altered content)
DOUBLE PRECISION   A(*),      +R(*)
INTEGER            M,          MS,         N
Description
Copy matrix A in matrix R: 
  A  - Name of input matrix. 
  R  - Name of output matrix. 
  N  - Number of rows in A or R. 
  M  - Number of columns in A or R. 
  MS - One digit number for storage mode of matrix A (and R): 
       0 - General. 
       1 - Symmetric. 
       2 - Diagonal. 
Subroutines and function subprograms required: 
  LOC
Source file:mcpy.f
Intrinsic Functions Called
SUBROUTINE         LOC
External Functions and Subroutines Called
SUBROUTINE         LOC
Local Variables (+ indicates altered content)
INTEGER           +I,          IT