Argument Definitions (+ indicates altered content) INTEGER CW_SOR, IORB REAL*8 BORB(*), BPOT(*), D(*), E(*) REAL*8 EXCP(*), F0(*), F1(*), F2(*) REAL*8 F3(*), F4(*), G(*), LHS(*) REAL*8 POT(*), PSI(*), RHS(*), WGT2(*) REAL*8 WJAC1(*), WJAC2(*), WK0(*), WK1(*) REAL*8 WK10, WK11, WK2(*), WK3(*) REAL*8 WK4, WK5, WK6, WK7 REAL*8 WK8, WK9
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. * * ### doSOR ### Controls relaxation of Coulomb potentials, exchange potentials and orbitals
Source file: doSOR.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
External Functions and Subroutines Called SUBROUTINE COULMCSOR, COULSOR, EXCHMCSOR, EXCHSOR SUBROUTINE ORBMCSOR, ORBSOR, ORBSORREV, TAIL
Referenced Common Block Variables (+ indicates altered content) DEBUG INTEGER IPRINT(1000) INPUTD1 INTEGER IFIX(60) SCFI INTEGER ISCMC, ISLAT SCFR REAL*8 EXLCOUL, EXLEXP SCFR REAL*8 EXLORB SORI INTEGER IOO, IPOISS