SUBROUTINE YKDFT ( I )
Argument Definitions (+ indicates altered content)
INTEGER            I
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The ykdft subroutine fills for orbital i the vxch array with 
(-z+yk)/r+vdft values at grid points
Source file:ykdft.f
External Functions and Subroutines Called
REAL*8             ZVAR
SUBROUTINE         POTL,       POTLCG1,    POTLCG2,    POTLLDA
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +K
Referenced Common Block Variables (+ indicates altered content)
MCOMMBLOCK         REAL*8             R(MAXNO),  YR(MAXNO)
PARAM              INTEGER            NO
PARAM1             REAL*8             D1
REL                INTEGER            IXPOT
REL                REAL*8             VDFT(MAXNO)
REL                REAL*8            +VXCH(MAXNO)
STATE              REAL*8             QC(MAXORB,40)