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)