Argument Definitions (+ indicates altered content) INTEGER CW_SOR(*), IORB REAL*8 BPOT(*), D(*), EXCP(*), F3(*) REAL*8 G(*), +LHS(*), POT(*), PSI(*) REAL*8 RHS(*), WK2(*)
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. * * ### coulSOR ### Evaluates the Coulomb potential for a given orbital
Source file: coulSOR.f
External Functions and Subroutines Called SUBROUTINE PROD2, PUTIN, PUTIN2, PUTIN3 SUBROUTINE PUTIN4, PUTOUT, PUTOUT34, SOR
Local Variables (+ indicates altered content) INTEGER +I, +IBORB, +IBPOT, +IBPOT1 INTEGER +IG, +IOFFS1, +IOFFST, +ITR1 INTEGER +ITR2, +NGRID
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER I1B(60), I2B(60) ADDRESS3 INTEGER I1SI(60) ADDRESS4 INTEGER I1NG(60) CONFIG INTEGER NEL DERIV3 REAL*8 DIAG(10), DMU1(4,10) DERIV3 REAL*8 DMU2(4,10) GRIDI INTEGER IEMU(10), IOFFS(10) GRIDI INTEGER NGRIDS, NGSIZE(10) GRIDI INTEGER NMU(10), NNI INDEX INTEGER IADEX1(20) INDEX INTEGER IADEX2(20) INDEX INTEGER IADEX3(20) INDEX INTEGER IADEXT(20) INDEX INTEGER IADNOR(20) INDEX INTEGER INGR1(4,10) INDEX INTEGER INGR2(4,10) INDEX INTEGER +NGRD1, +NGRD6A INDEX INTEGER +NGRD6B, +NGRD7 SORI INTEGER MAXSOR1, MAXSORPOT(60) SORR REAL*8 OVFCOUL(10) SORWK INTEGER +IFILL, +ISYM SORWK INTEGER +MUOFFS SORWK REAL*8 +DMU1T(4), +DMU2T(4) SORWK REAL*8 +OMEGA, +OMEGA1