1*DECK DQWGTC
2      DOUBLE PRECISION FUNCTION DQWGTC (X, C, P2, P3, P4, KP)
3C***BEGIN PROLOGUE  DQWGTC
4C***SUBSIDIARY
5C***PURPOSE  This function subprogram is used together with the
6C            routine DQAWC and defines the WEIGHT function.
7C***LIBRARY   SLATEC
8C***TYPE      DOUBLE PRECISION (QWGTC-S, DQWGTC-D)
9C***KEYWORDS  CAUCHY PRINCIPAL VALUE, WEIGHT FUNCTION
10C***AUTHOR  Piessens, Robert
11C             Applied Mathematics and Programming Division
12C             K. U. Leuven
13C           de Doncker, Elise
14C             Applied Mathematics and Programming Division
15C             K. U. Leuven
16C***SEE ALSO  DQK15W
17C***ROUTINES CALLED  (NONE)
18C***REVISION HISTORY  (YYMMDD)
19C   810101  DATE WRITTEN
20C   830518  REVISION DATE from Version 3.2
21C   891214  Prologue converted to Version 4.0 format.  (BAB)
22C   900328  Added TYPE section.  (WRB)
23C***END PROLOGUE  DQWGTC
24C
25      DOUBLE PRECISION C,P2,P3,P4,X
26      INTEGER KP
27C***FIRST EXECUTABLE STATEMENT  DQWGTC
28      DQWGTC = 0.1D+01/(X-C)
29      RETURN
30      END
31