Google
 

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