Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-02 - decus/20-0026/pnorm.ssp
There are 2 other files named pnorm.ssp in the archive. Click here to see a list.
C                                                                       PNOR  10
C     ..................................................................PNOR  20
C                                                                       PNOR  30
C        SUBROUTINE PNORM                                               PNOR  40
C                                                                       PNOR  50
C        PURPOSE                                                        PNOR  60
C           NORMALIZE COEFFICIENT VECTOR OF A POLYNOMIAL                PNOR  70
C                                                                       PNOR  80
C        USAGE                                                          PNOR  90
C           CALL PNORM(X,IDIMX,EPS)                                     PNOR 100
C                                                                       PNOR 110
C        DESCRIPTION OF PARAMETERS                                      PNOR 120
C           X      - VECTOR OF ORIGINAL COEFFICIENTS, ORDERED FROM      PNOR 130
C                    SMALLEST TO LARGEST POWER. IT REMAINS UNCHANGED    PNOR 140
C           IDIMX  - DIMENSION OF X. IT IS REPLACED BY FINAL DIMENSION  PNOR 150
C           EPS    - TOLERANCE BELOW WHICH COEFFICIENT IS ELIMINATED    PNOR 160
C                                                                       PNOR 170
C        REMARKS                                                        PNOR 180
C           IF ALL COEFFICIENTS ARE LESS THAN EPS, RESULT IS A ZERO     PNOR 190
C           POLYNOMIAL WITH IDIMX=0 BUT VECTOR X REMAINS INTACT         PNOR 200
C                                                                       PNOR 210
C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED                  PNOR 220
C           NONE                                                        PNOR 230
C                                                                       PNOR 240
C        METHOD                                                         PNOR 250
C           DIMENSION OF VECTOR X IS REDUCED BY ONE FOR EACH TRAILING   PNOR 260
C           COEFFICIENT WITH AN ABSOLUTE VALUE LESS THAN OR EQUAL TO EPSPNOR 270
C                                                                       PNOR 280
C     ..................................................................PNOR 290
C                                                                       PNOR 300
      SUBROUTINE PNORM(X,IDIMX,EPS)                                     PNOR 310
      DIMENSION X(1)                                                    PNOR 320
C                                                                       PNOR 330
    1 IF(IDIMX) 4,4,2                                                   PNOR 340
    2 IF(ABS(X(IDIMX))-EPS) 3,3,4                                       PNOR 350
    3 IDIMX=IDIMX-1                                                     PNOR 360
      GO TO 1                                                           PNOR 370
    4 RETURN                                                            PNOR 380
      END                                                               PNOR 390