Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0026/srma.ssp
There are 2 other files named srma.ssp in the archive. Click here to see a list.
C                                                                       SRMA  10
C     ..................................................................SRMA  20
C                                                                       SRMA  30
C        SUBROUTINE SRMA                                                SRMA  40
C                                                                       SRMA  50
C        PURPOSE                                                        SRMA  60
C           MULTIPLY ROW OF MATRIX BY A SCALAR AND ADD TO ANOTHER ROW   SRMA  70
C           OF THE SAME MATRIX                                          SRMA  80
C                                                                       SRMA  90
C        USAGE                                                          SRMA 100
C           CALL SRMA(A,C,N,M,LA,LB)                                    SRMA 110
C                                                                       SRMA 120
C        DESCRIPTION OF PARAMETERS                                      SRMA 130
C           A  - NAME OF MATRIX                                         SRMA 140
C           C  - SCALAR                                                 SRMA 150
C           N  - NUMBER OF ROWS IN A                                    SRMA 160
C           M  - NUMBER OF COLUMNS IN A                                 SRMA 170
C           LA - ROW IN A TO BE MULTIPLIED BY SCALAR                    SRMA 180
C           LB - ROW IN A TO WHICH PRODUCT IS ADDED                     SRMA 190
C                IF 0 IS SPECIFIED, PRODUCT REPLACES ELEMENTS IN ROW LA SRMA 200
C                                                                       SRMA 210
C        REMARKS                                                        SRMA 220
C           MATRIX A MUST BE A GENERAL MATRIX                           SRMA 230
C                                                                       SRMA 240
C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED                  SRMA 250
C           NONE                                                        SRMA 260
C                                                                       SRMA 270
C        METHOD                                                         SRMA 280
C           EACH ELEMENT OF ROW LA IS MULTIPLIED BY SCALAR C AND THE    SRMA 290
C           PRODUCT IS ADDED TO THE CORRESPONDING ELEMENT OF ROW LB.    SRMA 300
C           ROW LA REMAINS UNAFFECTED BY THE OPERATION.                 SRMA 310
C           IF PARAMETER LB CONTAINS ZERO, MULTIPLICATION BY THE SCALAR SRMA 320
C           IS PERFORMED AND THE PRODUCT REPLACES ELEMENTS IN ROW LA.   SRMA 330
C                                                                       SRMA 340
C     ..................................................................SRMA 350
C                                                                       SRMA 360
      SUBROUTINE SRMA(A,C,N,M,LA,LB)                                    SRMA 370
      DIMENSION A(1)                                                    SRMA 380
C                                                                       SRMA 390
      LAJ=LA-N                                                          SRMA 400
      LBJ=LB-N                                                          SRMA 410
      DO 3 J=1,M                                                        SRMA 420
C                                                                       SRMA 430
C        LOCATE ELEMENT IN BOTH ROWS                                    SRMA 440
C                                                                       SRMA 450
      LAJ=LAJ+N                                                         SRMA 460
      LBJ=LBJ+N                                                         SRMA 470
C                                                                       SRMA 480
C        CHECK LB FOR ZERO                                              SRMA 490
C                                                                       SRMA 500
      IF(LB) 1,2,1                                                      SRMA 510
C                                                                       SRMA 520
C        IF NOT, MULTIPLY BY CONSTANT AND ADD TO OTHER ROW              SRMA 530
C                                                                       SRMA 540
    1 A(LBJ)=A(LAJ)*C+A(LBJ)                                            SRMA 550
      GO TO 3                                                           SRMA 560
C                                                                       SRMA 570
C        OTHERWISE, MULTIPLY ROW BY CONSTANT                            SRMA 580
C                                                                       SRMA 590
    2 A(LAJ)=A(LAJ)*C                                                   SRMA 600
    3 CONTINUE                                                          SRMA 610
      RETURN                                                            SRMA 620
      END                                                               SRMA 630