SUBROUTINE SETDEFAULTS ( )

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.                            * 
                                                                        * 
 
### setDefaults ### 
 
    This routine sets default values of various (scalar and array) 
    variables.
Source file:setDefaults.f
External Functions and Subroutines Called
SUBROUTINE         SETMAXUNIT
Local Variables (+ indicates altered content)
INTEGER           +I,         +IEXLCOUL,  +IEXLEXP,   +IEXLORB
REAL*8            +CMASS,     +CMASS1,    +FACREL,    +OMINCR
REAL*8            +SEARCH
Referenced Common Block Variables (+ indicates altered content)
COMPATAB           CHARACTER*8       +BOND(60), +GUT(60)
COMPATAB           CHARACTER*8       +SPIN(240)
CONSFP             REAL*8             ONE,       PRECIS
CONSFP             REAL*8             THREE,     TWO
DEBUG              INTEGER           +IDBG(1000)
DEBUG              INTEGER           +INCRMU,   +INCRNI
DEBUG              INTEGER           +IPRINT(1000)
DIMES              INTEGER            MAXORB
DIMES              REAL*8            +HOMOLEVL
EXTPOT             INTEGER           +IFEFIELD, +IHARM2XY
EXTPOT             REAL*8            +FFIELD,   +FGRAD
EXTPOT             REAL*8            +ZCUTOFF
GRIDI              INTEGER           +NGRIDS
INPUTD1            CHARACTER*10      +FORMFP,    FORMFP128
INPUTD1            CHARACTER*10       FORMFP64
INPUTD1            INTEGER           +IENTERM,  +IFERMI
INPUTD1            INTEGER           +IFORM,    +IFTAIL
INPUTD1            INTEGER           +IINTERP,  +IMETHOD
INPUTD1            INTEGER           +INCLORB,  +INI4
INPUTD1            INTEGER           +INOTERM,  +INOUT128
INPUTD1            INTEGER           +INOUT32,  +INOUT64
INPUTD1            INTEGER           +INPFORM,  +IOUTFORM
INPUTD1            INTEGER           +IPLOT,    +IPOT
INPUTD2            REAL*8            +CUTCOUL,  +CUTEXCH
INPUTD2            REAL*8            +CUTORB
IOCHAN             INTEGER           +IDAT,     +IPRINT16
IOCHAN             INTEGER            LENGTHFP, +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
SCFI               INTEGER           +IBREAK,   +ICANON
SCFI               INTEGER           +IDFT,     +IDFTCORR
SCFI               INTEGER           +IDFTEX,   +IHOMON
SCFI               INTEGER           +ISCFORDER(60)
SCFI               INTEGER           +ISCMC,    +MAXSCF
SCFI               INTEGER           +NENLAST,  +NNOLAST
SCFI               INTEGER           +NOBCKUP,  +NSCF2SKIP
SCFR               INTEGER           +ILAGRA,   +LAGRAON(120)
SCFR               REAL*8            +ALPHAF,   +DFLAGRA
SCFR               REAL*8            +DIVER,    +EXLCOUL
SCFR               REAL*8            +EXLEXP,   +EXLORB
SCFR               REAL*8            +FACMUL,   +SFLAGRA
SORI               INTEGER           +IALTSWEEPS
SORI               INTEGER           +IOMEGA,   +IORDER(10)
SORI               INTEGER           +IPOISS,   +IPRTLEV
SORI               INTEGER           +LSOR,     +MAXSOR1
SORI               INTEGER           +MAXSOR2,  +MAXSOR3
SORI               INTEGER           +MPOLE
SORR               REAL*8            +OMEGASF,  +OMEGASFORB
SORR               REAL*8            +OMEGASFPOT
SORR               REAL*8            +OVFCOUL(10)
SORR               REAL*8            +OVFORB(10)