SUBROUTINE POTLCG1 ( I )
Argument Definitions (+ indicates altered content)
INTEGER            I
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The potlcg1 subroutine fills for orbital i the vdft array with the 
values of the Slater local exchange potential as proposed by Cowan 
(Phys. Rev. 163, 54 (1967), eq.12). It is assumed that only one 
configuration contributes to the total density.
Source file:potlcg1.f
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
REAL*8             CONST13            (CONST13 = 1.D0/3.D0)
Local Variables (+ indicates altered content)
INTEGER           +J,         +K
REAL*8            +CK1,       +FDFTPOT,   +QCC,       +QCCP
REAL*8            +RHOT,      +RHOTP
Referenced Common Block Variables (+ indicates altered content)
CONST              REAL*8             PII,       THREE
CONST              REAL*8             TWO
MCOMMBLOCK         REAL*8             P(MAXORB,MAXNO)
PARAM              INTEGER            NO,        NWF
PARAM1             REAL*8             D0,        D1
PARAM1             REAL*8             D2
REL                REAL*8            +VDFT(MAXNO)
REL                REAL*8             XALPHA
STATE              REAL*8             QC(MAXORB,40)