SUBROUTINE INPUTDATA ( IFORM_T, NI_T, MU_T, NO_T, NONS_T )

Argument Definitions (+ indicates altered content)
INTEGER           +IFORM_T,   +MU_T,      +NI_T,      +NONS_T
INTEGER           +NO_T
Description
                                                                        * 
  Copyright (C) 1996 Leif Laaksonen, Dage Sundholm                      * 
  Copyright (C) 1996-2010 Jacek Kobus               * 
                                                                        * 
  This program is free software; you can redistribute it and/or modify  * 
  it under the terms of the GNU General Public License version 2 as     * 
  published by the Free Software Foundation.                            * 
                                                                        * 
 
### inputData ### 
 
    Handles the input to x2DHF.
Source file:inputData.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
      *                   SEQ  FMTD           W  
  IOUT6                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
DOUBLE PRECISION   DBLE
INTEGER            NINT
GENERIC*8          ABS
External Functions and Subroutines Called
INTEGER            NMUCALC,    NNUCALC
SUBROUTINE         INCARD,     INCARDH,    INFLOAT,    ININT
SUBROUTINE         INSTR
Parameter Variables Used
INTEGER            NMETHODS           (NMETHODS = 5)
INTEGER            NLABELS            (NLABELS = 42)
INTEGER            MAXFLAGS           (MAXFLAGS = 40)
Local Variables (+ indicates altered content)
CHARACTER*8       +ANGSTROM
CHARACTER*4       +CDFTCORRT(10),         +CDFTEXT(10)
CHARACTER*8       +CHAR8,      CLABEL,     CLABEL1,    CLABEL2
CHARACTER*8       +CMETHOD(NMETHODS),     +DELTA,     +ENDL
CHARACTER*8        GUTTMP,    +LABELLC(NLABELS),      +PHI
CHARACTER*8       +PI,        +SIGMA,     +SPACE
INTEGER           +I,         +ICOMPLADD, +ICOMPLENC, +ICOMPLEXP
INTEGER           +ID(MAXFLAGS),          +ID1,        ID2
INTEGER           +IEXLCOUL,  +IEXLEXP,   +IEXLORB,   +IG
INTEGER           +IHIT,      +INFLOATORM,            +INPIEXIT
INTEGER           +INZERO,    +IOPENSHELL,            +IORB
INTEGER           +IPUT,      +IPUT1,     +ISUM,      +ISUM0
INTEGER           +ISUM1,      ITMP,       ITMP1,      ITMP2
INTEGER            ITOTQ,     +IZZ1,      +IZZ2,      +J
INTEGER           +MGI,       +MT,        +N,          NBSYM
INTEGER           +NMUTOT
REAL*8            +CLO,       +CLOE,      +CO12,      +FTMP
REAL*8             FTMP1,      FTMP2,      TMP,       +TMP1
REAL*8            +TMP2,      +TOTCHAR,   +TOTQ,      +Z1T
REAL*8            +Z2T
Referenced Common Block Variables (+ indicates altered content)
ADDRESS4           INTEGER           +I1NG(60), +I2NG(60)
COMPATAB           CHARACTER*8       +BOND(60), +GUT(60)
COMPATAB           CHARACTER*8       +SPIN(240)
COMPATAB           INTEGER           +NO
CONFIG             INTEGER           +NORB
CONSFP             REAL*8             ONE,       PRECIS
CONSFP             REAL*8             TEN,       THREE
CONSFP             REAL*8             TWO,       ZERO
DEBUG              INTEGER           +IDBG(1000)
DEBUG              INTEGER            INCRMU,    INCRNI
DEBUG              INTEGER           +IPRINT(1000)
DIMES              INTEGER            MAXMU,     MAXNI
DIMES              INTEGER            MAXORB
DIMES              REAL*8             HOMOLEVL
EXTPOT             INTEGER           +IFEFIELD
EXTPOT             REAL*8             FFIELD,   +ZCUTOFF
GRIDI              INTEGER            NGRIDS,   +NMU(10)
GRIDI              INTEGER           +NNI
HYDINI             REAL*8            +CO1(60),  +CO2(60)
HYDINI             REAL*8            +EZA1(60), +EZA2(60)
INPUTD1            CHARACTER*10      +FORMFP,    FORMFP128
INPUTD1            CHARACTER*10       FORMFP64
INPUTD1            CHARACTER*80       HEADER
INPUTD1            INTEGER           +IENTERM,  +IFERMI
INPUTD1            INTEGER           +IFIX(60), +IFORM
INPUTD1            INTEGER           +IINTERP,  +IMETHOD
INPUTD1            INTEGER           +INCLORB,  +INI
INPUTD1            INTEGER           +INOTERM,  +INOUT128
INPUTD1            INTEGER           +INOUT32,  +INOUT64
INPUTD1            INTEGER           +IOUTFORM, +IPOT
INPUTD1            REAL*8            +Z1ATMASS, +Z2ATMASS
INPUTD2            REAL*8            +R,        +R2
INPUTD2            REAL*8            +RGRID(10)
INPUTD2            REAL*8            +RINF,     +Z1
INPUTD2            REAL*8            +Z2
INPUTD3            CHARACTER*4       +CDFTCORR(10)
INPUTD3            CHARACTER*4       +CDFTEX(10)
IOCHAN             INTEGER            IOUT6,     LENGTHFP
IOCHAN             INTEGER           +LENGTHFPIN
IOCHAN             INTEGER            LENGTHINT
IOCHAN             INTEGER           +LENGTHINTIN
IORD_DATA          INTEGER           +IORD_MU_COUL
IORD_DATA          INTEGER           +IORD_MU_EXCH
IORD_DATA          INTEGER           +IORD_MU_ORB
IORD_DATA          INTEGER           +IORD_NU_COUL
IORD_DATA          INTEGER           +IORD_NU_EXCH
IORD_DATA          INTEGER           +IORD_NU_ORB
OEPOT              INTEGER            MPOT,     +NSIMP
OEPOT              REAL*8            +APOT,      EPSPOT
OEPOT              REAL*8             HOOK,      OMPOT
OEPOT              REAL*8            +V0POT
ORBITI             CHARACTER*8       +ORBSYM(60)
ORBITI             INTEGER           +LOCK(60), +MGX(9,60)
ORBITR             REAL*8            +OCC(60)
PERTAB             REAL*8             ALPHAOPT(0:100)
PERTAB             REAL*8             ATWEIGHT(0:100)
PERTAB             REAL*8             BOHR2ANG
SCFI               INTEGER           +IBREAK,   +IDFT
SCFI               INTEGER           +IDFTCORR, +IDFTEX
SCFI               INTEGER           +IHOMON,   +ISCFORDER(60)
SCFI               INTEGER           +ISCMC,    +ISLAT
SCFI               INTEGER           +MAXSCF,   +NENLAST
SCFI               INTEGER           +NEXT,     +NNOLAST
SCFI               INTEGER           +NOBCKUP,  +NSCF2SKIP
SCFR               INTEGER           +ILAGRA,   +NLMF(60,60)
SCFR               REAL*8            +ALPHAF,   +EXLCOUL
SCFR               REAL*8            +EXLEXP,   +EXLORB
SCFR               REAL*8            +FACMUL,    SFLAGRA
SCFR               REAL*8            +SFLAGRAT(60,60)
SORI               INTEGER           +IALTSWEEPS
SORI               INTEGER           +IOMEGA,   +IORDER(10)
SORI               INTEGER           +IPOISS,   +IPRTLEV
SORI               INTEGER           +MAXSOR2,  +MAXSOR3
SORI               INTEGER           +MAXSORORB(60)
SORI               INTEGER           +MAXSORPOT(60)
SORI               INTEGER           +MPOLE
SORR               REAL*8            +OMEGASFORB
SORR               REAL*8            +OMEGASFPOT
SORR               REAL*8            +OVFCOUL(10)
SORR               REAL*8            +OVFEXCH(10)
SORR               REAL*8            +OVFORB(10)