~ubuntu-branches/ubuntu/karmic/python-scipy/karmic

« back to all changes in this revision

Viewing changes to Lib/integrate/odepack/vmnorm.f

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

Lib/integrate/odepack/vmnorm.f

 

1

      double precision function vmnorm (n, v, w)

 

2

clll. optimize

 

3

c-----------------------------------------------------------------------

 

4

c this function routine computes the weighted max-norm

 

5

c of the vector of length n contained in the array v, with weights

 

6

c contained in the array w of length n..

 

7

c   vmnorm = max(i=1,...,n) abs(v(i))*w(i)

 

8

c-----------------------------------------------------------------------

 

9

      integer n,   i

 

10

      double precision v, w,   vm

 

11

      dimension v(n), w(n)

 

12

      vm = 0.0d0

 

13

      do 10 i = 1,n

 

14

 10     vm = dmax1(vm,dabs(v(i))*w(i))

 

15

      vmnorm = vm

 

16

      return

 

17

c----------------------- end of function vmnorm ------------------------

 

18

      end

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1