SUBROUTINE DATA ( NEW )
Argument Definitions (+ indicates altered content)
INTEGER           +NEW
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The data routine reads 'atom', 'electron' and 'integrals' inputa 
data cards
Source file:data.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
    OUC                   SEQ  FMTD           W  
    IUD                   SEQ  FMTD          R   

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
GENERIC*8          ABS,        EXP,        SQRT
External Functions and Subroutines Called
SUBROUTINE         CARDC,      DATAEL,     INPA,       INPF
SUBROUTINE         INPI
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
CHARACTER*4       +BL
CHARACTER*8        CLABEL
CHARACTER*4       +EL1,       +EL2
CHARACTER         +FINT,      +GINT
INTEGER           +I,         +I1,        +I2,        +II
INTEGER            ITMP,      +J1,        +J2,        +JJ
INTEGER           +NFG
REAL*8             FTMP,      +RHOMAX,    +W
Referenced Common Block Variables (+ indicates altered content)
CONST              REAL*8             ONE
INOUT              INTEGER            INPIEXIT,  IUD
INOUT              INTEGER            OUC
LABEL              CHARACTER*8        ATOM,     +CONFIG(3,40)
LABEL              CHARACTER*4        EL(MAXORB)
LABEL              CHARACTER*8        TERM
PARAM              INTEGER           +IB,       +NCFG
PARAM              INTEGER           +ND,       +NIT
PARAM              INTEGER            NO,        NWF
PARAM              REAL*8             H,         RHO
PARAM              REAL*8            +RMAX,      Z
PARAM1             REAL*8             D0
STATE              INTEGER           +I1R(300), +I2R(300)
STATE              INTEGER           +IFG(200), +ILI(MAXORB)
STATE              INTEGER           +ILJ(MAXORB)
STATE              INTEGER           +ILO(MAXORB)
STATE              INTEGER           +IO(300),  +IQ(300)
STATE              INTEGER           +J1R(300), +J2R(300)
STATE              INTEGER           +JFG(200), +JLO(MAXORB)
STATE              INTEGER           +JO(300),  +KFG(200)
STATE              INTEGER           +KR(300),  +LQ(MAXORB)
STATE              INTEGER           +NCI(200), +NCJ(200)
STATE              INTEGER           +NCLI(MAXORB)
STATE              INTEGER           +NCLJ(MAXORB)
STATE              INTEGER           +NCRI(300)
STATE              INTEGER           +NCRJ(300)
STATE              INTEGER           +NF,       +NG
STATE              INTEGER           +NL,       +NR
STATE              REAL*8            +CFG(200), +CL(MAXORB)
STATE              REAL*8            +CR(300),  +WT(40)
TEST               LOGICAL*1         +RSCAN(MAXORB)