REAL FUNCTION FK ( 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 fk function evaluates an 'fk' integral
Source file:fk.f
External Functions and Subroutines Called
REAL*8             QUADS
SUBROUTINE         YKF
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +JJ
Referenced Common Block Variables (+ indicates altered content)
MCOMMBLOCK         REAL*8             Y(MAXORB,MAXNO)
MCOMMBLOCK         REAL*8            +YK(MAXNO)
PARAM              INTEGER            NO
PARAM0             INTEGER            IONE