REAL FUNCTION QUAD ( I, M, F, G )
Argument Definitions (+ indicates altered content)
INTEGER            I,          M
REAL*8             F(*),       G(*)
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
quad integrates f*g by simpson's rule
Source file:quad.f
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +J
REAL*8            +D
Referenced Common Block Variables (+ indicates altered content)
MCOMMBLOCK         REAL*8             R(MAXNO),  RR(MAXNO)
PARAM              REAL*8             H1
PARAM1             REAL*8             D1,        D2
PARAM1             REAL*8             D3,        D5
REL                REAL*8             DLR(MAXORB)
REL                REAL*8             ZRL(MAXORB)