home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / DOOG / PCSSP2.ZIP / POLYOPS.ZIP / PVAL.FOR < prev    next >
Text File  |  1985-11-29  |  1KB  |  41 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE PVAL
  5. C
  6. C        PURPOSE
  7. C           EVALUATE A POLYNOMIAL FOR A GIVEN VALUE OF THE VARIABLE
  8. C
  9. C        USAGE
  10. C           CALL PVAL(RES,ARG,X,IDIMX)
  11. C
  12. C        DESCRIPTION OF PARAMETERS
  13. C           RES    - RESULTANT VALUE OF POLYNOMIAL
  14. C           ARG    - GIVEN VALUE OF THE VARIABLE
  15. C           X      - VECTOR OF COEFFICIENTS, ORDERED FROM SMALLEST TO
  16. C                    LARGEST POWER
  17. C           IDIMX  - DIMENSION OF X
  18. C
  19. C        REMARKS
  20. C           NONE
  21. C
  22. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  23. C           NONE
  24. C
  25. C        METHOD
  26. C           EVALUATION IS DONE BY MEANS OF NESTED MULTIPLICATION
  27. C
  28. C     ..................................................................
  29. C
  30.       SUBROUTINE PVAL(RES,ARG,X,IDIMX)
  31.       DIMENSION X(1)
  32. C
  33.       RES=0.
  34.       J=IDIMX
  35.     1 IF(J)3,3,2
  36.     2 RES=RES*ARG+X(J)
  37.       J=J-1
  38.       GO TO 1
  39.     3 RETURN
  40.       END
  41.