SUBROUTINE POTL ( I )
Argument Definitions (+ indicates altered content)
INTEGER            I
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
potl computes the potential function yr for the ith orbital
Source file:potl.f
Intrinsic Functions Called
GENERIC*8          ABS
External Functions and Subroutines Called
SUBROUTINE         YKF
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +J,         +JJ,        +K
REAL*8            +C
Referenced Common Block Variables (+ indicates altered content)
COEFF              REAL*8             A(MAXORB,MAXORB,5)
MCOMMBLOCK         REAL*8             Y(MAXORB,MAXNO)
MCOMMBLOCK         REAL*8             YK(MAXNO)
MCOMMBLOCK         REAL*8            +YR(MAXNO)
PARAM              INTEGER            NO,        NWF
PARAM0             INTEGER            ITWO
PARAM1             REAL*8             D0