home *** CD-ROM | disk | FTP | other *** search
/ Frostbyte's 1980s DOS Shareware Collection / floppyshareware.zip / floppyshareware / DOOG / PCSSP2.ZIP / POLYOPS.ZIP / PDER.FOR < prev    next >
Text File  |  1985-11-29  |  1KB  |  47 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE PDER
  5. C
  6. C        PURPOSE
  7. C           FIND DERIVATIVE OF A POLYNOMIAL
  8. C
  9. C        USAGE
  10. C           CALL PDER(Y,IDIMY,X,IDIMX)
  11. C
  12. C        DESCRIPTION OF PARAMETERS
  13. C           Y     - VECTOR OF COEFFICIENTS FOR DERIVATIVE, ORDERED FROM
  14. C                   SMALLEST TO LARGEST POWER
  15. C           IDIMY - DIMENSION OF Y (EQUAL TO IDIMX-1)
  16. C           X     - VECTOR OF COEFFICIENTS FOR ORIGINAL POLYNOMIAL,
  17. C                   ORDERED FROM SMALLEST TO LARGEST POWER
  18. C           IDIMX - DIMENSION OF X
  19. C
  20. C        REMARKS
  21. C           NONE
  22. C
  23. C        SUBROUTINES AND FUNCTION SUBPROGRAMS REQUIRED
  24. C           NONE
  25. C
  26. C        METHOD
  27. C           DIMENSION OF Y IS SET AT DIMENSION OF X LESS ONE. DERIVATIVE
  28. C           IS THEN CALCULATED BY MULTIPLYING COEFFICIENTS BY THEIR
  29. C           RESPECTIVE EXPONENTS.
  30. C
  31. C     ..................................................................
  32. C
  33.       SUBROUTINE PDER(Y,IDIMY,X,IDIMX)
  34.       DIMENSION X(1),Y(1)
  35. C
  36. C     TEST OF DIMENSION
  37.       IF (IDIMX-1) 3,3,1
  38.     1 IDIMY=IDIMX-1
  39.       EXPT=0.
  40.       DO 2 I=1,IDIMY
  41.       EXPT=EXPT+1.
  42.     2 Y(I)=X(I+1)*EXPT
  43.       GO TO 4
  44.     3 IDIMY=0
  45.     4 RETURN
  46.       END
  47.