      REAL FUNCTION QWGTC (X, C, P2, P3, P4, KP)
C
      REAL C,P2,P3,P4,X
      INTEGER KP
C***FIRST EXECUTABLE STATEMENT  QWGTC
      QWGTC = 0.1E+01/(X-C)
      RETURN
      END
