From 6e1e73dd2780b1fa4109f2989a70ad01933f9d1e Mon Sep 17 00:00:00 2001
From: sbraccia <sbraccia@c92efa57-630b-4861-b058-cf58834340f0>
Date: Fri, 11 Nov 2005 16:25:53 +0000
Subject: [PATCH] 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
---
 Modules/xml_io_base.f90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/Modules/xml_io_base.f90 b/Modules/xml_io_base.f90
index b17032f08..bde1fdf58 100644
--- a/Modules/xml_io_base.f90
+++ b/Modules/xml_io_base.f90
@@ -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 ) )