Trailing-Edge
-
PDP-10 Archives
-
decuslib20-02
-
decus/20-0026/sadd.ssp
There are 2 other files named sadd.ssp in the archive. Click here to see a list.
C SADD 10
C ..................................................................SADD 20
C SADD 30
C SUBROUTINE SADD SADD 40
C SADD 50
C PURPOSE SADD 60
C ADD A SCALAR TO EACH ELEMENT OF A MATRIX TO FORM A RESULTANTSADD 70
C MATRIX SADD 80
C SADD 90
C USAGE SADD 100
C CALL SADD(A,C,R,N,M,MS) SADD 110
C SADD 120
C DESCRIPTION OF PARAMETERS SADD 130
C A - NAME OF INPUT MATRIX SADD 140
C C - SCALAR SADD 150
C R - NAME OF OUTPUT MATRIX SADD 160
C N - NUMBER OF ROWS IN MATRIX A AND R SADD 170
C M - NUMBER OF COLUMNS IN MATRIX A AND R SADD 180
C MS - ONE DIGIT NUMBER FOR STORAGE MODE OF MATRIX A (AND R) SADD 190
C 0 - GENERAL SADD 200
C 1 - SYMMETRIC SADD 210
C 2 - DIAGONAL SADD 220
C SADD 230
C REMARKS SADD 240
C NONE SADD 250
C SADD 260
C SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED SADD 270
C LOC SADD 280
C SADD 290
C METHOD SADD 300
C SCALAR IS ADDED TO EACH ELEMENT OF MATRIX SADD 310
C SADD 320
C ..................................................................SADD 330
C SADD 340
SUBROUTINE SADD(A,C,R,N,M,MS) SADD 350
DIMENSION A(1),R(1) SADD 360
C SADD 370
C COMPUTE VECTOR LENGTH, IT SADD 380
C SADD 390
CALL LOC(N,M,IT,N,M,MS) SADD 400
C SADD 410
C ADD SCALAR SADD 420
C SADD 430
DO 1 I=1,IT SADD 440
1 R(I)=A(I)+C SADD 450
RETURN SADD 460
END SADD 470