SUBROUTINE DBLTRAP ( DINTGL )
Argument Definitions (+ indicates altered content)
REAL              +DINTGL
Description
PARAMETERS: 
   DINTGL  -  INTEGRATION RESULT CALCULATED IN DBLTRAP 
   THETA STEP SIZE = 1  DEGREE 
   PHI   STEP SIZE = 1  DEGREE 
   THETA LOWER LIMIT OF INTEGRATION = 0. DEGREES 
   PHI   LOWER LIMIT OF INTEGRATION = -90. DEGREES 
   THETA UPPER LIMIT OF INTEGRATION = 90. DEGREES 
   PHI   UPPER LIMIT OF INTEGRATION = 90. DEGREES
Source file:dbltrap.f
Intrinsic Functions Called
GENERIC            COS
External Functions and Subroutines Called
REAL               F2
Local Variables (+ indicates altered content)
INTEGER           +IP1,       +J
REAL              +D2R,       +P,         +PHIF,      +PHIZ
REAL              +PINT,      +T,         +TINT