SUBROUTINE RINPUTD ( ACFG, SCFTOL, CFGTOL, PRINT, NEW )
Argument Definitions (+ indicates altered content)
INTEGER           +NEW
LOGICAL*1         +PRINT
REAL*8            +ACFG,      +CFGTOL,    +SCFTOL
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The rinputd subroutine processes input data
Source file:rinputd.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
      *                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
INTEGER            NINT
External Functions and Subroutines Called
SUBROUTINE         CARDC,      DATA,       DATAQRPOT,  DATAREL
SUBROUTINE         DATAXPOT,   INPA,       INPF,       INPI
SUBROUTINE         LOWCASE,    PRTLABEL,   SETGRID
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
CHARACTER*8        ATMP,       CLABEL
INTEGER           +I,          IDTMP(100),            +ILF
INTEGER           +INZERO,     ITMP,      +IZZ1,      +NSIGDIG
LOGICAL*1         +LD
REAL*8             FTMP
Referenced Common Block Variables (+ indicates altered content)
DEBUG              INTEGER           +IDBG(100)
INOUT              INTEGER            INPIEXIT,  IUF
INOUT              INTEGER           +OUD,       OUF
INOUT              INTEGER           +OUF2DHF,  +OUH
PARAM              INTEGER           +ND,        NO
PARAM              REAL*8             Z
PARAM0             INTEGER            IONE
PARAM1             INTEGER           +NSCF
PERTAB             REAL*8            +ATWEIGHT(0:100)
RDATA              INTEGER           +IATOM,    +ILABEL
RDATA              INTEGER           +NEXT
REL                INTEGER           +IFERMI,   +IGAUSS
REL                REAL*8            +XALPHA
TEST               LOGICAL*1         +OMIT,     +ORTHO