SUBROUTINE SETPARAMS ( )
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
Set some program-wide parameters
Source file:setparams.f
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Referenced Common Block Variables (+ indicates altered content)
INOUT              INTEGER           +INPIEXIT, +IUC
INOUT              INTEGER           +IUD,      +IUF
INOUT              INTEGER           +IUH,      +OUC
INOUT              INTEGER           +OUD,      +OUF
INOUT              INTEGER           +OUH
PARAM              INTEGER           +MAXNSCF
PARAM0             INTEGER           +IFOUR,    +IONE
PARAM0             INTEGER           +ITHREE,   +ITWO
PARAM0             INTEGER           +IZERO
PARAM2             REAL*8            +ACFGDEF,  +CFGTOLDEF
PARAM2             REAL*8            +SCFTOLDEF
PARAM2             REAL*8            +TOLDEF
REL                INTEGER           +IQPOT,    +IXPOT
REL                REAL*8            +RELDAMP,  +RELDAMPSF
REL                REAL*8            +XALPHA