SUBROUTINE FERMI ( )

Description
                                                                        * 
  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.                            * 
                                                                        * 
 
### fermi ### 
    Analyzes Fermi charge distribution.
Source file:fermi.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          LOG
GENERIC*8          SQRT
Local Variables (+ indicates altered content)
INTEGER            IPRT,      +MU,        +NC1,       +NC2
INTEGER           +NI
REAL*8            +A,         +AT3,       +ATW,       +C
REAL*8            +FACTO1,    +FMTOAU,    +RR,        +RRMS
REAL*8            +RRMSFM,    +T,         +TFM,       +XR2
REAL*8            +XRR
Referenced Common Block Variables (+ indicates altered content)
CONSFP             REAL*8             PII
DEBUG              INTEGER            IPRINT(1000)
GRIDI              INTEGER            MXNMU,     NNI
GRIDR              REAL*8             VETASQ(1500)
GRIDR              REAL*8             VXISQ(2500)
INPUTD1            REAL*8             Z1ATMASS,  Z2ATMASS
INPUTD2            REAL*8             R,         Z1
INPUTD2            REAL*8             Z2
PERTAB             REAL*8             AINFCM