Unused routine "hungup" removed

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3999 c92efa57-630b-4861-b058-cf58834340f0

flib/Makefile

@@ -37,7 +37,6 @@ POBJS = \
 blockset.o \
 flush_unit.o \
 gridsetup.o \
-hangup.o \
 ilcm.o \
 indxg2l.o \
 indxg2p.o \

flib/hangup.f90

@@ -1,17 +0,0 @@
-!
-! Copyright (C) 2002 FPMD group
-! This file is distributed under the terms of the
-! GNU General Public License. See the file `License'
-! in the root directory of the present distribution,
-! or http://www.gnu.org/copyleft/gpl.txt .
-!
-
-       SUBROUTINE HANGUP
-       IMPLICIT NONE
-#if defined __MPI
-       include 'mpif.h'
-       INTEGER IERR
-       CALL MPI_FINALIZE(IERR)
-#endif
-       RETURN
-       END SUBROUTINE hangup

flib/more_functionals.f90

@@ -1907,10 +1907,6 @@ subroutine exch_corr_wrapper(nnr, nspin, grhor, rhor, etxc, v, h)
 
   end if
 
-  !write(6,*) 'debug 2 = ', sx_dbg, sc_dbg
-  !call hangup
-  !stop
-
   return
 end subroutine exch_corr_wrapper