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

Yet another modification to the history subdir (provided by Yonas Abraham). It does not 

affect the otuput unless the code is compiled with -D__VERBOSE_SEAVE.
C.S.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2464 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sbraccia 2005-11-11 16:25:53 +00:00
parent 1e5f5a5002
commit 6e1e73dd27
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Modules/xml_io_base.f90
View File

@ -256,15 +256,18 @@ MODULE xml_io_base
INTEGER, INTENT(IN) :: iter
!
CHARACTER(LEN=256) :: filename
CHARACTER(LEN=6) :: hindex
!
#if defined (__VERBOSE_SAVE)
!
CALL create_directory( TRIM( dirname ) // '/history' )
!
WRITE( hindex, FMT = '(I6.6)' ) iter
!
IF ( ionode ) THEN
!
filename = TRIM( dirname ) // '/history/' // &
& TRIM( xmlpun_base ) // TRIM( iotk_index( iter ) ) // '.xml'
& TRIM( xmlpun_base ) // hindex // '.xml'
!
CALL copy_file( TRIM( dirname ) // "/" // TRIM( xmlpun ), &
TRIM( filename ) )