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