Argument Definitions (+ indicates altered content) REAL*8 E(*), EXCP(*), F0(*), POT(*) REAL*8 PSI(*), WGT1(*), WGT2(*), WK0(*) REAL*8 WK1(*), WK10(*), WK11(*), WK12(*) REAL*8 WK13(*), WK2(*), WK3(*), WK4(*) REAL*8 WK5(*), WK6(*), WK7(*), WK8(*) REAL*8 WK9(*)
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. * * ### scmc ### Calculates self-consistent multiplicative constant (see Eq. 3 in Karasiev, Ludenia, eq.3 PR 64 (2002) 062510)
Source file: scmc.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 MIN
External Functions and Subroutines Called REAL*8 DOT SUBROUTINE COPY, DFTEX, EXCONT, EXINT SUBROUTINE PROD, PROD2, RFDEXCH
Local Variables (+ indicates altered content) INTEGER +IBEX, +IBORB, +IBORB1, +IBORB2 INTEGER +IBPOT, +IBPOT1, +IBPOT2, +IEX INTEGER +IEX1, +IORB, +IORB1, +IORB2 INTEGER +IPE1, +IPE2, +ISIEX, +ISIEX1 INTEGER +ISIORB, +ISIORB1, +ISIORB2, +ISIPOT INTEGER +ISIPOT1, +ISIPOT2, +NGRID, +NMUT INTEGER +NMUT1, +NMUT2 REAL*8 +EHFEX, +EPS, +OC, +OC1 REAL*8 +OC2, OCX1, OCX2, +W REAL*8 +WDCOUL, +WEX1, +WEX2
Referenced Common Block Variables (+ indicates altered content) ADDRESS1 INTEGER I1B(60), I2B(60) ADDRESS1 INTEGER I3B(1830) ADDRESS3 INTEGER I1SI(60), I2SI(60) ADDRESS3 INTEGER I3SI(1830) ADDRESS5 INTEGER I1MU(60) COMPATAB CHARACTER*8 BOND(60), GUT(60) COMPATAB INTEGER ILC(1830) COMPATAB INTEGER IORN(60) CONFIG INTEGER NEL, NORB CONSFP REAL*8 THREE, TWO CONSINT INTEGER IONE DEBUG INTEGER IPRINT(1000) ENERGY REAL*8 EDFTEX INPUTD1 INTEGER IFORM ORBITI INTEGER MGX(9,60) ORBITR REAL*8 OCC(60) SCFR REAL*8 +ALPHAF