Commit c30964a1 authored by Gregor Michalicek's avatar Gregor Michalicek

Changed output slightly to correct output conversion errors

At some places input files for the input file generator lead
to "output conversion errors" in the debug version of inpgen, i.e.,
instead of numbers something like *** was written out. This happened
if the input contained too many atoms or the unit cell was too
long in one of the dimensions. I added a few digits to the output
at the respective places to overcome this problem.
parent 418fb749
......@@ -386,11 +386,11 @@ c
WRITE (iofile,'(''Bravais lattice vectors'')' )
DO ii = 1, 3
WRITE (iofile,'(43x,3(1x,f9.6))') (bltv(ii,ikc), ikc=1,3)
WRITE (iofile,'(43x,3(1x,f11.6))') (bltv(ii,ikc), ikc=1,3)
ENDDO
WRITE (iofile,'(''reciprocal lattice vectors'')' )
DO ii = 1, 3
WRITE (iofile,'(43x,3(1x,f9.6))' ) (rltv(ii,ikc), ikc=1,3)
WRITE (iofile,'(43x,3(1x,f11.6))' ) (rltv(ii,ikc), ikc=1,3)
ENDDO
!
! ---> nmop(i) are Monkhorst-Pack parameters; they determine the
......
......@@ -54,7 +54,7 @@
nline = nline + 1
READ (infh,'(a)',ERR=911,END=999,IOSTAT=ios) line
LINE = adjustl(line)
WRITE(dbgfh,'("line:",i2,">",a71)') nline,line(1:71)
WRITE(dbgfh,'("line:",i5,">",a71)') nline,line(1:71)
n = SCAN(line,'!') ! remove end of line comments
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment