mirror of https://gitlab.com/QEF/q-e.git
Removed call to get_enciroment_variables (which is not implemented in all compilers/libraries)
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4417 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
6b34641498
commit
9961947a35
|
@ -385,12 +385,12 @@ SUBROUTINE PAW_symmetrize(becsum)
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
! Apply symmetrization:
|
! Apply symmetrization:
|
||||||
CALL get_environment_variable('DO_SYMME', do_symme)
|
! CALL get_environment_variable('DO_SYMME', do_symme)
|
||||||
IF (trim(do_symme)=='.false.') THEN
|
! IF (trim(do_symme)=='.false.') THEN
|
||||||
write(*,*) "**** skipping PAW symmetrization!"
|
! write(*,*) "**** skipping PAW symmetrization!"
|
||||||
ELSE
|
! ELSE
|
||||||
becsum(:,:,:) = becsym(:,:,:)
|
becsum(:,:,:) = becsym(:,:,:)
|
||||||
ENDIF
|
! ENDIF
|
||||||
|
|
||||||
CALL stop_clock('PAW_symme')
|
CALL stop_clock('PAW_symme')
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue