PDP-10 Archive: decus/20-0026/dcpy.doc from decus_20tap2

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0026/dcpy.doc

There are 2 other files named dcpy.doc in the archive. Click here to see a list.

SUBROUTINE DCPY

PURPOSE
   COPY DIAGONAL ELEMENTS OF A MATRIX INTO A VECTOR

USAGE
   CALL DCPY (A,R,N,MS)

DESCRIPTION OF PARAMETERS
   A - NAME OF INPUT MATRIX
   R - NAME OF OUTPUT VECTOR OF LENGTH N
   N - NUMBER OF ROWS AND COLUMNS IN MATRIX A
   MS  - ONE DIGIT NUMBER FOR STORAGE MODE OF MATRIX A
	  0 - GENERAL
	  1 - SYMMETRIC
	  2 - DIAGONAL

REMARKS
   INPUT MATRIX MUST BE A SQUARE MATRIX

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
   LOC

METHOD
   ELEMENTS ON DIAGONAL OF MATRIX ARE MOVED TO CORRESPONDING
   POSITIONS OF VECTOR R