home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / fortran / library / ssp / polyops / pcla.for < prev    next >
Text File  |  1985-11-29  |  1KB  |  40 lines
  1. C
  2. C     ..................................................................
  3. C
  4. C        SUBROUTINE PCLA
  5. C
  6. C        PURPOSE
  7. C           MOVE POLYNOMIAL X TO Y
  8. C
  9. C        USAGE
  10. C           CALL PCLA(Y,IDIMY,X,IDIMX)
  11. C
  12. C        DESCRIPTION OF PARAMETERS
  13. C           Y     - VECTOR OF RESULTANT COEFFICIENTS, ORDERED FROM
  14. C                   SMALLEST TO LARGEST POWER
  15. C           IDIMY - DIMENSION OF Y
  16. C           X     - VECTOR OF COEFFICIENTS FOR POLYNOMIAL, ORDERED
  17. C                   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           IDIMY IS REPLACED BY IDIMX AND VECTOR X IS MOVED TO Y
  28. C
  29. C     ..................................................................
  30. C
  31.       SUBROUTINE PCLA (Y,IDIMY,X,IDIMX)
  32.       DIMENSION X(1),Y(1)
  33. C
  34.       IDIMY=IDIMX
  35.       IF(IDIMX) 30,30,10
  36.    10 DO 20 I=1,IDIMX
  37.    20 Y(I)=X(I)
  38.    30 RETURN
  39.       END
  40.