SUBROUTINE SCHEDSOR ( )

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.                            * 
                                                                        * 
 
### schedSOR #### 
    Assigns maxsor for each orbital every iepoch iterations
Source file:schedSOR.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
GENERIC*8          ABS
GENERIC*4          MOD
External Functions and Subroutines Called
SUBROUTINE         QSORTF
Parameter Variables Used
INTEGER            IBONUS             (IBONUS = 3)
INTEGER            IEPOCH             (IEPOCH = 10)
INTEGER            NEPOCHS            (NEPOCHS = 5000)
Local Variables (+ indicates altered content)
INTEGER           +I,         +INDE,      +INDEMIN,    INDEX(60)
INTEGER           +IORB,      +MAXLEVEL,  +MINLEVEL,  +NLEVELS
REAL*8            +ENDIFF(60)
Referenced Common Block Variables (+ indicates altered content)
CONFIG             INTEGER            NORB
CONSINT            INTEGER            IONE
ENERG              REAL*8             ENG(60)
ORBITR             REAL*8             AREA(60)
SCFR               INTEGER            ISCF
SCHED              INTEGER           +IORBITER(60)
SCHED              REAL*8            +ORBENERGY(NEPOCHS,60)
SCHED              REAL*8            +ORBNORM(NEPOCHS,60)
SORI               INTEGER            MAXSOR2,  +MAXSORORB(60)
SORI               INTEGER           +MAXSORPOT(60)