mirror of https://gitlab.com/QEF/q-e.git
Yet another problem with old file format
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13892 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
9b218b4737
commit
0db4ea1068
|
@ -3630,12 +3630,15 @@ CONTAINS
|
|||
llondon = llondon_
|
||||
IF (present(london_s6) ) london_s6 = london_s6_
|
||||
IF (present(london_rcut) ) london_rcut = london_rcut_
|
||||
IF (present(london_c6) ) london_c6(1:nsp_) = london_c6_(1:nsp_)
|
||||
IF (present(london_rvdw) ) london_rvdw(1:nsp_) = london_rvdw_(1:nsp_)
|
||||
!
|
||||
DEALLOCATE( london_c6_ )
|
||||
DEALLOCATE( london_rvdw_ )
|
||||
!
|
||||
IF ( llondon ) THEN
|
||||
!
|
||||
IF (present(london_c6) ) london_c6(1:nsp_) =london_c6_(1:nsp_)
|
||||
IF (present(london_rvdw) ) london_rvdw(1:nsp_)=london_rvdw_(1:nsp_)
|
||||
DEALLOCATE( london_c6_ )
|
||||
DEALLOCATE( london_rvdw_ )
|
||||
!
|
||||
END IF
|
||||
!
|
||||
ELSE IF (present(lxdm) ) THEN
|
||||
lxdm = lxdm_
|
||||
ELSE IF (present(ts_vdw) ) THEN
|
||||
|
|
Loading…
Reference in New Issue