Google
 

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