1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
double precision function dqwgtc(x,c,p2,p3,p4,kp)
c***begin prologue dqwgtc
c***refer to dqk15w
c***routines called (none)
c***revision date 810101 (yymmdd)
c***keywords weight function, cauchy principal value
c***author piessens,robert,appl. math. & progr. div. - k.u.leuven
c de doncker,elise,appl. math. & progr. div. - k.u.leuven
c***purpose this function subprogram is used together with the
c routine qawc and defines the weight function.
c***end prologue dqwgtc
c
double precision c,p2,p3,p4,x
integer kp
c***first executable statement dqwgtc
dqwgtc = 0.1d+01/(x-c)
return
end
|
