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