SUBROUTINE YKF ( I, J, K )
Argument Definitions (+ indicates altered content)
INTEGER            I,          J,          K
Description
Copyright (C) 1978 Charlotte Froese Fisher 
Copyright (C) 2012 Jacek Kobus 
 
 
The ykf subroutine calculates the potential function 'yk' for 
the i-th and j-th orbitals
Source file:ykf.f
External Functions and Subroutines Called
SUBROUTINE         ZK
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +M,         +MM
REAL*8            +A,         +A2,        +A3,        +A34
REAL*8            +AI,        +AN,        +C,         +F1
REAL*8            +F2,        +F3,        +F4,        +F5
REAL*8            +H90
Referenced Common Block Variables (+ indicates altered content)
MCOMMBLOCK         REAL*8            +YK(MAXNO)
PARAM              INTEGER            ND,        NO
PARAM              REAL*8             EH,        H3
PARAM1             REAL*8             D30,       D4