quick and dirty solution to allocation/deallocation of oatwfc

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8859 c92efa57-630b-4861-b058-cf58834340f0
2012-04-05 20:04:45 +00:00 · 2012-04-05 20:04:45 +00:00 · ac7950771a
parent a4837f7be2
commit ac7950771a
1 changed files with 1 additions and 1 deletions
--- a/PW/src/setup.f90
+++ b/PW/src/setup.f90
@ -643,7 +643,7 @@ SUBROUTINE setup()
                   & 'Hubbard_l should not be > 3 ', 1 )

   ! compute index of atomic wfcs used as projectors
-   ALLOCATE ( oatwfc(nat) )
+   if(.not.allocated(oatwfc)) ALLOCATE ( oatwfc(nat) )
   CALL offset_atom_wfc ( nat, oatwfc )

  ELSE