1      REAL FUNCTION QWGTF(X,OMEGA,P2,P3,P4,INTEGR)
2C***BEGIN PROLOGUE  QWGTF
3C***REFER TO  QK15W
4C***ROUTINES CALLED  (NONE)
5C***REVISION DATE  830518   (YYMMDD)
6C***KEYWORDS  COS OR SIN IN WEIGHT FUNCTION
7C***AUTHOR  PIESSENS, ROBERT, APPLIED MATH. AND PROGR. DIV. -
8C             K. U. LEUVEN
9C           DE DONCKER, ELISE, APPLIED MATH. AND PROGR. DIV. -
10C             K. U. LEUVEN
11C***PURPOSE  This function subprogram is used together with the
12C            routine QAWF and defines the WEIGHT function.
13C***END PROLOGUE  QWGTF
14C
15      REAL OMEGA,OMX,P2,P3,P4,X
16      INTEGER INTEGR
17C***FIRST EXECUTABLE STATEMENT  QWGTF
18      OMX = OMEGA*X
19      GO TO(10,20),INTEGR
20   10 QWGTF = COS(OMX)
21      GO TO 30
22   20 QWGTF = SIN(OMX)
23   30 RETURN
24      END
25