Google
 

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