Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-02 - 43,50145/csum.doc
There are 2 other files named csum.doc in the archive. Click here to see a list.
SUBROUTINE CSUM

PURPOSE
   SUM ELEMENTS OF EACH COLUMN TO FORM ROW VECTOR

USAGE
   CALL CSUM(A,R,N,M,MS)

DESCRIPTION OF PARAMETERS
   A - NAME OF INPUT MATRIX
   R - NAME OF VECTOR OF LENGTH M
   N - NUMBER OF 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
   VECTOR R CANNOT BE IN THE SAME LOCATION AS MATRIX A
   UNLESS A IS GENERAL

SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
   LOC

METHOD
   ELEMENTS ARE SUMMED DOWN EACH COLUMN INTO A CORRESPONDING
   ELEMENT OF OUTPUT ROW VECTOR R