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

« back to all changes in this revision

Viewing changes to Lib/integrate/quadpack/dqwgts.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/quadpack/dqwgts.f

 

1

      double precision function dqwgts(x,a,b,alfa,beta,integr)

 

2

c***begin prologue  dqwgts

 

3

c***refer to dqk15w

 

4

c***routines called  (none)

 

5

c***revision date  810101   (yymmdd)

 

6

c***keywords  weight function, algebraico-logarithmic

 

7

c             end-point singularities

 

8

c***author  piessens,robert,appl. math. & progr. div. - k.u.leuven

 

9

c           de doncker,elise,appl. math. & progr. div. - k.u.leuven

 

10

c***purpose  this function subprogram is used together with the

 

11

c            routine dqaws and defines the weight function.

 

12

c***end prologue  dqwgts

 

13

c

 

14

      double precision a,alfa,b,beta,bmx,dlog,x,xma

 

15

      integer integr

 

16

c***first executable statement  dqwgts

 

17

      xma = x-a

 

18

      bmx = b-x

 

19

      dqwgts = xma**alfa*bmx**beta

 

20

      go to (40,10,20,30),integr

 

21

   10 dqwgts = dqwgts*dlog(xma)

 

22

      go to 40

 

23

   20 dqwgts = dqwgts*dlog(bmx)

 

24

      go to 40

 

25

   30 dqwgts = dqwgts*dlog(xma)*dlog(bmx)

 

26

   40 return

 

27

      end

• Older »

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