Argument Definitions (+ indicates altered content)

INTEGER I, J, KK

Description

Copyright (C) 1978 Charlotte Froese Fisher Copyright (C) 2012 Jacek Kobus quadr integrates p(i)*p(j)*r**kk by simpson's rule

Source file:	quadr.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 +JJ, +JP, +K, +M REAL*8 +ALPHA, +BI, +BJ, +D REAL*8 +DEN, +DLI, +DLJ, +ZRI REAL*8 +ZRJ

Referenced Common Block Variables (+ indicates altered content)

MCOMMBLOCK INTEGER MAXV(MAXORB) MCOMMBLOCK REAL*8 P(MAXORB,MAXNO) MCOMMBLOCK REAL*8 R(MAXNO), R2(MAXNO) MCOMMBLOCK REAL*8 RR(MAXNO) PARAM REAL*8 H1 PARAM1 REAL*8 D1, D2 PARAM1 REAL*8 D5 REL REAL*8 DLR(MAXORB) REL REAL*8 ZRL(MAXORB) WAVE REAL*8 AZ(MAXORB)