REAL FUNCTION ELAGR ( I, J )
Argument Definitions (+ indicates altered content)
INTEGER            I,          J
Description
Copyright (C) 1978 Charlotte Froese Fisher 
Copyright (C) 2012 Jacek Kobus
Source file:elagr.f
Intrinsic Functions Called
GENERIC*8          ABS
External Functions and Subroutines Called
REAL*8             RK
SUBROUTINE         LPERT,      ROTATE,     RPERT
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +II,        +M,         +N1,        +N2
REAL*8            +C,         +CI,        +CJ,        +DD
Referenced Common Block Variables (+ indicates altered content)
COEFF              REAL*8             A(MAXORB,MAXORB,5)
COEFF              REAL*8             B(MAXORB,MAXORB,5)
MCOMMBLOCK         INTEGER            L(MAXORB)
PARAM              INTEGER            NWF
PARAM0             INTEGER            ITWO
PARAM1             REAL*8             D0,        D5
ROTORB             INTEGER           +K
ROTORB             REAL*8             DI,        DJ,            +G
ROTORB             REAL*8            +QI,       +QJ
STATE              INTEGER            NCLI(MAXORB)
STATE              INTEGER            NCLJ(MAXORB)
STATE              INTEGER            NCRI(300)
STATE              INTEGER            NCRJ(300)
STATE              INTEGER            NL,        NR
STATE              REAL*8             CL(MAXORB)
STATE              REAL*8             CR(300),   WT(40)
TEST               LOGICAL*1         +ALL,      +EZERO
WAVE               REAL*8             E(MAXORB,MAXORB)
WAVE               REAL*8             SUM(MAXORB)