REAL FUNCTION AGAUSS ( XFUNCT, H2 )
Argument Definitions (+ indicates altered content)
REAL               H2
Description
FUNCTION AGAUSS             (NEXT) 
 
    AGAUSS - GAUSSIAN INTEGRATION IN WHICH 48 ABSCISSAS AND WEIGHT 
       FACTORS ARE USED.  XFUNCT IS THE FUNCTION TO BE INTEGRATED AND 
       H2 IS THE ELEMENT LENGTH WHICH DETERMINES THE INTEGRATION 
       LIMITS. 
    SEE ABRAMOWITZ AND STEGUN, HANDBOOK OF MATHEMATICAL FUNCTIONS, 
    P 887 (EQU 25.4.30), P917 (WEIGHT AND ABSCISSA VALUES). 
    THE WEIGHTS AND ABSCISSAS ARE IN COMMON /WEIGHT/ AND ARE SET 
    IN SUBROUTINE GAIN IN A DATA STATEMENT.
Source file:agauss.f
Intrinsic Functions Called
GENERIC            ABS
External Functions and Subroutines Called
REAL               XFUNCT
Local Variables (+ indicates altered content)
INTEGER           +I,         +L,         +M
REAL              +ANS,       +BOLIM,     +CHECK,     +FL
REAL              +FM,        +S,         +SUM,       +TEST
REAL              +TESTD,     +UPLIM
Referenced Common Block Variables (+ indicates altered content)
WAITS              REAL               HH(48),    XI(48)