2
REAL FUNCTION QWGTF (X, OMEGA, P2, P3, P4, INTEGR)
3
C***BEGIN PROLOGUE QWGTF
5
C***PURPOSE This function subprogram is used together with the
6
C routine QAWF and defines the WEIGHT function.
8
C***TYPE SINGLE PRECISION (QWGTF-S, DQWGTF-D)
9
C***KEYWORDS COS OR SIN IN WEIGHT FUNCTION
10
C***AUTHOR Piessens, Robert
11
C Applied Mathematics and Programming Division
14
C Applied Mathematics and Programming Division
17
C***ROUTINES CALLED (NONE)
18
C***REVISION HISTORY (YYMMDD)
20
C 830518 REVISION DATE from Version 3.2
21
C 891214 Prologue converted to Version 4.0 format. (BAB)
22
C 900328 Added TYPE section. (WRB)
23
C***END PROLOGUE QWGTF
25
REAL OMEGA,OMX,P2,P3,P4,X
27
C***FIRST EXECUTABLE STATEMENT QWGTF