REAL FUNCTION HL ( I, J )
Argument Definitions (+ indicates altered content)
INTEGER            I,          J
Description
Copyright (C) 1978 Charlotte Froese Fisher 
Copyright (C) 2012 Jacek Kobus
Source file:hl.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
    OUC                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
GENERIC*8          ABS
External Functions and Subroutines Called
INTEGER            MMIN3
REAL*8             ZVAR
SUBROUTINE         RELPOT
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +INC,       +JJ,        +K,         +KK
INTEGER           +M,         +MM
REAL*8            +C,         +DD(MAXNO), +DD1,       +DD2
REAL*8            +DD3,       +DD4,       +DEN,       +DLI
REAL*8            +DLJ,       +FACT,      +FL,        +HH
REAL*8            +TZ,        +ZRI,       +ZRJ
Referenced Common Block Variables (+ indicates altered content)
CONST              REAL*8             TWO
INOUT              INTEGER            OUC
LABEL              CHARACTER*4        EL(MAXORB)
MCOMMBLOCK         INTEGER            L(MAXORB)
MCOMMBLOCK         INTEGER            MAXV(MAXORB)
MCOMMBLOCK         REAL*8             P(MAXORB,MAXNO)
MCOMMBLOCK         REAL*8             R(MAXNO),  RR(MAXNO)
MCOMMBLOCK         REAL*8            +YK(MAXNO)
PARAM              INTEGER            ND,        NO
PARAM              REAL*8             H,         H1
PARAM0             INTEGER            IFIVE,     ITWO
PARAM1             REAL*8             D1,        D2
PARAM1             REAL*8             D3,        D4
PARAM1             REAL*8             D5,        D6
REL                INTEGER            IREL
REL                REAL*8             DLR(MAXORB)
REL                REAL*8             VREL(MAXNO)
REL                REAL*8             ZRL(MAXORB)