SUBROUTINE COULMCSOR ( IORB, CW_SOR, PSI, POT, EXCP, BPOT, D, F3, G, LHS, RHS, WK2 )

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.                            * 
                                                                        * 
 
### coulMCSOR ### 
    Evaluates the Coulomb potential for a given orbital
Source file:coulMCSOR.f
External Functions and Subroutines Called
SUBROUTINE         MCSOR,      PROD2,      PUTIN,      PUTIN2
SUBROUTINE         PUTIN3,     PUTIN4,     PUTOUT,     PUTOUT34
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