Argument Definitions (+ indicates altered content) INTEGER IORB1, IORB2 REAL*8 +OX1, +OX2
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. * * ### excont ### Calculates the number of exchange integrals between two given (open) shells.
Source file: excont.f
Local Variables (+ indicates altered content) CHARACTER*8 +ALPHA, +BETA INTEGER +I1, +I1END, +I2, +I2END INTEGER +IO1, +IO2, +IP1, +IP2 INTEGER +IPE1, +IPE2
Referenced Common Block Variables (+ indicates altered content) COMPATAB CHARACTER*8 SPIN(240) ORBITI INTEGER MGX(9,60) SORWK INTEGER +ICASE