← Back to branch summary

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

« back to all changes in this revision

Viewing changes to routines/calelm/wasum.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/calelm/wasum.f
 
1
C/MEMBR ADD NAME=WASUM,SSI=0
 
2
c     Copyright INRIA
 
3
      double precision function wasum(n,xr,xi,incx)
 
4
c!but
 
5
c
 
6
c     cette fonction determine la addition des normes l1 des
 
7
c     composantes d'un vecteur complexe dont les parties reelles
 
8
c     sont rangees dans le vecteur double precision xr et les
 
9
c     parties imaginaires dans le vecteur double precision xi.
 
10
c
 
11
c!liste d'appel
 
12
c
 
13
c      double precision function wasum(n,xr,xi,incx)
 
14
c
 
15
c      n: entier, taille du vecteur traite
 
16
c
 
17
c      xr, xi: vecteurs double precision contenant,
 
18
c     respectivement,  les parties reelles et imaginaires du
 
19
c     vecteur traite.
 
20
c
 
21
c      incx: increment entre deux composantes consecutives des
 
22
c     vecteurs xr ou xi.
 
23
c
 
24
c!auteur
 
25
c
 
26
c     cleve moler.- mathlab.
 
27
c
 
28
c!
 
29
      double precision xr(*),xi(*),s
 
30
c     norm1(x)
 
31
      s = 0.0d+0
 
32
      if (n .le. 0) go to 20
 
33
      ix = 1
 
34
      do 10 i = 1, n
 
35
         s = s + abs(xr(ix)) + abs(xi(ix))
 
36
         ix = ix + incx
 
37
   10 continue
 
38
   20 wasum = s
 
39
      return
 
40
      end