Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0026/rcpy.ssp
There are 2 other files named rcpy.ssp in the archive. Click here to see a list.
C                                                                       RCPY  10
C     ..................................................................RCPY  20
C                                                                       RCPY  30
C        SUBROUTINE RCPY                                                RCPY  40
C                                                                       RCPY  50
C        PURPOSE                                                        RCPY  60
C           COPY SPECIFIED ROW OF A MATRIX INTO A VECTOR                RCPY  70
C                                                                       RCPY  80
C        USAGE                                                          RCPY  90
C           CALL RCPY (A,L,R,N,M,MS)                                    RCPY 100
C                                                                       RCPY 110
C        DESCRIPTION OF PARAMETERS                                      RCPY 120
C           A - NAME OF INPUT MATRIX                                    RCPY 130
C           L - ROW OF A TO BE MOVED TO R                               RCPY 140
C           R - NAME OF OUTPUT VECTOR OF LENGTH M                       RCPY 150
C           N - NUMBER OR ROWS IN A                                     RCPY 160
C           M - NUMBER OF COLUMNS IN A                                  RCPY 170
C           MS  - ONE DIGIT NUMBER FOR STORAGE MODE OF MATRIX A         RCPY 180
C                  0 - GENERAL                                          RCPY 190
C                  1 - SYMMETRIC                                        RCPY 200
C                  2 - DIAGONAL                                         RCPY 210
C                                                                       RCPY 220
C        REMARKS                                                        RCPY 230
C           NONE                                                        RCPY 240
C                                                                       RCPY 250
C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED                  RCPY 260
C           LOC                                                         RCPY 270
C                                                                       RCPY 280
C        METHOD                                                         RCPY 290
C           ELEMENTS OF ROW L ARE MOVED TO CORRESPONDING POSITIONS      RCPY 300
C           OF VECTOR R                                                 RCPY 310
C                                                                       RCPY 320
C     ..................................................................RCPY 330
C                                                                       RCPY 340
      SUBROUTINE RCPY(A,L,R,N,M,MS)                                     RCPY 350
      DIMENSION A(1),R(1)                                               RCPY 360
C                                                                       RCPY 370
      DO 3 J=1,M                                                        RCPY 380
C                                                                       RCPY 390
C        LOCATE ELEMENT FOR ANY MATRIX STORAGE MODE                     RCPY 400
C                                                                       RCPY 410
      CALL LOC(L,J,LJ,N,M,MS)                                           RCPY 420
C                                                                       RCPY 430
C        TEST FOR ZERO ELEMENT IN DIAGONAL MATRIX                       RCPY 440
C                                                                       RCPY 450
      IF(LJ) 1,2,1                                                      RCPY 460
C                                                                       RCPY 470
C        MOVE ELEMENT TO R                                              RCPY 480
C                                                                       RCPY 490
    1 R(J)=A(LJ)                                                        RCPY 500
      GO TO 3                                                           RCPY 510
    2 R(J)=0.0                                                          RCPY 520
    3 CONTINUE                                                          RCPY 530
      RETURN                                                            RCPY 540
      END                                                               RCPY 550