mirror of https://gitlab.com/QEF/q-e.git
Some cleaning in pwcond (A. Smogunov)
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8151 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
736249b7c3
commit
c1806a87c8
|
@ -7,7 +7,6 @@ MODFLAGS= $(MOD_FLAG)../../iotk/src $(MOD_FLAG)../../Modules \
|
|||
$(MOD_FLAG)../../PW $(MOD_FLAG).
|
||||
|
||||
PPOBJS = \
|
||||
../../PP/stop_pp.o \
|
||||
../../PP/xsf.o
|
||||
|
||||
PWCONDOBJS = \
|
||||
|
|
|
@ -15,17 +15,17 @@
|
|||
|
||||
program pwcond
|
||||
|
||||
logical :: alldone
|
||||
USE mp_global, ONLY: mp_global_end
|
||||
|
||||
call do_cond (alldone)
|
||||
logical :: alldone
|
||||
|
||||
call stop_pp
|
||||
call do_cond (alldone)
|
||||
|
||||
! actually does not work, since stop_pp already stops program (fix?)
|
||||
if ( alldone ) then
|
||||
stop
|
||||
else
|
||||
stop 1
|
||||
endif
|
||||
#ifdef __PARA
|
||||
CALL mp_global_end()
|
||||
#endif
|
||||
|
||||
STOP
|
||||
|
||||
end program pwcond
|
||||
|
||||
|
|
Loading…
Reference in New Issue