mirror of https://gitlab.com/QEF/q-e.git
write_rho must create the output directory if not existent
git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@13510 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
parent
15fa647b1a
commit
f9dfb35cf1
|
@ -46,6 +46,7 @@ MODULE io_rho_xml
|
||||||
|
|
||||||
! Use the equivalent routine to write real space density
|
! Use the equivalent routine to write real space density
|
||||||
dirname = TRIM(tmp_dir) // TRIM(prefix) // '.save/'
|
dirname = TRIM(tmp_dir) // TRIM(prefix) // '.save/'
|
||||||
|
CALL create_directory( dirname )
|
||||||
! in the following case do not read or write polarization
|
! in the following case do not read or write polarization
|
||||||
IF ( noncolin .AND. .NOT.domag ) THEN
|
IF ( noncolin .AND. .NOT.domag ) THEN
|
||||||
CALL write_rho ( dirname, rho%of_r, 1 )
|
CALL write_rho ( dirname, rho%of_r, 1 )
|
||||||
|
|
Loading…
Reference in New Issue