SUBROUTINE ZK ( 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 zk subroutine computes a function yk which is the 
z' = p(i)*p(j) - k*z/r
Source file:zk.f
Intrinsic Functions Called
GENERIC*8          ABS
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +M,         +M1,        +M2
REAL*8            +A,         +A2,        +A3,        +A34
REAL*8            +AI,        +AN,        +C1,        +C2
REAL*8            +DEN,       +F1,        +F2,        +F3
REAL*8            +F4,        +F5,        +FACT,      +H90
Referenced Common Block Variables (+ indicates altered content)
MCOMMBLOCK         REAL*8             P(MAXORB,MAXNO)
MCOMMBLOCK         REAL*8             R(MAXNO),  RR(MAXNO)
MCOMMBLOCK         REAL*8            +YK(MAXNO)
PARAM              INTEGER            NO
PARAM              REAL*8             EH,        H
PARAM              REAL*8             H3
PARAM1             REAL*8             D1,        D3
PARAM1             REAL*8             D4
REL                REAL*8             DLR(MAXORB)
REL                REAL*8             ZRL(MAXORB)