SUBROUTINE DYK ( 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 dyk subroutine computes a function yk
Source file:dyk.f
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +JJ,        +M,         +MM
REAL*8            +A,         +AA,        +C,         +DEN
REAL*8            +F1,        +F2,        +F3,        +FACT
REAL*8            +HH
Referenced Common Block Variables (+ indicates altered content)
MCOMMBLOCK         REAL*8             P(MAXORB,MAXNO)
MCOMMBLOCK         REAL*8             R(MAXNO), +YK(MAXNO)
PARAM              INTEGER            ND,        NO
PARAM              REAL*8             EH,        H
PARAM              REAL*8             H3
PARAM1             REAL*8             D16,       D2
PARAM1             REAL*8             D4,        D5
REL                REAL*8             DLR(MAXORB)