Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0026/rint.ssp
There are 2 other files named rint.ssp in the archive. Click here to see a list.
C                                                                       RINT  10
C     ..................................................................RINT  20
C                                                                       RINT  30
C        SUBROUTINE RINT                                                RINT  40
C                                                                       RINT  50
C        PURPOSE                                                        RINT  60
C           INTERCHANGE TWO ROWS OF A MATRIX                            RINT  70
C                                                                       RINT  80
C        USAGE                                                          RINT  90
C           CALL RINT(A,N,M,LA,LB)                                      RINT 100
C                                                                       RINT 110
C        DESCRIPTION OF PARAMETERS                                      RINT 120
C           A  - NAME OF MATRIX                                         RINT 130
C           N  - NUMBER OF ROWS IN A                                    RINT 140
C           M  - NUMBER OF COLUMNS IN A                                 RINT 150
C           LA - ROW TO BE INTERCHANGED WITH ROW LB                     RINT 160
C           LB - ROW TO BE INTERCHANGED WITH ROW LA                     RINT 170
C                                                                       RINT 180
C        REMARKS                                                        RINT 190
C           MATRIX A MUST BE A GENERAL MATRIX                           RINT 200
C                                                                       RINT 210
C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED                  RINT 220
C           NONE                                                        RINT 230
C                                                                       RINT 240
C        METHOD                                                         RINT 250
C           EACH ELEMENT OF ROW LA IS INTERCHANGED WITH CORRESPONDING   RINT 260
C           ELEMENT OF ROW LB                                           RINT 270
C                                                                       RINT 280
C     ..................................................................RINT 290
C                                                                       RINT 300
      SUBROUTINE RINT(A,N,M,LA,LB)                                      RINT 310
      DIMENSION A(1)                                                    RINT 320
C                                                                       RINT 330
      LAJ=LA-N                                                          RINT 340
      LBJ=LB-N                                                          RINT 350
      DO 3 J=1,M                                                        RINT 360
C                                                                       RINT 370
C        LOCATE ELEMENTS IN BOTH ROWS                                   RINT 380
C                                                                       RINT 390
      LAJ=LAJ+N                                                         RINT 400
      LBJ=LBJ+N                                                         RINT 410
C                                                                       RINT 420
C        INTERCHANGE ELEMENTS                                           RINT 430
C                                                                       RINT 440
      SAVE=A(LAJ)                                                       RINT 450
      A(LAJ)=A(LBJ)                                                     RINT 460
    3 A(LBJ)=SAVE                                                       RINT 470
      RETURN                                                            RINT 480
      END                                                               RINT 490