Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0026/pcld.ssp
There are 2 other files named pcld.ssp in the archive. Click here to see a list.
C                                                                       PCLD  10
C     ..................................................................PCLD  20
C                                                                       PCLD  30
C        SUBROUTINE PCLD                                                PCLD  40
C                                                                       PCLD  50
C        PURPOSE                                                        PCLD  60
C           SHIFT OF ORIGIN (COMPLETE LINEAR SYNTHETIC DIVISION)        PCLD  70
C                                                                       PCLD  80
C        USAGE                                                          PCLD  90
C           CALL PCLD(X,IDIMX,U)                                        PCLD 100
C                                                                       PCLD 110
C        DESCRIPTION OF PARAMETERS                                      PCLD 120
C           X     - VECTOR OF COEFFICIENTS, ORDERED FROM SMALLEST TO    PCLD 130
C                   LARGEST POWER. IT IS REPLACED BY VECTOR OF          PCLD 140
C                   TRANSFORMED COEFFICIENTS.                           PCLD 150
C           IDIMX - DIMENSION OF X                                      PCLD 160
C           U     - SHIFT PARAMETER                                     PCLD 170
C                                                                       PCLD 180
C        REMARKS                                                        PCLD 190
C           NONE                                                        PCLD 200
C                                                                       PCLD 210
C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED                  PCLD 220
C           NONE                                                        PCLD 230
C                                                                       PCLD 240
C        METHOD                                                         PCLD 250
C           COEFFICIENT VECTOR X(I) OF POLYNOMIAL P(Z) IS TRANSFORMED   PCLD 260
C           SUCH THAT Q(Z)=P(Z-U) WHERE Q(Z) DENOTES THE POLYNOMIAL     PCLD 270
C           WITH TRANSFORMED COEFFICIENT VECTOR.                        PCLD 280
C                                                                       PCLD 290
C     ..................................................................PCLD 300
C                                                                       PCLD 310
      SUBROUTINE PCLD (X,IDIMX,U)                                       PCLD 320
      DIMENSION X(1)                                                    PCLD 330
C                                                                       PCLD 340
      K=1                                                               PCLD 350
    1 J=IDIMX                                                           PCLD 360
    2 IF (J-K) 4,4,3                                                    PCLD 370
    3 X(J-1)=X(J-1)+U*X(J)                                              PCLD 380
      J=J-1                                                             PCLD 390
      GO TO 2                                                           PCLD 400
    4 K=K+1                                                             PCLD 410
      IF (IDIMX-K) 5,5,1                                                PCLD 420
    5 RETURN                                                            PCLD 430
      END                                                               PCLD 440