REAL FUNCTION QUADS ( I, J, KK )
Argument Definitions (+ indicates altered content)
INTEGER            I,          J,          KK
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
quads integrates p(i)*p(j)*yk/r**kk by simpson's rule
Source file:quads.f
External Functions and Subroutines Called
INTEGER            MMIN
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +K,         +M,         +MX
REAL*8            +CD,        +D,         +DEN
Referenced Common Block Variables (+ indicates altered content)
MCOMMBLOCK         INTEGER            MAXV(MAXORB)
MCOMMBLOCK         REAL*8             P(MAXORB,MAXNO)
MCOMMBLOCK         REAL*8             R(MAXNO),  YK(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)