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

kpoint_dir updated. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@4576 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2007-12-31 09:01:54 +00:00
parent 27c2b94f1b
commit 8f89369cc8
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
Modules/xml_io_base.f90
View File

@ -98,10 +98,17 @@ MODULE xml_io_base
!
CHARACTER(LEN=256) :: kdirname
CHARACTER(LEN=5) :: kindex
CHARACTER(LEN=6) :: kindex1
!
WRITE( kindex, FMT = '( I5.5 )' ) ik
!
kdirname = TRIM( basedir ) // '/K' // kindex
IF (ik<99999) THEN
WRITE( kindex, FMT = '( I5.5 )' ) ik
kdirname = TRIM( basedir ) // '/K' // kindex
ELSEIF (ik<999999) THEN
WRITE( kindex1, FMT = '( I6.6 )' ) ik
kdirname = TRIM( basedir ) // '/K' // kindex1
ELSE
call errore('kpoint_dir','ik too large, increase format',1)
ENDIF
!
kpoint_dir = TRIM( kdirname )
!