SUBROUTINE DFTEX ( PSI, POT, WGT2, WK0, WK1, WK2, WK3, RHOT, RHOTUP, RHOTDOWN, GRHOT, GRHOTUP, GRHOTDOWN, WK10, WK11, WK12, WK13 )

Argument Definitions (+ indicates altered content)
REAL*8             GRHOT(*),   GRHOTDOWN(*),           GRHOTUP(*)
REAL*8             POT(*),     PSI(*),     RHOT(*),    RHOTDOWN(*)
REAL*8             RHOTUP(*),  WGT2(*),    WK0(*),     WK1(*)
REAL*8             WK10(*),    WK11(*),    WK12(*),    WK13(*)
REAL*8            +WK2(*),     WK3(*)
Description
                                                                        * 
  Copyright (C) 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.                            * 
                                                                        * 
 
### dftex ### 
 
    Calculates exchange contribution due to various DFT functionals
Source file:dftex.f
External Functions and Subroutines Called
REAL*8             DOT,        EXBE88,     EXPW86,     EXXALPHA
SUBROUTINE         AXPY,       PROD,       PROD2,      SCAL
Local Variables (+ indicates altered content)
INTEGER           +I,         +IBORB,     +IBPOT,     +IORB
INTEGER           +ISIORB,    +ISIPOT
REAL*8            +OC,        +W,         +WEX,       +WNDC
Referenced Common Block Variables (+ indicates altered content)
ADDRESS1           INTEGER            I1B(60),   I2B(60)
ADDRESS3           INTEGER            I1SI(60),  I2SI(60)
CONFIG             INTEGER            NORB
CONSFP             REAL*8             TWO
CONSINT            INTEGER            IONE
ENERGY             REAL*8            +EDFTEX
GRIDI              INTEGER            MXSIZE
ORBITR             REAL*8             OCC(60)
SCFI               INTEGER            IDFTEX