SUBROUTINE DATAQRPOT ( )
Description
Copyright (C) 1978 Charlotte Froese Fisher 
Copyright (C) 2012 Jacek Kobus 
 
 
The dataqrpot subroutine reads qpot data card
Source file:dataqrpot.f
External Functions and Subroutines Called
SUBROUTINE         INPI,       RELMESG
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +I,          ITMP
REAL*8            +FSC
Referenced Common Block Variables (+ indicates altered content)
CONST              REAL*8             CVEL
INOUT              INTEGER            INPIEXIT
PARAM              INTEGER            NWF
PARAM1             REAL*8             D1
REL                INTEGER           +IQPOT,    +IREL
REL                INTEGER           +ISTATE
REL                REAL*8            +CVELDAMP, +FSC2
REL                REAL*8            +Q0(MAXORB)
REL                REAL*8            +QM1(MAXORB)
REL                REAL*8            +QM2(MAXORB)
REL                REAL*8             RELDAMP