2
DOUBLE PRECISION FUNCTION DQWGTF (X, OMEGA, P2, P3, P4, INTEGR)
3
C***BEGIN PROLOGUE DQWGTF
5
C***PURPOSE This function subprogram is used together with the
6
C routine DQAWF and defines the WEIGHT function.
8
C***TYPE DOUBLE 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 890531 Changed all specific intrinsics to generic. (WRB)
21
C 890531 REVISION DATE from Version 3.2
22
C 891214 Prologue converted to Version 4.0 format. (BAB)
23
C 900328 Added TYPE section. (WRB)
24
C***END PROLOGUE DQWGTF
26
DOUBLE PRECISION OMEGA,OMX,P2,P3,P4,X
28
C***FIRST EXECUTABLE STATEMENT DQWGTF