SUBROUTINE DATAEL ( )
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
This routine reads 'electron' cards
Source file:datael.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
    OUC                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
GENERIC*8          ABS
External Functions and Subroutines Called
SUBROUTINE         CARD,       CHECKLABEL,             INPA
SUBROUTINE         INPF,       INPI
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
CHARACTER*8        ELLAB
INTEGER           +I,         +IFULL,      ITMP,      +J
REAL*8            +SS,         TMP1
Referenced Common Block Variables (+ indicates altered content)
INOUT              INTEGER            INPIEXIT,  IUF
INOUT              INTEGER            OUC
LABEL              CHARACTER*4       +EL(MAXORB)
MCOMMBLOCK         INTEGER           +L(MAXORB)
MCOMMBLOCK         INTEGER           +N(MAXORB)
PARAM              INTEGER            NCFG,      NWF
PARAM              REAL*8             Z
PARAM1             REAL*8             D0
STATE              REAL*8            +QC(MAXORB,40)
STATE              REAL*8             WT(40)
TEMP1              INTEGER           +IND(MAXORB)
TEST               LOGICAL*1         +RSCAN(MAXORB)
WAVE               INTEGER           +METH(MAXORB)
WAVE               REAL*8            +ACC(MAXORB)
WAVE               REAL*8            +AZ(MAXORB)
WAVE               REAL*8            +E(MAXORB,MAXORB)
WAVE               REAL*8            +EK(MAXORB)
WAVE               REAL*8            +S(MAXORB)
WAVE               REAL*8            +SUM(MAXORB)