SUBROUTINE SETCIORB ( N2, NMUT, ORB, IHSYM )

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