Initializing irrep_g=0 like 5.1

This commit is contained in:
Jeff Hammond 2007-12-19 16:04:59 +00:00
parent 8cf55d55a7
commit 47c628c95e

View file

@ -1,6 +1,6 @@
logical function tce_energy(rtdb,excitedfragment)
c
c $Id: tce_energy.F,v 1.62 2007-12-18 20:57:34 jhammond Exp $
c $Id: tce_energy.F,v 1.63 2007-12-19 16:04:59 jhammond Exp $
c
c Main routine for many-electron theory calculations.
c Some of the subroutines have been generated by
@ -529,6 +529,7 @@ c
irrep_x = 0
irrep_y = 0
irrep_c = 0
irrep_g = 0
c
c ==============
c Create a mutex