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