Argument Definitions (+ indicates altered content) INTEGER +IHSYM, N2, NMUT REAL*8 +ORB(NNI,NMUT)
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. * * ### setCiOrb ### sets Ci symmetry of a given orbital: the values from the [0,pi/2] region replace those from [pi/2,pi] one
Source file: setCiOrb.f
Local Variables (+ indicates altered content) INTEGER +MI, +MIS, +NI, +NIS
Referenced Common Block Variables (+ indicates altered content) DEBUG INTEGER IPRINT(1000) GRIDI INTEGER NNI