REAL FUNCTION EKIN ( I, II )
Argument Definitions (+ indicates altered content)
INTEGER            I,          II
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The ekin function computes  where y and x 
are the potential and exchange functions
Source file:ekin.f
External Functions and Subroutines Called
REAL*8             QUAD,       QUADS
SUBROUTINE         POTL,       XCH
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +J
Referenced Common Block Variables (+ indicates altered content)
MCOMMBLOCK         REAL*8             P(MAXORB,MAXNO)
MCOMMBLOCK         REAL*8             X(MAXNO), +YK(MAXNO)
MCOMMBLOCK         REAL*8            +YR(MAXNO)
PARAM              INTEGER            NO
PARAM0             INTEGER            ITWO
PARAM1             REAL*8             D2