REAL FUNCTION BB ( I, J )
Argument Definitions (+ indicates altered content)
INTEGER            I,          J
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The function bb calculates the value of 
     (1+\frac{1}{2}\alpha^2 (E(i) - V(r(j))))^{-1} 
for a given orbital i at r(j)
Source file:bb.f
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Referenced Common Block Variables (+ indicates altered content)
PARAM1             REAL*8             D1,        D5
REL                REAL*8             FSC2,      VXCH(MAXNO)
WAVE               REAL*8             E(MAXORB,MAXORB)