SUBROUTINE DATAREL ( )
Description
Copyright (C) 1978 Charlotte Froese Fisher 
Copyright (C) 2012 Jacek Kobus 
 
 
datarel reads rel data card
Source file:datarel.f
External Functions and Subroutines Called
SUBROUTINE         INPF
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
REAL*8            +FTMP
Referenced Common Block Variables (+ indicates altered content)
REL                INTEGER           +IQPOT,    +IREL
REL                REAL*8            +RELDAMP,  +RELDAMPSF