scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Old xml format was broken (that is: more broken than it used to be) in CP 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13509 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2017-05-12 14:11:10 +00:00
parent 0b7189afe8
commit 15fa647b1a
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
CPV/src/cp_restart.f90
View File

@ -839,7 +839,8 @@ MODULE cp_restart
IF( (.NOT. twfcollect) .AND. (my_bgrp_id == 0) ) THEN
!
tmp_dir_save = tmp_dir
tmp_dir = TRIM( qexml_kpoint_dirname( tmp_dir, 1 ) )
tmp_dir = TRIM( qexml_restart_dirname( tmp_dir, prefix, ndw ) ) // '/'
tmp_dir = TRIM( qexml_kpoint_dirname( tmp_dir, 1 ) ) // '/'
!
iunwfc = 10
nwordwfc = SIZE( c02 )
@ -1699,7 +1700,8 @@ MODULE cp_restart
IF( my_bgrp_id == 0 ) THEN
!
tmp_dir_save = tmp_dir
tmp_dir = TRIM( qexml_kpoint_dirname( tmp_dir, 1 ) )
tmp_dir = TRIM( qexml_restart_dirname( tmp_dir, prefix, ndr ) ) // '/'
tmp_dir = TRIM( qexml_kpoint_dirname( tmp_dir, 1 ) ) // '/'
!
iunwfc = 10
nwordwfc = SIZE( c02 )

6
Modules/xml_io_base.f90
View File

@ -408,8 +408,7 @@ MODULE xml_io_base
!------------------------------------------------------------------------
!
! ... this routine writes the charge-density in xml format into the
! ... '.save' directory
! ... the '.save' directory is created if not already present
! ... $dirname directory - $dirname must exist and end with '/'
!
USE fft_base, ONLY : dfftp
USE io_global,ONLY : ionode
@ -428,9 +427,6 @@ MODULE xml_io_base
!
!
ext = ' '
!
CALL create_directory( dirname )
!
IF ( PRESENT( extension ) ) ext = '.' // TRIM( extension )
!
file_base = TRIM( dirname ) // 'charge-density' // TRIM( ext )