Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0026/pild.ssp
There are 2 other files named pild.ssp in the archive. Click here to see a list.
C                                                                       PILD  10
C     ..................................................................PILD  20
C                                                                       PILD  30
C        SUBROUTINE PILD                                                PILD  40
C                                                                       PILD  50
C        PURPOSE                                                        PILD  60
C           EVALUATE POLYNOMIAL AND ITS FIRST DERIVATIVE FOR A GIVEN    PILD  70
C           ARGUMENT                                                    PILD  80
C                                                                       PILD  90
C        USAGE                                                          PILD 100
C           CALL PILD(POLY,DVAL,ARGUM,X,IDIMX)                          PILD 110
C                                                                       PILD 120
C        DESCRIPTION OF PARAMETERS                                      PILD 130
C           POLY  - VALUE OF POLYNOMIAL                                 PILD 140
C           DVAL  - DERIVATIVE                                          PILD 150
C           ARGUM - ARGUMENT                                            PILD 160
C           X     - VECTOR OF COEFFICIENTS FOR POLYNOMIAL, ORDERED      PILD 170
C                   FROM SMALLEST TO LARGEST POWER                      PILD 180
C           IDIMX - DIMENSION OF X                                      PILD 190
C                                                                       PILD 200
C        REMARKS                                                        PILD 210
C           NONE                                                        PILD 220
C                                                                       PILD 230
C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED                  PILD 240
C           PQSD                                                        PILD 250
C                                                                       PILD 260
C        METHOD                                                         PILD 270
C           EVALUATION IS DONE BY MEANS OF SUBROUTINE PQSD (QUADRATIC   PILD 280
C           SYNTHETIC DIVISION)                                         PILD 290
C                                                                       PILD 300
C     ..................................................................PILD 310
C                                                                       PILD 320
      SUBROUTINE PILD (POLY,DVAL,ARGUM,X,IDIMX)                         PILD 330
      DIMENSION X(1)                                                    PILD 340
C                                                                       PILD 350
      P=ARGUM+ARGUM                                                     PILD 360
      Q=-ARGUM*ARGUM                                                    PILD 370
C                                                                       PILD 380
      CALL PQSD (DVAL,POLY,P,Q,X,IDIMX)                                 PILD 390
C                                                                       PILD 400
      POLY=ARGUM*DVAL+POLY                                              PILD 410
C                                                                       PILD 420
      RETURN                                                            PILD 430
      END                                                               PILD 440