Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-02 - 43,50145/pval.ssp
There are 2 other files named pval.ssp in the archive. Click here to see a list.
C                                                                       PVAL  10
C     ..................................................................PVAL  20
C                                                                       PVAL  30
C        SUBROUTINE PVAL                                                PVAL  40
C                                                                       PVAL  50
C        PURPOSE                                                        PVAL  60
C           EVALUATE A POLYNOMIAL FOR A GIVEN VALUE OF THE VARIABLE     PVAL  70
C                                                                       PVAL  80
C        USAGE                                                          PVAL  90
C           CALL PVAL(RES,ARG,X,IDIMX)                                  PVAL 100
C                                                                       PVAL 110
C        DESCRIPTION OF PARAMETERS                                      PVAL 120
C           RES    - RESULTANT VALUE OF POLYNOMIAL                      PVAL 130
C           ARG    - GIVEN VALUE OF THE VARIABLE                        PVAL 140
C           X      - VECTOR OF COEFFICIENTS, ORDERED FROM SMALLEST TO   PVAL 150
C                    LARGEST POWER                                      PVAL 160
C           IDIMX  - DIMENSION OF X                                     PVAL 170
C                                                                       PVAL 180
C        REMARKS                                                        PVAL 190
C           NONE                                                        PVAL 200
C                                                                       PVAL 210
C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED                  PVAL 220
C           NONE                                                        PVAL 230
C                                                                       PVAL 240
C        METHOD                                                         PVAL 250
C           EVALUATION IS DONE BY MEANS OF NESTED MULTIPLICATION        PVAL 260
C                                                                       PVAL 270
C     ..................................................................PVAL 280
C                                                                       PVAL 290
      SUBROUTINE PVAL(RES,ARG,X,IDIMX)                                  PVAL 300
      DIMENSION X(1)                                                    PVAL 310
C                                                                       PVAL 320
      RES=0.                                                            PVAL 330
      J=IDIMX                                                           PVAL 340
    1 IF(J)3,3,2                                                        PVAL 350
    2 RES=RES*ARG+X(J)                                                  PVAL 360
      J=J-1                                                             PVAL 370
      GO TO 1                                                           PVAL 380
    3 RETURN                                                            PVAL 390
      END                                                               PVAL 400