← Back to branch summary

~ubuntu-branches/ubuntu/karmic/scilab/karmic

« back to all changes in this revision

Viewing changes to routines/dcd/devlpl.f

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/dcd/devlpl.f
 
1
      DOUBLE PRECISION FUNCTION devlpl(a,n,x)
 
2
C**********************************************************************
 
3
C
 
4
C     DOUBLE PRECISION FUNCTION DEVLPL(A,N,X)
 
5
C              Double precision EVALuate a PoLynomial at X
 
6
C
 
7
C
 
8
C                              Function
 
9
C
 
10
C
 
11
C     returns
 
12
C          A(1) + A(2)*X + ... + A(N)*X**(N-1)
 
13
C
 
14
C
 
15
C                              Arguments
 
16
C
 
17
C
 
18
C     A --> Array of coefficients of the polynomial.
 
19
C                                        A is DOUBLE PRECISION(N)
 
20
C
 
21
C     N --> Length of A, also degree of polynomial - 1.
 
22
C                                        N is INTEGER
 
23
C
 
24
C     X --> Point at which the polynomial is to be evaluated.
 
25
C                                        X is DOUBLE PRECISION
 
26
C
 
27
C**********************************************************************
 
28
C
 
29
C     .. Scalar Arguments ..
 
30
      DOUBLE PRECISION x
 
31
      INTEGER n
 
32
C     ..
 
33
C     .. Array Arguments ..
 
34
      DOUBLE PRECISION a(n)
 
35
C     ..
 
36
C     .. Local Scalars ..
 
37
      DOUBLE PRECISION term
 
38
      INTEGER i
 
39
C     ..
 
40
C     .. Executable Statements ..
 
41
      term = a(n)
 
42
      DO 10,i = n - 1,1,-1
 
43
          term = a(i) + term*x
 
44
   10 CONTINUE
 
45
      devlpl = term
 
46
      RETURN
 
47
 
 
48
      END