SUBROUTINE RELPOT ( I )
Argument Definitions (+ indicates altered content)
INTEGER            I
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
This routine calculates the potential function to be used in a 
quasirelativistic correction, its asymptotic form near the origin 
and the QR correction itself.
Source file:relpot.f
External Functions and Subroutines Called
SUBROUTINE         GENCOEFF,   QPOTBPD,    QPOTCG,     QPOTKK
SUBROUTINE         QPOTWB,     YKDFT
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Referenced Common Block Variables (+ indicates altered content)
REL                INTEGER            IQPOT